エクセルの学校：全文検索：Hyper Estraier： 20以上の丸囲み文字

Results of 1 - 1 of about 37 for 20以上の丸囲み文字 (0.008 sec.)

[[20200806214553]]: #score: 14554; @digest: b2b1b7b5da1f4d171314ccccf71cfaf8; @id: 84733; @mdate: 2020-08-07T15:07:02Z; @size: 3159; @type: text/plain; #keywords: ピノ (11456), 注表 (8496), 日& (7162), 160 (5710), yyyymmdd (5139), ク検 (3858), ノ） (3560), 表( (3486), 日前 (3264), プミ (2710), 始日 (2076), desktop (1971), 日= (1886), 本日 (1877), 発注 (1714), 数宣 (1630), ィエ (1517), ミデ (1512), エイ (1350), 宣言 (1323), users (1311), format (1304), （ピ (1282), 強制 (1195), 変失 (1176), ファ (981), 開始 (894), 角ス (873), デバ (858), イミ (851), 構文 (830), ーメ (806); 『過去日付ファイルを開きたい』（ピノ）
お世話になります。 VBAでファイル名に5日前の日付が付いているファイルを開きたいのですが、ファイルは存在するのに、ファイルが存在しないというエラーメッセージが出てしまいます。構文を以下の通り、記載しましたが、間違っている箇所が分かれば、教えていただけないでしょうか。 ※エラーメッセージに5日前の日付は表示されるので、日付は取れているようです。 Sub test () Dim 本日 As Variant  '本日日付変数     本日 = Format(Date, "yyyymmdd")         '5日前のファイルを開く         開始日 = 本日 - 5                      Workbooks.Open Filename:= _         "C:¥Users¥mi¥Desktop¥新しいフォルダー¥ " & 開始日 & "発注表(05)" & ".xlsx" End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- ＞ファイルは存在するどうやって確認しましたか? ↓だと■のところに半角スペースがありますが、正しいのですか? "C:¥Users¥mi¥Desktop¥新しいフォルダー¥■" & 開始日 & "発注表(05)" & ".xlsx" （もこな2） 2020/08/06(木) 21:56 ---- もこな2様有難う御座います! すみません、半角スペースに気付いていませんでした… 無くしたら、きちんと開くことができました。大変失礼しました。ご指摘ありがとうございました! （ピノ） 2020/08/06(木) 22:28 ---- ■1 結局いつもの"タイプミス"でしたか・・・おかしいな?とおもったらステップ実行してチェックしてみたり、イミディエイトで何が返ってくるか確かめたりして、自分でデバッグ作業をされるとよいとおもいます。 ■2 余談になりますが、提示されたコードでは「開始日」の宣言がされていません。基本的に、変数の宣言は強制するように設定しておいたほうがよいでしょう。 http://officetanaka.net/excel/vba/beginner/06.htm ■3 提示されたコードで、↓のようになっている部分ですが、今回は偶然にうまくいったかもしれませんが Format(Date, "yyyymmdd") - 5 Format(Date - 5, "yyyymmdd") 本来は↑でないとまずいでしょう。（試しに10日前にしてみればわかるかと思います） Sub 実験() Debug.Print Format(Date - 10, "yyyymmdd") Debug.Print Format(Date, "yyyymmdd") - 10 End Sub ■4 ふまえて、コードを整理するとこんな感じでよいとおもいます。 Sub てきとー() Const MyPath As String = "C:¥Users¥mi¥Desktop¥新しいフォルダー" Dim buf As String buf = Format(Date - 5, "yyyymmdd") & "発注表(05).xlsx" Workbooks.Open Filename:=MyPath & "¥" & buf End Sub （もこな2 ） 2020/08/07(金) 00:13 ---- ■3について、コメントつけていたら、問題があることには、自分で気づかれたようですね・・・ [[20200806235620]] 『ファイル名が可変日付のファイルをフォルダ移動したい』（ピノ）（もこな2 ） 2020/08/07(金) 00:19 ---- もこな2様いつもありがとうございます。いつものタイプミスで大変失礼いたしました。デバック検証をきちんとできるように心がけます。イミディエイトウィンドウとローカルウィンドウ、使いこなせるように頑張ります。変数宣言も失念しておりました。ご教授いただいた変数宣言の強制設定、行いました! そして、たまたまだったんですね… 正しい構文もありがとうございます…。おかげさまで、希望の処理ができました。有難うございました。（ピノ） 2020/08/08(土) 00:07 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202008/20200806214553.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ