2017-07-20 6 views
0

1つのタブを新しいファイルにエクスポートし、2つのセル値に基づいてカスタムファイル名とファイルパスを使用して保存するマクロを作成しようとしています。私は保存中にランタイムエラーが発生し続ける。私はここで同様の問題の答えを使用しようとしましたが、私の悩みは、私の問題のために働かせるように見えません。私が得ることができるすべての助けは本当に感謝されるつもりです。新しいファイルランタイムエラーでExcelタブを保存するVBA 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 
+1

fpathの値はバックスラッシュで終わりますか?もしそうでなければ、それはすべきです。 – braX

+0

はいそうです。また、saveasの構文をこれに変更することなく試しました:ActiveWorkbook.SaveAs Filename:= fpath& "\"&fname。追加情報は、エラーがファイルにアクセスできないことを示し、fpath値、fname値、文字と数字のバックスラッシュを表示することです。すなわち、C:users \ me \ downloads \ formexport \ 0CBC123ここで、0CBC123は名前の一部であってはならないものです – jptirona

+0

'ActiveWorkbook.SaveAs Filename:= fpath&fname&" .xls "'を 'ActiveWorkbook.SaveAs Filename := fpath&fname& ".xls"、FileFormat:= 56' –

答えて

0

はそれを考え出しました。ユーザーは「\」を使用してC1に値を入力していました。今は節約しています。あなたが与えたものは今働いています。ありがとうございました!

関連する問題