Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75166 / 76738 ←次へ | 前へ→

【6017】保存するファイル名を毎回変えたいのですがどのように変更したらよいのでしょうか?
質問  ココ  - 03/6/12(木) 9:30 -

引用なし
パスワード
   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と同じにしたいのですがどうすればよろしいでしょうか?お願いします。
0 hits

【6017】保存するファイル名を毎回変えたいのですがどのように変更したらよいのでし... ココ 03/6/12(木) 9:30 質問
【6019】Re:保存するファイル名を毎回変えたい パピー(PAPIー) 03/6/12(木) 11:02 回答
【6024】Re:保存するファイル名を毎回変えたい ココ 03/6/12(木) 14:24 お礼

75166 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free