投稿日	： 2006/01/16(Mon) 14:52
投稿者	： たー
Ｅメール	：
ＵＲＬ	：
タイトル	： (VB6)Excelの行削除

VB6.0　Excel2000　Win2000Pro

VB.netの掲示板の方で、質問を出してしまったようで、こちらで再質問させて頂きたいと思います
。

まず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マクロからコピー」のところを、どのように修正すれば上手くいきますでしょうか？^^;

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

★ - (VB6)Excelの行削除 - たー 01/16-14:52No.5469
• Re: (VB6)Excelの行削除 - 魔界の仮面弁士 01/16-15:43 No.5470
  • Re^2: (VB6)Excelの行削除 - たー 01/16-16:02 No.5471