Ms access 从Access 2010 VBA控制Excel工作簿

我的情况与下面的帖子非常相似：

在我的例子中，我导出了一个表，但我想对Excel文件做更多的工作

首先，我想重命名Excel文件第一页上的选项卡，因为它以时髦的表名导出。因此，我想将其改为“MyTable as of（在此添加一个日期变量）”，而不是“TBLThissismytable”

其次，我需要创建一个透视表，并在另一个选项卡上复制透视表，以更改其中一个参数

我的问题是，我可以在Excel中记录一个宏来执行基本步骤并将该代码放入Access VBA中吗

我希望我说得够清楚，谢谢你能提供的任何帮助

我的问题是，我可以在Excel中记录宏来执行基本步骤吗 然后把代码放到我的Access VBA中

是的，绝对是

在Access中，您可能需要添加对Microsoft Excel库的引用

然后，您需要对“recorded”宏进行一些更改，以便它创建一个新的Excel.Application实例，并打开所需的文件和工作表。例如：

Sub OpenExcel()
Dim xlApp as Excel.Application
Dim xlWB as Excel.Workbook
Dim xlSh as Excel.Worksheet

Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("C:\Your filename.xlsx") '<modify as needed
Set xlSH = xlWB.Sheets("Sheet Name") '<modify as needed

'You can paste the recorded macro in here
'
'
'
'
'

xlWB.Save
xlWB.Close
xlApp.Quit
Set xlApp = Nothing

End Sub

Sub-OpenExcel（）
Dim xlApp作为Excel.Application
将xlWB设置为Excel.工作簿
将xlSh设置为Excel.Worksheet
Set xlApp=New Excel.Application
设置xlWB=xlApp.Workbooks.Open（“C:\Your filename.xlsx”）'