VBAでどうしてもコーディングができず、ヒントをもらえたらうれしいです

質問

VBAでどうしてもコーディングができず、ヒントをもらえたらうれしいです。
（VBA超初心者で、ネットのエクセルVBAなどを参考にしているのですが、なかなかわからず。。。）

【csvファイルを指定して、1行目から7行目までを削除する】というプログラムがくみたいです。

Sub TQT()

Dim PathName As String
Dim FileNam As String
Dim xlAPP As Application
Dim ABC As Workbook

Application.DisplayAlerts = False

Set xlAPP = Application
PathName = xlAPP.GetOpenFilename("CSV形式ファイル(*.csv;),*.csv;", 1, "開きたいファイルを指定してください。")

Set ABC = ThisWorkbook
FileNam = Dir(PathName)
Set ABC = Workbooks.Open(PathName)

ABC.Activate
Workbooks.Open FileNam = PathName
'行を削除
activeWorkbooks(ABC).worksheets("sheet1").Row("1:7").delete　←※

MsgBox "done"

End Sub

※のところでデバッグが止まってしまいます。
activeworkbookの書き方が間違っているのか、
そもそもそれ以前に間違いがあるのか、
わかる方がいたら教えてください。

※の行を色々アレンジしてみたのですが、うまくいきません。

よろしくお願い致します。（excel2003）

回答No.1

hoiho160000

時間がないので気づいたところ

１.　activeWorkbooks(ABC).

　　Workbooks(ABC)でいいのではありませんか？

２.Set ABC = ThisWorkbook
　　FileNam = Dir(PathName)
　　Set ABC = Workbooks.Open(PathName)

　　ABCに２度変数を格納していますね
　　また、２回目の変数にメソッドを格納しようとしています
　　これは不要ですね

３.　Workbooks.Open FileNam = PathName
　　　名前付引数は　:=で記載するので　＝ではありません

お礼

お忙しい中、回答していただきありがとうございました。

参考になるページをコピペしてつかっていたので、workbooks とか　activework・・・　とかなんだかよくわからずにしていました！

余分なところを削除して、あと、シート名がファイル名になっていたところを直したらうまくコンパイルができました★（１日かかってしまいました（秘；））

おかげさまです。ありがとうございました。