| タイトル | ： (VB6)Excelの行削除 |
| 記事No | ： 2884 |
| 投稿日 | ： 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マクロからコピー」のところを、どのように修正すれば上手くいきますでしょうか？^^;
最近プログラムをやり始めたばかりで、よく分かっていませんので、回答宜しくお願い致します。
|