Excel VBA質問箱 IV

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

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


52562 / 76732 ←次へ | 前へ→

【29006】Re:csvファイルの取り込み
回答  だるま WEB  - 05/9/21(水) 11:41 -

引用なし
パスワード
   こんにちは

こんな感じでいかがでしょうか。^d^

Sub test()
  Dim Dic As Object
  Dim myData As Variant
  Dim i As Long
  Dim S As String
  Dim rngDest As Range
  
  Dim myPath As String
  Dim N As Integer
  Dim V As Variant
  
  '辞書機能を使う
  Set Dic = CreateObject("Scripting.Dictionary")
  
  '元データと初期書き込み先
  With Workbooks("B.xls").Worksheets("Sheet1")
    myData = .Range("A1", .Range("C65536").End(xlUp)).Value
    Set rngDest = .Cells(UBound(myData) + 1, 1)
  End With
  
  '辞書に登録
  For i = 1 To UBound(myData)
    S = myData(i, 1)
    S = S & "," & myData(i, 2)
    S = S & "," & myData(i, 3)
    Dic.Item(S) = Empty
  Next
  
  'テキストファイル
  myPath = ThisWorkbook.Path & "\a.txt"
  N = FreeFile
  
  '読み込み
  Open myPath For Input As #N
  Do Until EOF(N)
    Line Input #N, S
    V = Split(S, ",")
    '同じ行が無ければ
    If Not Dic.Exists(S) Then
      rngDest.Resize(, 3).Value = V
      Set rngDest = rngDest.Offset(1)
      Dic.Item(S) = Empty
    End If
  Loop
  Close #N
  
  Set rngDest = Nothing
  Set Dic = Nothing
End Sub
0 hits

【29005】csvファイルの取り込み kao 05/9/21(水) 10:18 質問
【29006】Re:csvファイルの取り込み だるま 05/9/21(水) 11:41 回答
【29008】Re:csvファイルの取り込み kao 05/9/21(水) 12:01 質問
【29010】Re:csvファイルの取り込み だるま 05/9/21(水) 13:12 回答
【29013】Re:csvファイルの取り込み kao 05/9/21(水) 14:19 質問
【29016】Re:csvファイルの取り込み だるま 05/9/21(水) 15:30 回答
【29019】Re:csvファイルの取り込み kao 05/9/21(水) 18:33 お礼

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