tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Excel処理の繰り返しでNG
投稿日: 2010/02/11(Thu) 16:35
投稿者ぽよ〜ん
いつも参考にさせて頂いております。
VB6からExcelファイルにアクセスして、行を選択した後、繰り返しコピーを
行ないたいのですが、1回目は正常?に動いているように見えますが、
プログラムを起動したまま再度繰り返すと目的の処理がうまく行えません。
チョッとした設定ミスがあるかも知れませんが相当悩んでおります。
解決方法をご教授頂けたらと思います。宜しくお願い致します。

Private Sub Command1_Click()
Dim i As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\xlTestFile.xls")
Set xlSheet = xlBook.Worksheets("Sheet1")
'xlTestFile.xls は予め用意をしておく
'B5:E10 まで格子状に罫線を引いただけのファイルで保存しておく
    On Error Resume Next
    ' Excel画面を非表示にして実行
    xlApp.Visible = True
    
    With xlSheet
        .Activate
        For i = 1 To 5
            .Rows("10:10").Select   '行を選択
            With Selection          'コピーして下へ
                .Copy
                .Insert Shift:=xlDown
            End With
        Next
        ' 下線を二重線で引く
        .Range("B15:E15").Select
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlDouble
            .Weight = xlThick
            .ColorIndex = xlAutomatic
        End With
    End With

    '保存時の問合せを非表示に設定
    xlApp.DisplayAlerts = False
    ' オブジェクトを解放します。
    Set xlSheet = Nothing
    xlBook.Close            'Book を閉じる
    Set xlBook = Nothing
    ' Quit メソッドを使って Excel を終了します。
    xlApp.Quit
    Set xlApp = Nothing
    
End Sub

Private Sub Command2_Click()
    End
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。