投稿日 | : 2007/08/09(Thu) 15:58 |
投稿者 | : yama |
Eメール | : |
URL | : |
タイトル | : Re: 条件文で悩んでいます。 |
ついでにお聞きしたいんですが、
現在下の様な記述でcsvに書き込んでいます。
For文を使ってスマートにしたいのですが可能でしょうか?
OpenFileNum = FreeFile
Open TargetFilePath(0) For Append As #OpenFileNum
Write #OpenFileNum, frm_Input.Text1.Text, frm_Input.Text2.Text, _
Name(0), Code(0), Count(0), Unit(0), Note(0), _
Name(1), Code(1), Count(1), Unit(1), Note(1), _
Name(2), Code(2), Count(2), Unit(2), Note(2), _
Name(3), Code(3), Count(3), Unit(3), Note(3), _
Name(4), Code(4), Count(4), Unit(4), Note(4), _
Name(5), Code(5), Count(5), Unit(5), Note(5), _
Name(6), Code(6), Count(6), Unit(6), Note(6), _
Name(7), Code(7), Count(7), Unit(7), Note(7), _
Name(8), Code(8), Count(8), Unit(8), Note(8), _
Name(9), Code(9), Count(9), Unit(9), Note(9), _
Name(10), Code(10), Count(10), Unit(10), Note(10), _
Name(11), Code(11), Count(11), Unit(11), Note(11), _
Name(12), Code(12), Count(12), Unit(12), Note(12), _
Name(13), Code(13), Count(13), Unit(13), Note(13), _
Name(14), Code(14), Count(14), Unit(14), Note(14)
Close #OpenFileNum
ぶら下がり連続質問ごめんなさい。