按省分别生成excel，按市导入到各自工作表中

wujian123

老师，新生成的文件不是在桌面上，我桌面的地址是C:\Documents and Settings\Administrator\桌面

Henry D. Sy

新生成的文件保存在与数据库文件同一个文件夹中。
这样比较灵活，
如你一定要将它固定死在C:\Documents and Settings\Administrator\桌面，也可以。
更改一下代码中的路径就行了。

Henry D. Sy

就是更改下面这一句，您试着改改。
xlWrk.SaveAs CurrentProject.Path & "\" & strProvince(K) & ".xls"

wujian123

老师，生成的工作表里，只有“编号”、“姓名“两个列名，是不是excel自身的问题

[ 本帖最后由 wujian123 于 2008-12-6 22:52 编辑 ]

Henry D. Sy

非常抱歉
For I = 0 To rs.Fields.Count - 1
      xlSht.Cells(1, I + 1) = rst.Fields(I).Name
Next
上面这句代码中的第一行中的rs漏掉了一个t，应该是rst。也就是
For I = 0 To rst.Fields.Count - 1
       xlSht.Cells(1, I + 1) = rst.Fields(I).Name
Next

wujian123

Thank you very much

changweiren

从中得益,谢谢6D!

13555609005

学习学习

smz8

求哪位老师帮忙

Yzlszaj

有附件就好了。