想把access中的一个表导入到指定的excel文件中，怎样写代码最方便？

hcyq · 发表于 2009-2-4 00:01

我现在是这样写，但是不知后面的文件如何采用相对路径来表示？另外，excel2003是不是 excel8？？

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "all KPIs", "D:\Cambodia TMIC\KPIs\New tool\Cell Daily KPI Graph Template.xls"

其实我是想直接将access表中的内容导出到excel指定sheet中，比如从A2作为开始点。我现在的思路是导出到excel中，然后在excel中用宏处理到指定sheet的范围中。

各位专家给点建议吧，谢谢！

hcyq · 发表于 2009-2-4 00:20

Dim Currentpath As String

Currentpath = Application.CurrentProject.Path

这样好像能找到当前access文件所在目录

Renco · 发表于 2009-2-4 08:36

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "all KPIs", "D:\Cambodia TMIC\KPIs\New tool\Cell Daily KPI Graph Template.xls",, "Sheet1!B2:T90"
后面还有参数的的,用法可以参看系统的帮助说明,也可以用宏做好后,转制成代码

hcyq · 发表于 2009-2-4 10:45

导出的时候可以设置范围吗？

我看帮助文件说导出的时候不能设置范围，比如Sheet1!B2:T90

Renco · 发表于 2009-2-4 10:49

你试试不就知道了,如果只用 A2:B5 时,系统会默认为是第一个sheet的范围
加前sheet名前缀,则须你导出的这个EXCEL有这个sheet

lhsh · 发表于 2009-2-7 21:39

Dim Expath As String
Dim n As Object
Expath = CurrentProject.Path & "\"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "工资表查询查询", Expath & "集团工资表.XLS", True, "明细表"
Set n = CreateObject("EXCEL.APPLICATION") '呼叫Excel
n.Visible = True '显示在屏幕上
n.Workbooks.Open Expath & "集团工资表.XLS"

		自动登录	找回密码
密码			免费注册

[求助] 想把access中的一个表导入到指定的excel文件中，怎样写代码最方便？