Excel VBA質問箱 IV

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

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


22919 / 76732 ←次へ | 前へ→

【59185】Re:Excelファイルの結合をするには????
発言  Yuki  - 08/12/1(月) 17:14 -

引用なし
パスワード
   ▼夜勤担当 さん:
こんにちは。。
>
> 複数のExcelファイル(タイトル同じ)をひとつのファイルに丸めることは
>可能でしょうか?
>
>ファイル数:15
>レコード数:1500明細/ファイル

ADOを使ってやってみました。
Microsoft ActiveX Data Object X.X Library
へ参照設定

シート名は全て Sheet1 でタイトルも全部同じとして
保存ディレクトリの中のエクセルを全部読込みます。

Sub Temp3()
  Dim cn   As ADODB.Connection
  Dim strFnm As String
  Dim strDir As String
  Dim strSnm As String
  Dim strSQL As String
  
  'ブックをデータベースとして接続書込みするエクセルファイル
  strFnm = ThisWorkbook.FullName
  Set cn = New ADODB.Connection
  With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source").Value = strFnm
    .Properties("Extended Properties").Value = "Excel 8.0"
  End With
  cn.Open
  
  ' 読込みするエクセルのディレクトリ
  strDir = ThisWorkbook.Path & "\AAA\"
  ' 読込みするエクセルのファイル名に * を付ける(Loopする為)
  strSnm = strDir & "*Sample*.xls"
  ' Dir のお決まり
  strSnm = Dir(strSnm)
  
  Do While strSnm <> ""
    '追加クエリー実行
    strSQL = "INSERT INTO [Sheet1$] " & _
         "SELECT * FROM [Sheet1$] " & _
              "IN '" & strDir & strSnm & "' " & _
                "'Excel 8.0;HDR=YES'"
    cn.Execute CommandText:=strSQL
    strSnm = Dir()
  Loop
  'オブジェクト変数の解放
  cn.Close
  Set cn = Nothing
End Sub

0 hits

【59088】Excelファイルの結合をするには???? 夜勤担当 08/11/27(木) 13:05 質問
【59089】Re:Excelファイルの結合をするには???? Jaka 08/11/27(木) 13:23 発言
【59091】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/28(金) 7:27 質問
【59094】Re:Excelファイルの結合をするには???? Jaka 08/11/28(金) 10:28 発言
【59128】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/29(土) 22:33 質問
【59129】Re:Excelファイルの結合をするには???? ponpon 08/11/29(土) 22:50 発言
【59138】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/30(日) 12:54 質問
【59150】Re:Excelファイルの結合をするには???? ponpon 08/11/30(日) 18:43 発言
【59345】Re:Excelファイルの結合をするには???? 夜勤担当 08/12/7(日) 16:18 質問
【59353】Re:Excelファイルの結合をするには???? ponpon 08/12/7(日) 23:14 発言
【59181】Re:Excelファイルの結合をするには???? Jaka 08/12/1(月) 15:06 発言
【59346】Re:Excelファイルの結合をするには???? 夜勤担当 08/12/7(日) 16:24 質問
【59358】Re:Excelファイルの結合をするには???? Jaka 08/12/8(月) 14:02 発言
【59185】Re:Excelファイルの結合をするには???? Yuki 08/12/1(月) 17:14 発言

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