Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
520 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79935】セルにある日付をファイル名に反映 いち 18/5/30(水) 9:42 質問[未読]
【79937】Re:セルにある日付をファイル名に反映 よろずや 18/5/30(水) 12:29 発言[未読]
【79938】Re:セルにある日付をファイル名に反映 いち 18/5/30(水) 13:01 回答[未読]
【79939】Re:セルにある日付をファイル名に反映 よろずや 18/5/30(水) 15:59 発言[未読]
【79940】Re:セルにある日付をファイル名に反映 いち 18/5/30(水) 17:24 質問[未読]
【79943】Re:セルにある日付をファイル名に反映 よろずや 18/5/30(水) 23:29 回答[未読]
【79935】セルにある日付をファイル名に反映
質問  いち  - 18/5/30(水) 9:42 -
引用なし
パスワード
   A1に日付が入ったセルがありまして
その日付の月をファイル名の先頭に付けることは可能でしょうか？

例としては
A1に"2018/06/05"とあった場合に
マクロを実行すると
ファイル名の頭に"06-"と付くようにする

どなたかお分かりになる方がいましたらご教授いただければと思います。

以上、宜しくお願い致します。
【79937】Re:セルにある日付をファイル名に反映
発言  よろずや  - 18/5/30(水) 12:29 -
引用なし
パスワード
   ▼いち さん：
>A1に日付が入ったセルがありまして
>その日付の月をファイル名の先頭に付けることは可能でしょうか？

ご自分では、どこまでやってみましたか？
【79938】Re:セルにある日付をファイル名に反映
回答  いち  - 18/5/30(水) 13:01 -
引用なし
パスワード
   ▼よろずや さん：
>▼いち さん：
>>A1に日付が入ったセルがありまして
>>その日付の月をファイル名の先頭に付けることは可能でしょうか？
>
>ご自分では、どこまでやってみましたか？

色々調べては見たものの、見当がつかず手付かずです･･･
【79939】Re:セルにある日付をファイル名に反映
発言  よろずや  - 18/5/30(水) 15:59 -
引用なし
パスワード
   ▼いち さん：
>色々調べては見たものの、見当がつかず手付かずです･･･
ファイル名の変更は保存するときにしか出来ないということは理解しておられますか？

1. セルから月を取り出す。
2. 自ブックのファイル名を取り出す。
3. 1.と2.を結合する。
4. ファイル名を変更して保存する。

4.は出来ますか？
【79940】Re:セルにある日付をファイル名に反映
質問  いち  - 18/5/30(水) 17:24 -
引用なし
パスワード
   ▼よろずや さん：
>▼いち さん：
>>色々調べては見たものの、見当がつかず手付かずです･･･
>ファイル名の変更は保存するときにしか出来ないということは理解しておられますか？
>
>1. セルから月を取り出す。
>2. 自ブックのファイル名を取り出す。
>3. 1.と2.を結合する。
>4. ファイル名を変更して保存する。
>
>4.は出来ますか？

はい。大丈夫です。
ちなみにファイル名を変更しつつ上書き保存というのは出来ますでしょうか？
【79943】Re:セルにある日付をファイル名に反映
回答  よろずや  - 18/5/30(水) 23:29 -
引用なし
パスワード
   ▼いち さん：
>▼よろずや さん：
>>▼いち さん：
>>>色々調べては見たものの、見当がつかず手付かずです･･･
>>ファイル名の変更は保存するときにしか出来ないということは理解しておられますか？
>>
>>1. セルから月を取り出す。
>>2. 自ブックのファイル名を取り出す。
>>3. 1.と2.を結合する。
>>4. ファイル名を変更して保存する。
>>
>>4.は出来ますか？
>
>はい。大丈夫です。
じゃぁ、手付かずと言うほどでもないですね。
そこに、追加していきましょう。
myMonth = Format(Range("A1").Value, "mm")
myPath = ThisWorkbook.Path
myName = ThisWorkbook.Name
ここまで出来たら見せてください。

>ちなみにファイル名を変更しつつ上書き保存というのは出来ますでしょうか？
別名で保存すれば別ファイルになります。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
520 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free