Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5623 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49791】複数のテキストファイルに出力する方法 kagami 07/6/22(金) 13:49 質問[未読]
【49792】Re:複数のテキストファイルに出力する方法 ウッシ 07/6/22(金) 13:56 発言[未読]
【49793】Re:複数のテキストファイルに出力する方法 kagami 07/6/22(金) 14:13 発言[未読]
【49795】Re:複数のテキストファイルに出力する方法 ウッシ 07/6/22(金) 14:23 発言[未読]
【49796】Re:複数のテキストファイルに出力する方法 kagami 07/6/22(金) 14:52 お礼[未読]
【49794】Re:複数のテキストファイルに出力する方法 Kein 07/6/22(金) 14:22 発言[未読]
【49797】Re:複数のテキストファイルに出力する方法 kagami 07/6/22(金) 14:55 お礼[未読]
【49791】複数のテキストファイルに出力する方法
質問  kagami  - 07/6/22(金) 13:49 -
引用なし
パスワード
   こんにちは

Print関数で複数のテキストファイルを出力したいのですが
無理なのでしょうか？

現在、以下のように記述しているのですが・・・

　　Dim fNo, fNo2 As Integer

　　fNo = FreeFile
　　Open "test.txt" For Output As #fNo
　　fNo2 = FreeFile
　　Open "test2.txt" For Output As #fNo2

　　Print #fNo, "ABCDE"
　　Print #fNo2, "あいうえお"

　　Close #fNo, #fNo2

test.txtは正常に出力されるのですが
test2.txtはOpenすらされていないようです。

FSOを使用すれば出来る等の情報でも構いませんので
ご教授宜しくお願いします。
【49792】Re:複数のテキストファイルに出力する方法
発言  ウッシ  - 07/6/22(金) 13:56 -
引用なし
パスワード
   こんにちは

>Close #fNo, #fNo2
を、
>Close #fNo
>Close #fNo2

とすると、どうでしょうか？
【49793】Re:複数のテキストファイルに出力する方法
発言  kagami  - 07/6/22(金) 14:13 -
引用なし
パスワード
   ▼ウッシ さん：
>こんにちは
>
>>Close #fNo, #fNo2
>を、
>>Close #fNo
>>Close #fNo2
>
>とすると、どうでしょうか？

分けてみましたが、うまくいきません。

>Open "test2.txt" For Output As #fNo2
の際、ファイルが無ければ作成されるはずなんですが
なぜか作成されませんでした。
（既存ファイルでも更新されませんでした）

また、fNo1をCloseした後にfNo2をOpenしても
同様の結果となってしまいました。

何がいけないのでしょうか・・・・。
【49794】Re:複数のテキストファイルに出力する方法
発言  Kein  - 07/6/22(金) 14:22 -
引用なし
パスワード
   単に一つずつ処理すれば良い、というだけの事では ・・?

Dim fNo As Long

fNo = FreeFile
Open "test.txt" For Output As #fNo
Print #fNo, "ABCDE"
Close #fNo
fNo = FreeFile
Open "test2.txt" For Output As #fNo
Print #fNo, "あいうえお"
Close #fNo
【49795】Re:複数のテキストファイルに出力する方法
発言  ウッシ  - 07/6/22(金) 14:23 -
引用なし
パスワード
   こんにちは

ダメですか。

"test1.txt"、"test2.txt" の部分をフルパスにしてみて下さい。
【49796】Re:複数のテキストファイルに出力する方法
お礼  kagami  - 07/6/22(金) 14:52 -
引用なし
パスワード
   ▼ウッシ さん：
>こんにちは
>
>ダメですか。
>
>"test1.txt"、"test2.txt" の部分をフルパスにしてみて下さい。

できました！！
ありがとうございます

問題は出力ファイル名でした。
test2.txtの部分は実際には変数を使用していまして
ウッシさんのご回答でもしや！と思って確認したところ
変数の値がファイル名だけでした・・・。

ご迷惑おかけいたしました。
【49797】Re:複数のテキストファイルに出力する方法
お礼  kagami  - 07/6/22(金) 14:55 -
引用なし
パスワード
   ▼Kein さん：
>単に一つずつ処理すれば良い、というだけの事では ・・?
>
>Dim fNo As Long
>
>fNo = FreeFile
>Open "test.txt" For Output As #fNo
>Print #fNo, "ABCDE"
>Close #fNo
>fNo = FreeFile
>Open "test2.txt" For Output As #fNo
>Print #fNo, "あいうえお"
>Close #fNo

ご回答ありがとうございます。
先ほど、解決する事ができました。

Keinにもご迷惑おかけしました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5623 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free