エクセル２００７ 名前を付けて 保存 VBA(マクロ）

質問

エクセル２００７　名前を付けて　保存　VBA(マクロ）

今回もよろしくお願いします。
今回は作業終了時にファイルに名前を付けて自動保存させたいのですがうまくいきませんのでアドバイスお願いします。

ファイル名はセルの数か所にある文字、日付などを足してファイル名にしようとしています。
例えば
A1 報告書
A2 2010/03/22
A3 パソコン

と入っているとします。
ファイル名は　”報告書20100322パソコン”としたいのですが、日付の処理がわかりません・・・。
普通に表示させると”報告書40259パソコン”となってしまいます。
ネットでは20100322から2010/03/22の日付形式への変換の方法は多数見受けられるのですが、逆は未だ見つけられないため、投稿しました。

同じファイル名がある時は、ファイル名＋（１）のようにファイル名がダブらないようにもしたいのです。

いつも、全て手打ちでやっておりエクセルファイル保存後、ＰＤＦファイルでも同じ名前で保存しているため、可能であればＰＤＦでも保存出来ればうれしいです。
ＰＤＦはADOBE STANDARD8といきなりＰＤＦを使用しています。

ご教授よろしくお願いします。

回答No.2

keithin · ベストアンサー

sub 基本形()
dim s as string, s1 as string
dim n as long
dim p as string
p = "C:\folder\"

'基本の文字列を作る
with activeworkbook.worksheets("Sheet1")
s = .range("A1").value & format(.range("A2").value, "yyyymmdd") & .range("A3").value
end with

'ファイルの有無を調べてカウントアップする
s1 = dir(p & s & ".xls")
do until s1 = ""
n = n + 1
s1 = dir(p & s & format(n, "(0)") & ".xls")
loop

'保存する
activeworkbook.saveas filename:= p & s & iif(n = 0, "", format(n, "(0)")) & ".xlsm", fileformat:=xlOpenXMLWorkbookMacroEnabled
end sub

＃どのブックを保存したいのかも，どのシートのセルを見ているのかも，どこに保存したいのかも，情報がありません。
＃日付の文字列の整形が判らないから始まって，あれもこれもどれもそれもなんでもご相談に突っ込んで全部やって貰わないと気が済まないご相談だと，皆さんからもやっぱり引かれちゃいますよ？
　適度に整理して，ステップバイステップで判らないところを明確にしてみてください。

お礼

ご指摘ありがとうございます。いっぱいいっぱいになってしまって、あれこれとご質問した事をお詫びします。
　おっしゃる通り頭も内容も整理してから投稿するよう注意致します。
ありがとうございました。

回答No.1

mimeu

Format$(Range("A2"), "報告書yyyymmdd") & ".XLS"

お礼

回答ありがとうございます。
参考にさせていただきます。