Excel操作を２回してもエラーが起きないようにするには？ (ID:127207)

名前

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

本文

VB6 SP6    ORACLE 10g  Office 2000

初めての投稿です。
初心者で質問の内容、ソースの不十分などがあるかもしれませんが
どうかご教授お願いいたします。

概要：
エクセルにSQLで抽出したデータを書き込みたい。

状況：
１回目はエクセルに書き込めますが２回目は書き込めません。

エラー：
実行時エラー'1004'
'Range'メソッドは失敗しました:'_Global'オブジェクト

未熟な私は何をどうしたらいいのかわかりません。
何が原因かも考えたり、ネットで探してみましたがよく理解できませんでした。

以下にソースを載せます。よろしくお願いします。

Dim ssTEST      As Object                      'セッション
Dim dbTEST      As Object                      'データベース
Dim sSQL        As String                      'SQL文
Dim dsTEST      As OraDynaset                  'ダイナセット
Dim LX          As Long			       'カウンタ
Dim EApp        As New Excel.Application       'エクセルの宣言
Dim eBook       As Workbook                    'ブックの宣言

Private Sub Command1_Click()

sSQL = "" _
            & " SELECT [データ] FROM [テーブル] " _
            & "  ORDER BY [データ] "
            
    Set dsTEST = dbTEST.CreateDynaset(sSQL, 4)

LX = 1
    Set eBook = EApp.Workbooks.Add
    
    '*****１行目のフォントサイズを１８に設定******
    Range("A1:D1").Select                       '*  ←ここでエラー
    With Selection.Font                         '*
        .Size = 18                              '*
    End With                                    '*
    '*********************************************
    
    '*******セルのBとDの列の幅を５に設定**********
    Columns("B:D").Select                       '*
    Selection.ColumnWidth = 5                   '*
    '*********************************************
    
    Do Until dsTEST.EOF
        eBook.Worksheets(1).Range("A" & LX) = dsTEST.Fields("[データ]").Value
        LX = LX + 1
        dsTEST.MoveNext
    Loop
    
    'ダイナッセットの開放
    Set dsTEST = Nothing
    eBook.Close
    EApp.Quit
    Set EApp = Nothing
    Set eBook = Nothing
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る