[[20141216104936]]　『空白行の削除について』（minoru）　ページの最後に飛ぶ

『空白行の削除について』（minoru）

前スレ

ループしない
http://www.excel.studio-kazu.jp/kw/20141129001641.html

ディレクトリのパスについて
http://www.excel.studio-kazu.jp/kw/20141116094527.html

お世話になります。

皆様にご教授いただき、上記スレ（ループしない）のコードを使用して
おりますが、
読込元のファイル（a.csv)に空白行が入力されているのかどうかわかり
ませんが、出力されたファイルに（b.csv)も空白行が出力されているよ
うです。　

b.csvを開いてデータの最終行より最下行までの空白行を削除すると容量が
大きく減少します。

そこで、
出力されたoutFile（b.csv)の空白行を削除するか？
または、s.csvのデータがある行だけを読み込ませるかしたいのですが

空白行削除でコードの検索をしているのですが、どのようにコードに
組み込めばよいのか見当がつきません。

下記に使用中のコードを記載いたしますので、よろしくお願いします。

 Option Explicit
 Private Declare Function SearchTreeForFile Lib "imagehlp.dll" _
    (ByVal RootPath As String, _
     ByVal InputPathName As String, _
     ByVal OutputPathBuffer As String) As Long
 Private Const MAX_PATH = 512
 Private Const MAX_PATH_PLUS1 = MAX_PATH + 1

Private Sub CSVファイル編集()

    'ファイル選択
    myFile = Application.GetOpenFilename("CSV,*.csv", Title:="CSVファイルを選択")
    If VarType(myFile) = vbBoolean Then Exit Sub
    myPath = Left$(myFile, InStrRev(myFile, "\"))

    Dim io As Integer
    Dim oo As Integer
    Dim Filename As String

    Filename = Format(Now(), "mmddhhmm")

    Dim outFile As String
    outFile = myPath & Filename & "b.csv"
        'outFile = Application.GetSaveAsFilename(outFile, "CSV,*.csv", "保存ファイル")

    outFile = InputBox("出力ファイル名", "ファイル保存", outFile)
    If StrPtr(outFile) = 0& Then Exit Sub
    io = FreeFile()
    Open myFile For Input As io
    oo = FreeFile()
    Open outFile For Output As oo

    Dim ss As String
    Dim y As Long
    Dim v
        Line Input #io, ss            'a.csvの１行目を読込（ダミー）
    Do While Not EOF(io)
        Line Input #io, ss            'a.csvの2行目から読込

　　　・
　　　・
　　　・

　　y = y + 1 '行カウンタ

        Print #oo, Join(S, ",")  'カンマ区切りを連結した文字列を出力 ダミーで見出行を回避

    Loop
    Close io, oo
    MsgBox "出力しました", , outFile

 End Sub

＜使用 Excel：Excel2007、使用 OS：WindowsXP ＞

質問者したばかりですが、最後のLoop　の後に
空白行マクロを組むことで希望のことができたと
思いますので、質問取り下げます。

（minoru） 2014/12/16(火) 13:14

コメント返信：

[ 一覧(最新更新順) ]

[[20141216104936]] 『空白行の削除について』（minoru） ページの最後に飛ぶ

[[20141216104936]]　『空白行の削除について』（minoru）　ページの最後に飛ぶ