VBからExcelに出力するには？？ (ID:84268)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どこから突っ込んでイイやら……f^_^; まず、これはExcel形式ではなくCSV形式（カンマ区切りのテキストファイル）です。 > Dim jidai(20), toti(20), koto(20), hito(20) As String これはhito()以外は全てVariant型の配列になってます。 > jidai(i) = Text1 省略するのはバグの元になります。 jidai(i) = Text1.Text とした方が良いです。 > Print #1, jidai(i), ",", sei(i), ",", toti(i), ",",koto(i), ",", hito(i) カンマで区切ると無駄なスペースが入ります。 Print #1, jidai(i) & "," & CStr(sei(i)) & "," & toti(i) & "," & koto(i) & "," & hito(i) 変数iはどこで指定しているのでしょうか？ まァ、どこで指定していたとしてもこのプロシージャ内での > Dim sei(50) As Integer > Dim jidai(20), toti(20), koto(20), hito(20) As String この宣言自体、配列にしている意味が全くありませんが……。 で、質問の同じセルに書き込むと言うのは、 > Open "C:\hyou\his.csv" For Output As #1 ここでテキストファイルを上書きしているからです。 テキストファイルに追加するなら Open "C:\hyou\his.csv" For Append As #1 として下さい。