VBA在新文件運行時錯誤保存excel選項卡1004

我想寫一個宏將導出一個選項卡到一個新文件，然後使用基於2個單元格值的自定義文件名和文件路徑保存它。在保存部分中，我不斷收到運行時錯誤。我試圖在類似的問題上使用答案，但是作爲我的noob，似乎無法讓他們爲我的問題工作。我能得到的所有幫助真的很值得讚賞。VBA在新文件運行時錯誤保存excel選項卡1004

這裏是我到目前爲止的代碼：

Sub Export() 

    Sheets("Form").Select 
    Sheets("Form").Copy 
    Cells.Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 
    Dim fname As String 
    fname = Range("C1") 
    Dim fpath As String 
    fpath = Range ("G1") 
    ActiveWorkbook.SaveAs Filename:=fpath & fname & ".xls" 
     Windows("Form.xlsm").Activate 
End Sub

來源

2017-07-20 jptirona

fpath的值是否以反斜槓結尾？如果沒有，它應該。 – braX

是的，它的確如此。也試圖通過將saveas語法更改爲：ActiveWorkbook.SaveAs Filename：= fpath＆「\」＆fname。額外的信息是錯誤顯示excel無法訪問文件，然後給出fpath值，fname值，然後是帶有字母和數字的反斜槓。即C：users \ me \ downloads \ formexport \ 0CBC123其中0CBC123不應該是名稱的一部分 – jptirona

將'ActiveWorkbook.SaveAs文件名：= fpath＆fname＆「.xls」'改爲'ActiveWorkbook.SaveAs文件名：= fpath＆fname＆「.xls」，FileFormat：= 56' –

想通了。用戶使用「\」在C1中輸入一個值。現在節省的很好。你給的東西現在在工作。謝謝！

來源

2017-07-21 17:05:47 jptirona

VBA在新文件運行時錯誤保存excel選項卡1004

回答

相關問題