excel - 保存后显示 Excel 的命令

Question

这是我用来制作电子表格并保存它的 vba 命令:

DoCmd.TransferSpreadsheet acExport, , "query_alldata1", "C:\All_Data_2014.xlsx", True

我还希望它在屏幕上自动打开或显示。我将不胜感激任何指南。

这就是我的子程序的样子:

Private Sub btnAlldatagen_Click()
On Error GoTo Err_btnAlldatagen_Click
Dim stDocName As String

stDocName = "query_alldata1"

DoCmd.TransferSpreadsheet acExport, , "query_alldata1", "C:\All_Data_2014.xlsx", True


'Workbooks.Open "C:\All_Data_2014.xls"
MsgBox ("Preparing all Data Report")
Exit_btnAlldatagen_Click:
Exit Sub
Err_btnAlldatagen_Click:
MsgBox Err.Description
Resume Exit_btnAlldatagen_Click

End Sub

我正在使用 Workbooks.open 命令，但它没有打开工作表。

Answer 1

哦，这个很简单。

后

DoCmd.TransferSpreadsheet acExport, , "query_alldata1", "C:\All_Data_2014.xlsx", True

地方:

Dim xl As Object
Set xl = CreateObject("Excel.Application")

With xl
  .Visible = True
  .Workbooks.Open ("C:\All_Data_2014.xlsx")
  '.Do other things with excel here

  '.Workbooks("Test1.xlsm").Close , False '<-- Uncomment to close workbook
  '.Quit '<-- Uncomment to close Excel
End With

'Set xl = Nothing <-- Uncomment to set Excel to Nothing