ADO or DAO を使ったexcelの新規作成をするには？

ADO_DAO初心者 2007-02-24 01:12:19 No: 135469

タイトルどおりです。
VBでADOまたはDAOを使いexcelファイルの新規作成をしたいのですがわかりません。
もし知っている方がいましたら教えて下さい。

いろいろ調べた結果excelなりaccess(要するにoffice)があれば作れるらしいのですがofficeのない環境での作成をしています。

環境として VB6.0SP4 を使用しています。
宜しくお願い致します。

でじゃぶ 2007-02-26 06:30:24 No: 135470

MDBの次はXLSですか？

でーらー 2007-02-26 08:08:44 No: 135471

ADO or DAO を使った方法は知りませんが、ある程度簡単にできましたよ。
データも含んでいますのでちょっと長いですが・・・

Private Sub Command1_Click()

    Dim A(29) As String
    Dim I As Integer

    A(0) = "ID;PWXL;N;E"
    A(1) = "C;Y1;X1;K""あ"""
    A(2) = "C;Y13;K""て"""
    A(3) = "C;Y5;K""と"""
    A(4) = "C;Y20;K""か"""
    A(5) = "C;Y25;K""！"""
    A(6) = "C;Y16;K""い"""
    A(7) = "C;Y3;K""な"""
    A(8) = "C;Y17;K""で"""
    A(9) = "C;Y6;K""ば"""
    A(10) = "C;Y2;K""ほ"""
    A(11) = "C;Y24;K""い"""
    A(12) = "C;Y19;K""を"""
    A(13) = "C;Y9;K""か"""
    A(14) = "C;Y7;K""か"""
    A(15) = "C;Y12;K""え"""
    A(16) = "C;Y8;K""り"""
    A(17) = "C;Y22;K""な"""
    A(18) = "C;Y21;K""い"""
    A(19) = "C;Y10;K""ん"""
    A(20) = "C;Y18;K""Office"""
    A(21) = "C;Y11;K""が"""
    A(22) = "C;Y15;K""な"""
    A(23) = "C;Y14;K""い"""
    A(24) = "C;Y4;K""こ"""
    A(25) = "C;Y23;K""さ"""
    A(26) = "E"

    Open "C:\Sample.xls" For Output As #1
    For I = 0 To 26
        Print #1, A(I)
    Next I

    Close #1

End Sub