tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル(VB6)Excelの行削除
記事No2884
投稿日: 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マクロからコピー」のところを、どのように修正すれば上手くいきますでしょうか?^^;

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

[ツリー表示へ]
タイトルRe: (VB6)Excelの行削除
記事No2885
投稿日: 2006/01/14(Sat) 23:31
投稿者じゃんぬねっと
参照先http://jeanne.wankuma.com/
VB6 ならば板違いですよ。
hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi

[ツリー表示へ]
タイトルRe^2: (VB6)Excelの行削除
記事No2902
投稿日: 2006/01/16(Mon) 14:50
投稿者たー
申し訳ありません。

ご指示頂きました方で、再質問させて頂きます。

以上、失礼致しました。

[ツリー表示へ]