VBA - 在MS Access上打开XLS App

Question

我正在使用VBA从Access数据库创建和格式化XLS工作簿，通过​​在表单上按下用户按钮启动。

我希望在AccessDB上打开XLS应用程序以允许用户直接查看工作表。目前它是间歇性的，XLS通常在第一次迭代时打开UNDER，但随后在同一会话中的后续迭代中打开。在最终保存并导出到我们的客户端门户之前，必须对文件进行用户审阅。每个用户会话通常只有一次迭代。

我使用以下方法（伪）：

Dim appXLS As Object
Dim wbkNew As Object
Dim wks1, wks2, wks3 As Object

Set appXLS = CreateObject("Excel.Application")
Set wbkNew = appXLS.Workbooks.Add

appXLS.Visible = True
wbkNew.Activate

...populate & format 3 worksheets from Access

wks1.Activate  ' go back to sheet 1
wbkNew.SaveAs AccessMode:=xlExclusive, FileName:=myFile

我正在这个例程中保存文件，所以任何＆＃34;覆盖文件＆＃34;警告也在MSAccess下打开。

我认为.Activate行会确保所需的功能。对此有何想法或想法？

谢谢！