VBAでの行削除について
教えてください。
現在、VBAを使用して、CSVファイルの編集をしたいと考えています。
フォルダ内に数個のCSVファイルがあり、それらにすべて同じ処理（行削除など）をしたいのです。
下記のようなプログラムです。
Sub getting()
Dim myPath As String
Dim myFName As String
Dim FCnt As Integer
Dim A(500) As String
MsgBox CurDir()
Workbooks("自動処理.xls").Activate
myPath = ActiveWorkbook.Path
MsgBox myPath
ChDir myPath
FCut = 0
myFName = Dir("*.csv")
If myFName <> "" Then
FCut = FCut + 1
A(FCut) = myFName
Do
myFName = Dir()
If myFName <> "" Then
FCut = FCut + 1
A(FCut) = myFName
MsgBox A(FCut)
Else
Exit Do
End If
Loop
End If
MsgBox "「" & myPath & "」には、" & FCut & "個のファイルがあります。"
Dim i As Integer
Dim seet As String
Dim ws As Object
Dim FullPath As String
For i = 1 To 1
seet = Left(A(1), 6)
FullPath = myPath & "\" & A(i)
'Workbooks.Open(FullPath).Activate
Open FullPath For Append As #1
Print #1, Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Print #1, Range("A1").Value = ""
Print #1, Range("A1").Value = "COMP_NAME"
Print #1, Range("B1").Select
Print #1, ActiveCell.Value; "PC_OS"
Print #1, Range("C1").Select
Print #1, ActiveCell.Value = "OS_SUB_VERS"
Print #1, Range("D1").Select
Print #1, ActiveCell.Value = "IP_ADDR"
Print #1, Range("E1").Select
Print #1, ActiveCell.Value = "LOCATION "
Close #1
' Workbooks(A(i)).Save
' Workbooks(A(i)).Close savechanges:=False
Next i
End Sub
教えていただきたいのは、どうにかworkbook.openを使わず、ファイルを編集できるところまでいったのですが、ファイルを開かずに行を削除することができません。
＞Print #1, Rows("1:1").Select
＞Selection.Delete Shift:=xlUp
＞Rows("2:2").Select
＞Selection.Delete Shift:=xlUp
ファイルを開かずに行削除をできるものなのでしょうか。
ご存知の方がいれば教えてください。
よろしくお願いいたします。
お礼
できました。ありがとうございます。 もうひとつお伺いしたいのですが、 "画像１"、"画像２"を同時に削除することは可能でしょうか？