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

タイトル (VB6)Excelの行削除
投稿日: 2006/01/14(Sat) 16:25
投稿者たー
[OSのVer]:Windows2000Pro  [VBのVer]:VB6.0 [ExcelのVer]:Excel2000

まずExcelの方で、マクロを録画?し、下記のコードを書いているのですが、「変数が定義されてい
ません」と表示されてしまいます。

*****コード*****
Dim objExcel            As Object                   'アプリケーション(エクセル)
Dim objWB               As Object                   'ワークブック
Dim objWS               As Object                   'ワークシート

    'Excel起動
    Set objExcel = CreateObject("Excel.Application")
    'テンプレートオープン
    objExcel.Application.Workbooks.Open pstrDATAPATH
'    テスト用 表示
    objExcel.Application.Visible = True
    Set objWS = objExcel.ActiveSheet

    For i = 0 To 10000
        
        If (Mid(strJOBNo, 2, 1) = "A") Then
            '行削除
            objWS.Rows(CStr(i + 2) & ":" & CStr(i + 2)).Select   'Ex
celマクロからコピー
            objWS.Selection.Delete Shift:=xlUp           'Excelマクロからコピ

            
            i = i - 1
        End If

    Next i
    
    '保存メッセージ消去
    objExcel.Application.DisplayAlerts = False
    'Excel Close
    objExcel.Application.Workbooks.Close
    'Excel終了
    objExcel.Application.Quit
    'Excel開放
    Set objExcel = Nothing
*****コード*****

「Excelマクロからコピー」のところを、どのように修正すれば上手くいきますでしょうか?^^;

最近プログラムをやり始めたばかりで、よく分かっていませんので、回答宜しくお願い致します。

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

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