Excelのワークブックを2つのフィールドからファイル名を付けて一定のパスに保存する

Question

私はExcelのマクロが初めてのので、私の目的に合ったコードを検索してまとめようとしました。誰かが私を助けてくれるほど寛大であることを願っています。真ん中のスペースで、ワークシートのセルC5とC8からファイル名を生成、代わりに保存されたファイルck.xlsに名前を付けるの ：これを編集する方法

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\ck.xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

。

Answer 1

あなたはマクロでブックを保存したい場合は、無マクロでブックを保存したいと何のポップアップがこの

を使用しない場合は、以下のコード

Sub save() 
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xlsm", FileFormat:= _ 
    xlOpenXMLWorkbookMacroEnabled, Password:=vbNullString, WriteResPassword:=vbNullString, _ 
    ReadOnlyRecommended:=False, CreateBackup:=False 
End Sub 

を使用

Sub save() 
ActiveWorkbook.SaveAS Filename:="C:\-docs\cmat\Desktop\New folder\" & Range("C5").Text & chr(32) & Range("C8").Text &".xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
, CreateBackup:=False 
End Sub 

を試してみてください

Sub save() 
    Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ$("username") & _ 
    "\Desktop\" & Range("C5").Text & Chr(32) & Range("C8").Text & ".xls", _ 
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
    Application.DisplayAlerts = True 
End Sub 

Answer 2

[OK]を、その時、友人の助けを借りて完了し、コードはこのようになります。私はこの部分を編集するにはどうすればよい

Sub Saving() 

Dim part1 As String 

Dim part2 As String 


part1 = Range("C5").Value 

part2 = Range("C8").Value 


ActiveWorkbook.SaveAs Filename:= _ 

"C:\-docs\cmat\Desktop\pieteikumi\" & part1 & " " & part2 & ".xlsm", FileFormat:= _ 
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

End Sub 

：それはExcelの97から2013ワークブックとして保存するために（なFileFormat = _ xlOpenXMLWorkbookMacroEnabled）は、なしの成功にはいくつかのバリエーションを試してみました。 ありがとう

解決策が見つかりましたが、私の考えには欠陥があります。このFileFormat：= _ xlOpenXMLWorkbookを実行すると、マクロを有効にしないでこのブックをファイルとして保存できないというポップアップが表示されなくなります。それで、これは不可能ですか？