VBA for MS Access：無需打開即可寫入excel文件，寫入最后一行，保存並關閉

Question

我第一次在MS Access中使用VBA，但無法獲得以下權限： 啟動excel文件 （未實際打開文件），然后寫入 excel文件的最后一行 ，然后保存文件（使用相同的路徑和名稱與以前一樣，基本上替換先前的文件），然后關閉 excel文件。

請協助！ 到目前為止，我可以寫入excel文件，但是如果不關閉整個MS Access應用程序就無法保存和關閉。 如果可以的話，請提供工作代碼示例以完成上述操作，我將根據自己的要求對其進行定制。

謝謝！ 克里斯汀

Answer 1

首先，為了按需更新和保存文件，必須先打開它-所以當您說不想“實際打開” excel文件時，這有點令人困惑/矛盾。 ..我的意思是，您只是不想顯示excel應用程序-您需要這樣的東西：

Public Sub demoCode()
Dim excelApp As Excel.Application
Dim targetWB As Workbook
Dim targetRange As Range

'Create new Excel Application
Set excelApp = New Excel.Application
'Keep hidden
excelApp.Visible = False

'Have new Excel App open workbook
Set targetWB = excelApp.Workbooks.Open("C:\Filename.xlsm")

'Set targetRange to 1 row past the first sheet's usedrange
Set targetRange = targetWB.Sheets(1).Range(targetWB.Sheets(1).UsedRange.address)(targetWB.Sheets(1).UsedRange.Rows.Count + 1, 1)

'Paste @ targetRange

'Close and save workbook
targetWB.Close (True)
'Close Excel App
excelApp.Quit
End Sub

希望這會有所幫助，TheSilkCode