|
ありがとうございます。
テキストファイルは出来ました。が、思った結果が得られません
でした。
振り分けは上手くいったようなのですが、書き出しが、
Aのセルのみ書き出しされていて、行全体が書き出しされて
いませんでした。
セルAに「追加」と入っているものと「削除」を入っている
ものを2つのファイルに落としたいので、下記のように
書き換えました。セルAのみだけしか書き出しされないのですが、
間違えているでしょうか?
よろしくお願いします。
Dim D_Name1 As String
Dim D_Name2 As String
Dim 検索行 As Integer
D_Name1 = "add.csv"
D_Name2 = "del.csv"
検索行 = 1
Open D_Name1 For Output As #1
Open D_Name2 For Output As #2
For 検索行 = 0 To 50 '行の数だけ
If Sheets("data").Range("a1").Offset(検索行, 0) <> "追加" Then GoTo skip1_
'追加の時は書き込み・それ以外はskip
Print #1, Sheets("data").Range("a1").Offset(検索行, 0)
skip1_:
If Sheets("data").Range("a1").Offset(検索行, 0) <> "削除" Then GoTo skip2_
'削除の時は書き込み・それ以外はskip
Print #2, Sheets("data").Range("a1").Offset(検索行, 0)
skip2_:
Next
Close #1
Close #2
|
|