|
Private Sub CommandButton1_Click()
'
' Macro1 Macro' マクロ記録日 : 2003/6/11 ユーザー名 :
Sheets("明細書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("明細書(控え)").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("請求書").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("請求書 (控え)").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ChDir "C:\Documents and Settings\名前\My Documents\"フォルダ名"" ActiveWorkbook.SaveAs Filename:= _"C:\Documents and Settings\"名前"\My Documents\"フォルダ名"\"ファイル名".xls" _, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
以上のようになっていますがこれの保存するファイル名を
例えばsheet1のA1と同じにしたいのですがどうすればよろしいでしょうか?お願いします。
|
|