Excel VBA質問箱 IV

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

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


43316 / 76732 ←次へ | 前へ→

【38466】Re:複数のCSVファイルを一つのブックに
回答  Kein  - 06/6/3(土) 15:53 -

引用なし
パスワード
   DAO を使ってアクティブシートにデータをインポートする、というマクロを
提示します。
VBEのメニュー「ツール」「参照設定」で "Microsoft DAO 3.6 Library" に
チェックを付けて、空白シートを開いて実行して下さい。
なお、CSVファイルの保存先フォルダーのパスは、定数 Ph として宣言してますが
正確なパスではありませんので、そちらで変更して下さい。

Sub MyCSV_CopyByDAO()
  Dim WS As DAO.Workspace
  Dim DB As DAO.Database
  Dim RS As DAO.Recordset
  Dim i As Long
  Dim Cnt As Boolean
  Dim MyF As String, TNm As String
  Const Ph As String = _
  "C:\Documents and Settings\User\デスクトップ\CSVフォルダ"
 
  MyF = Dir(Ph & "\*.csv")
  If MyF = "" Then
   MsgBox "CSVファイルが見つかりません", 48: Exit Sub
  End If
  Set WS = DBEngine.Workspaces(0)
  Do Until MyF = ""
   TNm = Left$(MyF, Len(MyF) - 4)
   Name Ph & "\" & MyF As Ph & "\" & TNm & ".txt"
   Set DB = WS.OpenDatabase(Ph, 0, 0, "Text;")
   Set RS = DB.OpenRecordset(TNm)
   If Cnt = False Then
     For i = 0 To RS.Fields.Count - 1
      Cells(1, i + 1).Value = RS.Fields(i).Name
     Next i
     Cnt = True
   End If
   Range("A65536").End(xlUp).Offset(1) _
   .CopyFromRecordset RS
   RS.Close: DB.Close
   Set RS = Nothing: Set DB = Nothing
   Name Ph & "\" & TNm & ".txt" As Ph & "\" & MyF
   MyF = Dir()
  Loop
  Set WS = Nothing
End Sub
2 hits

【38407】複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:08 発言
【38408】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/2(金) 8:19 発言
【38409】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/2(金) 8:23 発言
【38445】Re:複数のCSVファイルを一つのブックに maki 06/6/3(土) 8:27 質問
【38451】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 10:21 発言
【38455】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 11:14 回答
【38410】Re:複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:29 回答
【38453】Re:複数のCSVファイルを一つのブックに Hirofumi 06/6/3(土) 10:40 回答
【38458】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 12:03 発言
【38461】Re:複数のCSVファイルを一つのブックに Hirofumi 06/6/3(土) 14:23 発言
【38466】Re:複数のCSVファイルを一つのブックに Kein 06/6/3(土) 15:53 回答
【38467】Re:複数のCSVファイルを一つのブックに Kein 06/6/3(土) 15:56 発言
【38493】Re:複数のCSVファイルを一つのブックに maki 06/6/5(月) 0:19 お礼

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