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

wujian123

求助，关于导出按钮代码请问各位老师： 希望通过点击导出按钮，将“档案”中的内容根据“省”导出成不同的excel文件放在桌面上，excel文件的名称就是“省”的名字，在每一个excel文件中又根据不同“城市”分成不同的工作表，且工作表的名称就是“城市”的名字，，谢谢各位老师，小弟感激不尽

[ 本帖最后由 Henry D. Sy 于 2008-12-6 23:47 编辑 ]

Yzlszaj

有附件就好了。

smz8

求哪位老师帮忙

13555609005

学习学习

changweiren

从中得益,谢谢6D!

wujian123

Thank you very much

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

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

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

Henry D. Sy

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

Henry D. Sy

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