CSVの件数 (ID:79441)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 TextStreamを使ってAtEndOfLineがTrueになるまでSkipLineして その回数を数えればレコード数が取得できます。 こんな感じ。 Dim oFS As FileSystemObject Dim oTxt As TextStream Dim lCnt As Long Set oFS = New FileSystemObject Set oTxt = oFS.OpenTextFile("Test.csv", ForReading) lCnt = 0 With oTxt Do Until (.AtEndOfLine) .SkipLine lCnt = lCnt + 1 Loop .Close End With Set oTxt = Nothing Set oFS = Nothing Debug.Print lCnt