|
Input関数でCSVファイルを読み取ろうとしたのですが、
何故か読み取れませんでした。調べてみると、そのデータは
ラインフィードChr(10)で区切られているデータは読み取れない様です。
インプットモードで有効なのは
キャリッジリターン(CHR(13))
改行コード(Chr(13))+Chr(10))
私の作ったツールは以下の通りです。
Sub Count_Row
Dim InputData() As String
Dim FileNum As Integer 'ファイルナンバー
Dim i As Long
Dim MaxRow As Long
Dim fname As String
Dim Cnt As Integer
FilePath = Dir1.Path & "\" & lstFileList.List(Cnt)
FileNum = FreeFile '空きファイル番号取得
i = 1
Open FilePath For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum, LineData
ReDim Preserve InputData(i) As String
InputData(i) = LineData
i = i + 1
Loop
Close #FileNum
End Sub
どうやったら、ラインフィードの行データを読み取ることが出来るでしょうか?
キャリッジリターン、改行コードの行データも同時に読み取れればよいのですが。
|
|