VBA將Excel文件保存爲Access中的.xls

嗨，我必須執行從Excel文件導入到Access數據庫中，而不重複。只有這樣才能做到這一點，可以通過創建表來導入Excel數據，然後通過構建查詢將其附加到目標表中。問題是這個Excel文件必須是.xls格式，其他格式都不適用於我（不知道爲什麼）。我如何從Access訪問 - 不需要打開Excel工作簿，只需更改它的擴展名文件名？這就是我想（我收到錯誤：「對象不支持此屬性或方法」）VBA將Excel文件保存爲Access中的.xls

Dim XFile As Excel.Application 


Set XFile = CreateObject("Excel.Application") 
XFile.Workbooks.Open "C:\Users\Mike\Desktop\Copy.xlsx", True 

XcelFile.SaveAs Filename:="C:\Users\Mike\Desktop\Copy.xlsx", FileFormat:=56 
XFile.Workbooks.Close 

End Sub

正如你看到的，我需要從.XLSX保存，這是爲Excel 2013年

默認格式

任何幫助非常感謝！

來源

2016-02-27 LuckyLuke82

你 '的saveAs' 文件是您剛剛打開的文件。你至少應該改變目的地名稱，否則你肯定會面臨衝突。 –

請參閱[此答案]（http://stackoverflow.com/a/5729426/4425957）。 – Porcupine911

在「另存爲」語句 – user3598756

感謝@ Porcupine911，即工作，即使不打開工作簿:)

Dim XcelFile As Excel.Application 
Dim wb As Excel.Workbook 

Set XcelFile = New Excel.Application 

Set wb = XcelFile.Workbooks.Open("Filepath here") 

wb.SaveAs Filename:="Filename here, with different destination and desirable extension", FileFormat:=56 
wb.Close 
Set XcelFile = Nothing 

End Sub

來源

2016-02-28 18:53:59 LuckyLuke82

VBA將Excel文件保存爲Access中的.xls

回答

相關問題