Excel VBA質問箱 IV

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

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


9506 / 13644 ツリー ←次へ | 前へ→

【26893】ファイル名に日付 まりな 05/7/22(金) 17:40 質問[未読]
【26894】Re:ファイル名に日付 IROC 05/7/22(金) 17:50 回答[未読]
【26911】Re:ファイル名に日付 ponpon 05/7/23(土) 10:55 発言[未読]
【26952】Re:ファイル名に日付 まりな 05/7/25(月) 13:59 回答[未読]

【26893】ファイル名に日付
質問  まりな  - 05/7/22(金) 17:40 -

引用なし
パスワード
   コマンドボタンを押すとバックアップがとれる事は出来るんですが、
ファイル名に保存した日付を入れたいと考えています。
"○○○バックアップ20050722"と表示させたいのですが、
このような事は出来るのでしょうか?
宜しくお願い致します。

Private Sub CommandButton6_Click() 'バックアップ
 Dim MyPath, MyFileName As String
  
  MyPath = "C:"
  MyFileName = "○○○バックアップ"
  ActiveWorkbook.SaveCopyAs Filename:=MyPath & MyFileName & ".xls"

End Sub

【26894】Re:ファイル名に日付
回答  IROC  - 05/7/22(金) 17:50 -

引用なし
パスワード
   Date関数とFormat関数を使ってみてください。

【26911】Re:ファイル名に日付
発言  ponpon  - 05/7/23(土) 10:55 -

引用なし
パスワード
   おはようございます。
試してください。
Sub test()
  Dim myDay As String
  myDay = Format(Date, "yyyymmdd")
  MsgBox myDay
End Sub

【26952】Re:ファイル名に日付
回答  まりな  - 05/7/25(月) 13:59 -

引用なし
パスワード
   すいません。お礼が遅くなりました。
無事に完成致しました。
本当に有り難う御座いました。

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