Excel宏未輸出（另存為）文件“對象'_Workbook'的方法'SaveAs'失敗”

Question

我有一個小的宏，可從選項卡輸出信息，但是它不保存輸出的文本文件。 當它運行調試時，它會突出顯示一行，但是我看不到任何錯誤。

這是調試中的錯誤行：

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

錯誤消息：

對象“ _Workbook”的方法“另存為”失敗

這是整個代碼

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 ，因此它試圖將文檔保存在不存在的位置。