Excel VBA質問箱 IV

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

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


4327 / 13646 ツリー ←次へ | 前へ→

【57300】日付ファイルの更新について こめこめ 08/8/5(火) 17:09 質問[未読]
【57303】Re:日付ファイルの更新について kanabun 08/8/5(火) 19:32 発言[未読]
【57304】Re:日付ファイルの更新について kanabun 08/8/5(火) 19:49 発言[未読]

【57300】日付ファイルの更新について
質問  こめこめ  - 08/8/5(火) 17:09 -

引用なし
パスワード
   所定のフォルダに「DateInputTemp」という日付入力のためのテキストファイルを作ってあります。

Inputboxで「日付YYYY/MM/DDを入力してください!」と表示させ、入力された値をテキストファイル内に更新して閉じたいです。

空白またはキャンセルを押した場合は「キャンセルされました」の表示を出したいです。

マクロ初心者で分からないのですがどのような記述をしたら良いですか?

【57303】Re:日付ファイルの更新について
発言  kanabun  - 08/8/5(火) 19:32 -

引用なし
パスワード
   ▼こめこめ さん:
こんばんは。

>Inputboxで「日付YYYY/MM/DDを入力してください!」と表示させ
ることはできますか?
ヘルプで、
InputBox関数の、または、InputBoxメソッドの使用例を参照してください。

>空白またはキャンセルを押した場合は「キャンセルされました」の表示を出したいです。
関数またはメソッドの戻り値を調べるといいです。
関数なら
 If StrPtr(戻り値<文字列>) = 0 Then
   MsgBox "Cancelされました"
   Exit Sub
 End If
といった感じです。

>入力された値をテキストファイル内に更新して閉じたいです。
'-----------
ファイル番号 = Freefile()
Open テキストファイル名 For Append As ファイル番号
 Print #ファイル番号, 入力された日付
Close ファイル番号
'----------
とか、
Fso(Scripting.FileSystemObject)
の TextStreamオブジェクトなどを使うことになると思います。
参考
h t t p://www.officetanaka.net/excel/vba/filesystemobject/textstream.htm

【57304】Re:日付ファイルの更新について
発言  kanabun  - 08/8/5(火) 19:49 -

引用なし
パスワード
   ▼こめこめ さん:
>所定のフォルダに「DateInputTemp」という日付入力のためのテキストファイルを作ってあります。

上のレスは、入力された日付データをどんどんテキストファイルに追加していく
というイメージでしたが、
これが、
特定の行の特定の位置に書き込まれている 日付データを 書き換える
という意味で「更新」といっておられるのなら、単なる追加よりは
はるかに難しいです。
そのテキストファイルを いちど Excelシートに読み込んで、
そこでデータを修正して(元のテキスト形式で保存する)方法が
楽で確実な方法となります。

4327 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free