| |
>Aのセルのみ書き出しされていて、行全体が書き出しされていませんでした。
A列しか出力してませんからね。
GoToはあまりお薦めしません。
また、カウンタ変数にはLong型をお薦めします。
ちょっと書いてみました。
動作確認していませんので、動かないかも。。。
Sub test()
Dim D_Name1 As String
Dim D_Name2 As String
Dim 検索行 As Long
Dim i As Long
Dim str As String
D_Name1 = "add.csv"
D_Name2 = "del.csv"
Open D_Name1 For Output As #1
Open D_Name2 For Output As #2
With Sheets("data")
For 検索行 = 0 To 50 '行の数だけ
str = ""
Select Case .Cells(検索行, 1).Value
Case "追加"
For i = 1 To .Cells(検索行, 256).End(xlToLeft).Column
str = str & vbTab & .Cells(検索行, i).Value
Next i
Print #1, Mid(str, Len(vbTab) + 1)
Case "削除"
Print #2, Mid(str, Len(vbTab) + 1)
End Select
Next 検索行
End With
Close #1
Close #2
End Sub
|
|
Asaki
- 04/4/6(火) 13:39 -
