使Excel实例可见而不必将焦点放在上面

我通过访问生成excel报告。 我想避免用户在工作中突然出现一个popup窗口。

这是我的问题。 我在Excel中生成报告，一切都很好。 但只要程序转为可见状态，就可能发生用户正在电子邮件中间，然后覆盖某些事物。 在excel报告中，在他知道之前。 所以理想的excel应该只在后台才能看到，而没有得到重点。

但我不知道如何编程在vba访问

先谢谢你！

Answer 1

如果要将Excel文件输出到文件夹/目录或与数据库相同的文件path，可以使用：

Dim outputFileName As String outputFileName = CurrentProject.Path & "\Test Output" & Format(Date, "MMddyyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "usersQry", outputFileName, True 

更具体地说，看起来像你可以利用这样的东西：

 If MsgBox("Save file as " & CurrentProject.Path & "\Reports\Blah " & Format(Date, "MMddyyyy") & ".xlsx. " & _ "Open file in Excel?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then Cancel = True Else Dim xlTmp As Excel.Application Set xlTmp = New Excel.Application xlTmp.Workbooks.Open outputFileName xlTmp.Visible = True ' You can change this to false End If 

如果您遇到错误与Excel.Application抛出用户定义types“错误，使用此初始化：

 Dim xlTmp as object Set xlTmp = CreateObject("Excel.Application") xlTmp.Workbooks.Open outputFileName xlTmp.Visible = True ' You can change this to false 

发生这种情况是因为您可能缺lessExcel对象库，因此Access不知道Excel.Application含义。