マクロで今日の日付フォルダーに保存

TOMSO_YA 2005-11-20 00:06:04 No: 127950

マクロで今日の日付フォルダーに保存  セル値を参照したフォルダー名を作成して  同じ名前でファイル保存です。

まったくの初心者なので  よろしくおねがいします。

なな 2005-11-20 02:24:15 No: 127951

０から説明するのは非常に骨が折れる仕事なので、
何処まで理解されているか。何処まで出来ているかを説明してください。

TOMSO_YA 2005-11-20 03:11:03 No: 127952

おそくなってすいません

'Dim tDate As String
tDate = Format(Date, "mm.dd")
MkDir "C:\\" & tDate

でフォルダーを作成はしたのだけれど

ここからすすまないのです。

TOMSO_YA 2005-11-20 03:35:11 No: 127953

ActiveWorkbook.SaveAs Filename:= _
        "C:\\" & Range("A1").Value,
    FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="",                   ReadOnlyRecommended:=False _
        , CreateBackup:=False
セル値を参照したファイル保存はできるのですが
ここからさき
初心者で申し訳ないです。

あん 2005-11-20 03:43:31 No: 127954

セーブされる場所がちがくなるってことかな？

> "C:\\" & Range("A1").Value
"C:\" & tDate & "\" & Range("A1").Value,
でどうですか？

TOMSO_YA 2005-11-20 03:57:29 No: 127955

なぜがエラーがでるのですがどうしたらいいのでしょうか

あん 2005-11-20 04:04:36 No: 127956

どこでエラーがでてますか？

TOMSO_YA 2005-11-20 04:07:10 No: 127957

実行時エラー1004 がでるのですが
まったくわからないもので
おしえてください

あん 2005-11-20 04:10:06 No: 127958

エラーは
>MkDir "C:\\" & tDate
ここかな？

フォルダ名に"."が使用できないからですね
とりあえず.をとって

>tDate = Format(Date, "mm.dd")
tDate = Format(Date, "mmdd")
MkDir "C:\" & tDate
としてみてください。

あん 2005-11-20 04:12:18 No: 127959

>実行時エラー1004 がでるのですが
場所を教えてもらえないのでこれ以上
アドバイスできません。

TOMSO_YA 2005-11-20 04:14:59 No: 127960

どうしたらいいのでしょうかやはり同じエラーがでるのですが
すいません
よろしくおねがいします。

TOMSO_YA 2005-11-20 04:20:38 No: 127961

デスクトップにフォルダーを作成して
エクセルで仮に"A1"を参照してファイルを保存したのですが、今日の日付をフォルダーで作成してセル値を参照して（A1）のフォルダーを作成てさらに"A1"を参照してファイルを保存したのですが、
よろしくお願いします。

あん 2005-11-20 04:26:06 No: 127962

うーんよくわかりません。
A1にはフォルダ名、ファイル名どっちがはいってるの？
A1の内容を教えてください。

TOMSO_YA 2005-11-20 04:33:23 No: 127963

今日の日付，A1参照したフォルダー，A1を参照したファイル名です。
つまりフォルダー名とファイル名は同じです。
その一つ上の断層が今日の日付になります。
よろしくお願いしますl。