| |
▼かみちゃん さん：
早速ご回答ありがとうございます。
悩んでいましたのです。本当にうれしい回答を頂き感謝しています。
ファイルが無いとき、つまり日曜日や休日などのとき５日も遡れば
十分かと思いコードを書きましたが、
ファイルが無いときにFlagを立てるのか？SelectCaseのようなもので
対応するとできるか･･･など色々試して見たのですが、数字の低いファイルへ
遡れず困っていたのです。早速３日後会社でテストしてみます(Moを
自宅でつないでいないものですので）。
このファイルの存在の確認の仕方を覚えたく思います。
で･･･一つ質問ですが、今このコードを動作させるとこのファイルの確認の
この部分でエラー(実行時エラー52 ファイル名または番号が不正です）が
でました。Moを入れていないからでしょうか、入れていない場合でも
Exitするのでは？っと思ったりしているのですが･･･如何でしょう？
> 'ファイルの存在確認
> If Dir(str1) <> "" Then Exit For
> str1 = ""
> Next
>
> If str1 <> "" Then
> MsgBox "次のファイルを開きます。" & vbCrLf & str1
それから後１点教えていただきたいのですが・・・
実は21日から20がサイクルの１ヶ月の単位として
前月の20日締めから、今月の20日の締めが一サイクルですので、
更に、今月の20日分を
dt2 = DateAdd("m", -1, Date)として、更に同じようなコードを
書けば良いのですね。これはまた会社でテストした結果を報告させて
いただきます。
つまり日報以外に、一ヶ月の差(変動）を「集計」しているのです。
分かりづらい表現で申しわけありませんです。
でも、丁寧に見ていただき、回答頂き本当に感謝しています。
後日また報告させていただきます。何とか物にしたいと
意気込んでいます。
ではよろしくお願いします。
|
|
Mari
- 07/7/13(金) 21:57 -
