[[20120208095120]]　『保存するBook名に変数を使用したいのですが』（katanohosi）　ページの最後に飛ぶ

『保存するBook名に変数を使用したいのですが』（katanohosi）

excel2003,OSはXPです。
なかなか初心者から抜け出せずにいます。

ファイルに名前を付けて保存しようとしています。
ただ単に文字でファイル名を指定して保存することは出来るのですが、
毎月の作業なので、

①その名前に"月"を付与するため変数を入れるのですがエラーが出ます。

それで、

②ファイル名そのものを変数として同様に保存すると変数の名前そのもので保存されてしまいます。

どなたか教えてください。よろしくお願いいたします。

sg = DateSerial(Year(Date), Month(Date), 0)

savepath = ThisWorkbook.Path & "\帳票類\DF"

Filename1 = "【資料２-３】" & sg & " 月長期未使用（みやこ）.xls"

①ActiveWorkbook.SaveAs Filename:=savepath & "\帳票類\DF\【資料２-３】" & sg & "月長期未使用（みやこ）.xls"

②ActiveWorkbook.SaveAs Filename:=savepath & Filename1

 >sg = DateSerial(Year(Date), Month(Date), 0)
 sgの戻り値は先月末の日付けとなり、なおかつ"yyyy/m/d"となる。
 ファイル名にそもそも「/」は使えない。

 sg = Year(Date) & "年" & Month(Date)
 savepath = ThisWorkbook.Path & "\帳票類\DF\"
 Filename1 = "【資料２-３】" & sg & " 月長期未使用（みやこ）.xls"
 ActiveWorkbook.SaveAs Filename:=savepath & Filename1

 ではどうでしょうか。

 (Miki)

 Mikiさんの指摘以外で。

 1番目
 savepathが
 ThisWorkbook.Path & "\帳票類\DF" 
 で、さらにそこに
 "\帳票類\DF\【資料２-３】" & sg & "月長期未使用（みやこ）.xls"
 を繋げてるってことは
 ThisWorkbook.Path & "\帳票類\DF" & "\帳票類\DF\【資料２-３】" & sg & "月長期未使用（みやこ）.xls"
 って「\帳票類\DF」が二重になってるけどいいのかな？

 2番目の方、ファイル名が変数名になるってことだったら
 ActiveWorkbook.SaveAs Filename:=savepath & "Filename1"
 って変数名を"で囲んじゃってない？
 (春日野馨)

MIKIさま

早速ありがとうございました。
なるほど！日付けで/が邪魔をしていたのですね。

ActiveWorkbook.SaveAs Filename:=savepath & Filename1

のFilename1にマウスポインタを持っていくと、ちゃんと日付とその他の名前は表示していたので

訳が分からなくなっていました。

おかげさまでうまく行きました☆

ありがとうございました！

春日野馨さま

ご指摘ありがとうございます。

貼り付けて記載しなおしたものですから確かに二重で記載していました。

正確には、

mypath = ThisWorkbook.Path

①ActiveWorkbook.SaveAs Filename:=mypath & "\帳票類\DF\【資料２-３】" & sg & "月長期未使用（みやこ）.xls"

でした。

お手数おかけいたしました。

しかし、皆さまの凄さには感激です。

早く初心者を抜けたいです；

コメント返信：

[ 一覧(最新更新順) ]

[[20120208095120]] 『保存するBook名に変数を使用したいのですが』（katanohosi） ページの最後に飛ぶ

[[20120208095120]]　『保存するBook名に変数を使用したいのですが』（katanohosi）　ページの最後に飛ぶ