投稿日	： 2004/02/19(Thu) 20:59
投稿者	： 黒影
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: エクセルブックの更新と保存（追記）

>Option Explicit
>Public Const G_svFolderName = "C:\Temp" <=グローバル変数の方がより良いかと．．．

>Private Sub Save_Excel()
>    dim svExcelName  as string
>
>    svExcelName = Format(Date, "yyyymmdd") & "_" Format(Time,"hhmmss") & ".xls"
>    xlBook.SaveAs (G_svFolderName & "\" & svExcelName)
>
>Snd Sub

上記の方法だと、名前を変える前のファイル名が残っちゃうかも．．．
下記のような手もあります。
�@保存先のパスとファイル名を取得
  保存先パス：任意（グローバル定数で指定しておくとか...）
　ファイル名：アクティブブック
�A「xlBook.Save」で保存（�@のパス）
�BFileSystemObjectを使用して名前を(上記の「svExcelName」に）変更

★ - エクセルブックの更新と保存 - ののちゃん 02/18-22:38No.8032
• Re: エクセルブックの更新と保存 - 花ちゃん 02/18-23:47 No.8033
  • Re^2: エクセルブックの更新と保存 - ののちゃん 02/19-17:45 No.8041
  • Re^2: エクセルブックの更新と保存 - ののちゃん 02/19-18:33 No.8042
    • Re^3: エクセルブックの更新と保存 - 黒影 02/19-20:26 No.8043
    • Re^3: エクセルブックの更新と保存（追記） - 黒影 02/19-20:59 No.8044
      • Re^4: エクセルブックの更新と保存（追記） - ののちゃん 02/19-21:38 No.8045
        • Re^5: エクセルブックの更新と保存（追記） - 黒影 02/20-09:34 No.8053
          • ありがとうございました！！ - ののちゃん 02/20-21:20 No.8062
          • ありがとうございました！！Part 2 - ののちゃん 02/21-22:33 No.8072
            • 確認 - 黒影 02/23-12:57 No.8080
              • Re: 確認 - ののちゃん 02/24-18:44 No.8116