Excelmacros不输出（另存为）文件“对象'_Workbook'的方法'SaveAs'失败”

我有一个小的macros从一个标签输出的信息，但它不是保存输出的文本文件。 当它运行debugging它突出显示一行，但我不能看到任何错误。

这是debugging中的错误行：

ActiveWorkbook.SaveAs Filename:=pathname, FileFormat:= _ xlTextMSDOS, CreateBackup:=False 

错误消息：

对象'_Workbook'的方法'SaveAs'失败

这是整个代码

 Sub Savetxt(pathname, sheetname) Sheets("Output").Range("A1:Z99999").ClearContents Sheets(sheetname).Select Range(ActiveSheet.ListObjects(1) & "[Final output for text file]").Copy Sheets("Output").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Rows("1:1").Select 'Application.CutCopyMode = False 'Selection.Delete Shift:=xlUp BName = ActiveWorkbook.FullName ActiveWorkbook.VBProject.VBComponents("module1").Export ("' & BName.Value &'") Sheets(Array("Output")).Copy Application.VBE.ActiveVBProject.VBComponents.Import ("' & BName.Value &'") ActiveWorkbook.SaveAs Filename:=pathname, FileFormat:= _ xlTextMSDOS, CreateBackup:=False ' ActiveWorkbook.SaveAs Filename:=Range("savefile").Value _ , FileFormat:=xlTextMSDOS, CreateBackup:=False ' ActiveWindow.Close End Sub 

Answer 1

pathname没有在选项卡中正确定义，所以它试图将文档保存在不存在的位置。