Excel VBA質問箱 IV

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

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


14206 / 76734 ←次へ | 前へ→

【68027】Re:CSVデータの検索について
発言  Jaka  - 11/1/26(水) 12:56 -

引用なし
パスワード
   Appendで開く前に、inputで開いてLine Inputで読み込んで、突合せをしたらどうでしょうか?
ただ、名前や住所の突合せは出来ると思いますが、年齢は数字だけですよね?
同じ数字が他に無いとも限らないと思いますから、判別が難しいそうですね。
取り合えず名前だけの場合。

Dim FileNo As Long,ReadData As String
FileNo = FreeFile
Open strInFileName For Input As #FileNo
Do Until EOF(1)
  Line Input #FileNo, ReadData
  If InStr(1, ReadData, Name_1) > 0 Then
   重複Flg = True
  End if
Loop
Close #FileNo

If 重複Flg = True Then
  msgbox "あり"
else
  AppendOpenして追加。
end If

変数名にNameとAddressは止めた方がいいですね。

1 hits

【68025】CSVデータの検索について あき 11/1/26(水) 11:35 質問
【68026】Re:CSVデータの検索について SK63 11/1/26(水) 12:53 発言
【68027】Re:CSVデータの検索について Jaka 11/1/26(水) 12:56 発言
【68029】Re:CSVデータの検索について あき 11/1/26(水) 14:08 質問
【68031】Re:CSVデータの検索について Jaka 11/1/26(水) 14:55 発言
【68035】Re:CSVデータの検索について SK63 11/1/26(水) 15:24 発言
【68033】Re:CSVデータの検索について kanabun 11/1/26(水) 15:13 発言
【68036】Re:CSVデータの検索について あき 11/1/26(水) 17:19 お礼

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