投稿日 | : 2007/08/09(Thu) 17:30 |
投稿者 | : 旅人A |
Eメール | : |
URL | : |
タイトル | : Re^2: 条件文で悩んでいます。 |
> ついでにお聞きしたいんですが、
>
> 現在下の様な記述で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
> ぶら下がり連続質問ごめんなさい。
書き込む文字列を
Dim WriteString As String
とかで宣言しておいて、
For文で文字列を作成。(連結)
WriteStringは書き出すときだけ使うとかで。