调试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/