調試Excel VBA ActiveWorkbook.SaveAs

Question

我不確定爲什麼我的VBA代碼片斷沒有工作 - 我希望有人可以提供幫助。

我只是試圖執行一個ActiveWorkbook.SaveAs作爲一個較大的模塊的一部分，但它是錯誤的。

這裏的代碼在發生錯誤的片段：

LdrLastName = Right(wbCleaner.Sheets("Import Information").Range("$A$2"), Len(wbCleaner.Sheets("Import Information").Range("$A$2")) - Len(Left(wbCleaner.Sheets("Import Information").Range("$A$2"), LstNameSpacePos))) 
ExptdQBInitialFileName = LdrLastName & " " & wbCleaner.Sheets("Import Information").Range("$D$2") 'produces "LastName AccountCode" 

'ExptdQBFileName MsgBox's the full file path and file name (i.e. C:/Folder/Filename.xlsx) 
ExptdQBFileName = Application.GetSaveAsFilename(InitialFileName:=ExptdQBInitialFileName, FileFilter:="QB Export File *.xlsx (*.xlsx),") 

If ExptdQBFileName <> "" And ExptdQBFileName <> "False" Then 
    ActiveWorkbook.SaveAs Filename:=ExptdQBFileName, _ 
     FileFormat:=xlOpenXMLWorkbook, _ 
     Password:="", _ 
     WriteResPassword:="", _ 
     ReadOnlyRecommended:=False, _ 
     CreateBackup:=False 
End If 

錯誤凸顯瞭如果/ END IF語句內的一切。我以前使用過這個代碼沒有問題。我在哪裏錯了？

Answer 1

文件格式52是xlOpenXMLWorkbookMacroEnabled或xlsm文件。如果要保存爲.xlsx文件，我想你想要的文件格式是xlOpenXMLWorkbook，其強制轉換爲51

這是有幫助的使用枚舉而不是整數的：

LdrLastName = Right(wbCleaner.Sheets("Import Information").Range("$A$2"), Len(wbCleaner.Sheets("Import Information").Range("$A$2")) - Len(Left(wbCleaner.Sheets("Import Information").Range("$A$2"), LstNameSpacePos))) 
ExptdQBInitialFileName = LdrLastName & " " & wbCleaner.Sheets("Import Information").Range("$D$2") 'produces "LastName AccountCode" 

ExptdQBFileName = Application.GetSaveAsFilename(InitialFileName:=ExptdQBInitialFileName, FileFilter:="QB Export File (*.xlsx), *.xlsx,") 

If ExptdQBFileName <> "" And ExptdQBFileName <> "False" Then 
    ActiveWorkbook.SaveAs Filename:=ExptdQBFileName, _ 
     FileFormat:=xlOpenXMLWorkbook, _ 
     Password:="", _ 
     WriteResPassword:="", _ 
     ReadOnlyRecommended:=False, _ 
     CreateBackup:=False 
End If 

http://www.rondebruin.nl/win/s5/win001.htm

Answer 2

我不知道爲什麼，但解決的辦法是改變

ActiveWorkbook.("QB Export File").SaveAs 

到

ThisWorkbook.Sheets("QB Export File").SaveAs 

感謝user2851376分享下面與ActiveWorkbook http://datapigtechnologies.com/blog/index.php/thisworkbook-vs-activeworkbook/

Answer 3

比較的ThisWorkbook只是爲了共享鏈接，的ThisWorkbook之間的不同和activeworkbook http://datapigtechnologies.com/blog/index.php/thisworkbook-vs-activeworkbook/