CSVファイルの空白について (ID:117556)

名前

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

本文 １行の項目数が１０個だと仮定するとこんな感じでどうでしょう Dim iFileNo As Integer Dim strFileName As String Dim strBuffer As String Dim strData() As String Dim lngCount As Long Const ColCount As Integer = 10 lngCount = -1 strFileName = "C:\hogehoge.csv" iFileNo = FreeFile Open strFileName For Input As #iFileNo Do Until EOF(iFileNo) Line Input #iFileNo, strBuffer lngCount = lngCount + 1 ReDim Preserve strData(lngCount) If strBuffer = "" Then '空白行の場合、空データ作成 strData(lngCount) = String$(ColCount - 1, vbTab) Else strData(lngCount) = Replace(strBuffer, ",", vbTab) End If Loop MSFlexGrid1.Cols = ColCount MSFlexGrid1.Rows = UBound(strData) + 2 MSFlexGrid1.Col = 0 MSFlexGrid1.Row = 1 MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1 MSFlexGrid1.Clip = Join(strData, vbCr)