Sub 実行Main()
Dim CSVPath As String
Dim LastRow As Long
Dim LastColumn As Long
'取得するCSVのパス'
CSVPath = "C:\Users\xxxx\test.csv"
'行数の取得'
LastRow = getLastRow(CSVPath)
'列数の取得'
LastColumn = getLastColumn(CSVPath)
End Sub
'************************************'
'取込むCSVファイルの行数を取得'
'************************************'
Function getLastRow(CSVPath As String) As Long
Dim buf As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(CSVPath, 1)
buf = .ReadAll
.Close
End With
getLastRow = UBound(Split(buf, vbCrLf)) - 1
Set FSO = Nothing
End Function
'************************************'
'取込むCSVファイルの列数を取得'
'************************************'
Function getLastColumn(CSVPath As String) As Long
Dim buf As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(CSVPath, 1)
buf = .ReadLine
.Close
End With
getLastColumn = UBound(Split(buf, ",")) + 1
Set FSO = Nothing
End Function
