VB６ → EXCEL にデーター出力

いつも、お世話になります。　ＶＢ６側で作成されたデーターＥＸＣＥＬに書き出したいと思い色々と試していますがうまく行きません。

　●　Sheet4,Sheet5 を追加
　●　データーにより　Sheet1,2,3,4,5 に書き出す
　●　Sheet1 の A列の幅を20桁に指定


過去ログを調べて見ましたが、目が悪いのか頭が悪いのか
うまく見つけられませんでした。
どなたか　ご指導のほど　お願い致します。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2004/03/17 23:21

一部実例を挙げます。

エクセルの世界に入って後に
＞Sheet4,Sheet5 を追加
Sub test04()
Sheets.Add.Name = "Sheet18"
End Sub
＞Sheet1 の A列の幅を20桁に指定
Sub test03()
Worksheets("sheet1").Range("a1").ColumnWidth = 20
End Sub
＞データーにより　Sheet1,2,3,4,5 に書き出す
Sheet１へのデータの書き込みを終りにして、Sheet2に移るタイミングかキッカケはどういうものですか。Sheet１の列は何列で、何行データを書くのか判らないと・・・。
基本的にCells(i，j)＝（データの値）（iは行、列はj)
の繰り返しで、１セル書きこむとi=i+1しておけば良い。

この回答へのお礼

Imogasi さん　有難うございます。早速ためしてみます。

お礼日時：2004/03/18 16:56

No.2 回答者： imogasi 回答日時： 2004/03/17 20:11

>ＶＢ６側で作成されたデータ

具体的にどう言う「データ形式」で作成したのか、振れないと、回答が具体的に出来ないと思います。
補足してみてください。
１，２レコード分を実例で挙げてもらえば判るでしょう。
CSV、TXT、PRNなどのテキスト系のデータかと思いますが
データ形式はそれらだけではありませんから。

この回答への補足

ありがとうございます。具体例をあげるとＳＱＬ server から ADOを使い、データーをSelect して、その結果をEcel に転送しようとしています。
SQL Dbから得られるデーターは営業担当の売上金額なので
担当ごとに Sheet に別けたいと思っています。

補足日時：2004/03/17 23:10

No.1 回答者： todo36 回答日時： 2004/03/17 20:04

1.Excelでマクロの記録

2.生成されたコードを参考にExcelVBAで試作する
3.VBに移植(Excel.Applicationオブジェクト)

この回答へのお礼

todo36 さん　有難うございます。

お礼日時：2004/03/18 16:58