VB６ → EXCEL にデーター出力

質問

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

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

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

回答No.3

imogasi · ベストアンサー

一部実例を挙げます。
エクセルの世界に入って後に
＞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 さん　有難うございます。早速ためしてみます。

回答No.2

imogasi

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

補足

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

回答No.1

todo36

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

お礼

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