FrontPage 新規 編集 検索 一覧 ヘルプ

BBS-雑談/10

空行は改行したい - のぶこ (2003年09月26日 14時58分33秒)

入力ファイルが空行だった場合出力のエクセルファイルには改行を入れたいのです。スペースを確保する意味があります。可能でしょうか?

最後のElse文(2行)を追加してみてくださいな。

 Dim strLine, arrData
 Dim iRow, iCol
 While Not objText.AtEndOfStream
     strLine = objText.ReadLine           ' 一行読み込み
     If objRE.Test(strLine) Then          ' シート名なら・・・
         If iRow Then
             objWB.Application.Run MACRO  ' マクロ起動
         End If
         Set objWS = objWB.Sheets.Add         ' ワークシート追加
         objWS.Name = strLine                 ' シート名設定
         iRow = 1                             ' 行を先頭にセット
     ElseIf Trim(strLine) <> "" Then      ' シート名でなければ・・・
         arrData = Split(strLine, ",")        ' データ取得
         For iCol = 1 To UBound(arrData) + 1  ' フィールド数ループ
             objWS.Cells(iRow, iCol) = arrData(iCol - 1)
         Next
         iRow = iRow + 1
     Else                                 ' 空行でも・・・
         iRow = iRow + 1                      ' 行を変える
     End If
 Wend

{{comment}}

Yesterday Today Total