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