Csvファイルの最終行を取得する構文はこれであっていますか？オブジェクトは、このプロパティまたはメソ

Csvファイルの最終行を取得する構文はこれであっていますか？オブジェクトは、このプロパティまたはメソッドをサポートしていません、とエラーが出てしまいます。正しい構文を教えてください。

Dim lstrow as long
lstrow = workbooks(“XX.csv”).range(“a1”).end(xldown).row

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/12/26 17:49

こんにちは

シートの指定が抜けていますね。

lstrow = workbooks(“XX.csv”).Worksheets("Sheet1").range(“a1”).end(xldown).row
とか。

「Sheet1」以外の名称が付けられている様なら、そのシート名で指定してください。
あるいは、左からのシート順でよければ
　Worksheets(1)
とかでも良いです。


end(xldown)で最終行を取得する場合、列の途中に空白セルが存在するとそこまでとなります。
（空白セルがないと仮定でき、かつ、全セルが空白でもないという場合には、問題ありません）
もしも途中に空白セルがあるような場合には、End(xlUp)で求める方が良いでしょう。

No.3 回答者： めぐみん_ 回答日時： 2022/12/26 20:05

多分気のせいでしょうけど、XX.csvファイルはＥｘｃｅｌアプリケーションで事前に開いているものですよね？

開かずにファイルの最終行取得を考えてますか？

No.1 回答者： bonaron 回答日時： 2022/12/26 15:14

strow = workbooks(“XX.csv”).activesheet.range(“a1”).end(xldown).row

とか。