7

目的にあったコードを検索してまとめてみました。

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

これを編集する方法: 保存したファイルに ck.xls という名前を付ける代わりに、ワークシートのセル C5 と C8 からファイル名を生成し、途中にスペースを入れます。

4

2 に答える 2

9

試す

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()
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()
    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
于 2013-08-29T10:14:23.190 に答える
2

その時、友人の助けを借りてコードを完成させました。コードは次のようになります。

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

この部分 (FileFormat:= _ xlOpenXMLWorkbookMacroEnabled) を編集して、Excel 97-2013 ワークブックとして保存するにはどうすればよいですか。いくつかのバリエーションを試してみましたが、成功しませんでした。ありがとうございました

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

于 2013-09-12T08:58:35.027 に答える