Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68768 / 76734 ←次へ | 前へ→

【12494】Re:特定のセルを認識してcsvに書き込む
質問  VBA素人  - 04/4/6(火) 13:21 -

引用なし
パスワード
   ありがとうございます。
テキストファイルは出来ました。が、思った結果が得られません
でした。
振り分けは上手くいったようなのですが、書き出しが、
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

1 hits

【12475】セルAに決まった文字が入っている行だけ... VBA素人 04/4/5(月) 17:29 質問
【12481】特定のセルを認識してcsvに書き込む shousuke 04/4/5(月) 23:10 回答
【12483】Re:特定のセルを認識してcsvに書き込む VBA素人 04/4/6(火) 9:33 質問
【12487】Re:特定のセルを認識してcsvに書き込む Asaki 04/4/6(火) 11:29 回答
【12494】Re:特定のセルを認識してcsvに書き込む VBA素人 04/4/6(火) 13:21 質問
【12497】Re:特定のセルを認識してcsvに書き込む Asaki 04/4/6(火) 13:39 回答
【12501】Re:特定のセルを認識してcsvに書き込む VBA素人 04/4/6(火) 13:59 質問
【12502】Re:特定のセルを認識してcsvに書き込む Jaka 04/4/6(火) 14:18 回答
【12503】Re:特定のセルを認識してcsvに書き込む Asaki 04/4/6(火) 14:20 回答
【12516】Re:特定のセルを認識してcsvに書き込む VBA素人 04/4/6(火) 17:01 お礼

68768 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free