VBAにてファイル名”21mmdd_Mほげほげ.txt”を”21（指定した%04d)

お世話になっております。

VBAで文字列操作をしようとしております。

VBA
1    Dim tounenndo,shinnendo,koushinGetsuNiti As String
2    tounenndo = Range("B11").Value　'excelに表記してあるファイル名取得
3　　koushinGetsuNiti  = Range("B12").Value　'更新日時取得
4    koushinGetsu   =  Range("B12").Value　'更新月取得
5'   ココに何か書いて
6'    shinnendo = hogehoge
7'   としたい

上記のようなVBAで
tounendo に　　　”210805_7月全社完工高と利益（R3期以降）.xlsx”
koushinGetsuNitiに”0910”　、koushinGetsuに"8"　と入っている時に
shinnendo　に　　”210910_8月全社完工高と利益（R3期以降）.xlsx”
と変更する文字列変換の方法を知りたい時には
何という語句でグーグルさんで調べれば良いがご助力頂けますようお願い申し上げます。

”文字列　変換”などでググっても見つけられなかったのです……
なんでVBAにはsprintfみたいなのが無いのだろうか……

何か情報をお持ちな方はコメント頂けますようお願い申し上げます。

行動規範の内容に同意します

回答3件

ベストアンサー

「VBAにはsprintfみたいなの」で検索すれば見つかるよ。

ただ、この程度なら、

vba
1    shinnendo = "21" & koushinGetsuNiti & "_" & koushinGetsu & Mid(tounendo, 9)

でいいんじゃない。

投稿2021/09/29 05:55

hatena19

総合スコア33808

ma2hiro

2021/09/29 06:22

shinnendo = "21" & koushinGetsuniti & "_" & shortmonth & Mid(tounenndo, 9) で解決しました。ありがとうございました。助かりました。

行動規範の内容に同意します

tounendoからMid関数で右の部分を取り出し、
koushinGetsuNitiと"_"とkoushinGetsuとそれを&で結合すればよいかと。

投稿2021/09/29 05:41

編集2021/09/29 05:42

itagagaki

総合スコア8402

ma2hiro

2021/09/29 06:24

itagagaki様コメントありがとうございます。仰る通りなのですがプログラマ畑から管理畑に移動したのですぐに出てこなくてテンパってしまい質問してしまいました(^_^;) なんとか解決出来ました。コメントありがとうございます。

itagagaki

2021/09/29 06:31

(-_-)

行動規範の内容に同意します

VBA Format 関数
によると
month = Format(month, "##")
やら
month = Format(month, "00")
でも出来そう

投稿2021/10/19 04:49

ma2hiro

総合スコア159

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.45%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

VBAにてファイル名”21mmdd_Mほげほげ.txt”を”21（指定した%04d)_(M+1)ほげほげ.txt”　と変換したい

関連した質問