|
▼ココ さん:こんにちは。
>以上のようになっていますがこれの保存するファイル名を
>例えばsheet1のA1と同じにしたいのですがどうすればよろしいでしょうか?
保存する所のみ、サンプルにしました。
変数などで保存するディレクトリ名を定義した方がすっきりとして見やすいですね。
A1セルにファイル名(拡張子の.xlsは不要)をいれて実行して下さい。
参考になれば幸いです。
Private Sub CommandButton1_Click()
Dim MyPath, MyFileName As String
MyPath = "C:\Documents and Settings\名前\My Documents\フォルダ名\"
MyFileName = Sheets("Sheet1").Range("A1").Value
ActiveWorkbook.SaveAs Filename:=MyPath & MyFileName & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
|
|