Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22925 / 76738

←次へ　｜　前へ→


	【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