ExcelVBAにて外部データ（*.csv）をＳＱＬ文を使って抽出する方法

質問

こんにちは

ＶＢＡインポート問題で日々悩んでいるものです。

CSV形式のデータをODBCのシステムDSNに登録し、それをＤＡＯでＳＱＬ要求しデータを抽出する方法がよくわかりません。

（1）データベースの定義記述内容
（2）レコードセットにSQL命令をかける記述
（3）抽出された内容をワークシートに貼る記述

等がよくわかりません。

DAOの場合、レコードセットを定義するのに
set DB=DBEngine.OpenDatabase("******")があったり、なかったりする理由がわかりません。

突然、set rs = CurrentDb.OpenRecordset("*****")
しているのはなぜでしょうか。

回答No.4

TAGOSAKU7 · ベストアンサー

田吾作７＠３８．６度の風邪引きです。。。
返事が遅くなってすいません。昨日ほとんど寝てました。。。

作りなおしました。

質問の仕様が
１．ODBC
２．EXCELに貼り付け

とあったので、すでにODBCは無視してますが、EXCELに貼り付けは忠実に守ろうとしていました。
今回のは、完全に仕様を無視したつくりになってます。（スピード重視のため）

作りとしては
１．CSVのデータをAccessにテーブルとして取り込む
２．EXCEL形式でエクスポート＆ワークブックを開く

もしこれでもいいのであれば、こちらの方が処理が早いと思います。

Sub Main2()
　　'CSVファイルのフルパス
　　Const csvFullPath　 As String = "c:\Folder1\dmy\test.csv"
　　'EXCELファイルのパス
　　Const excelFullPath As String = "c:\test.xls"
　　'ＣＳＶファイルを取り込むテーブル名
　　Const DmyTbl　　　　As String = "DmyTbl"

　　'CSVファイルを取り込む
　　Call inCsv(csvFullPath, DmyTbl)

　　'EXCEL形式でエクスポート
　　Call outExcel(DmyTbl, excelFullPath)
End Sub

Private Sub outExcel(inTblName As String, inXlsFile As String)
　　Dim xlsApp　　　As Excel.Application
　　Dim xlsBook　　 As Excel.Workbook

　　'エクセル形式でエクスポート
　　DoCmd.TransferSpreadsheet acExport, 8, inTblName, inXlsFile, True

　　'エクセル起動をしてエクスポートされたかを確認
　　Set xlsApp = New Excel.Application
　　Set xlsBook = xlsApp.Workbooks.Open(inXlsFile)

　　xlsBook.Worksheets(inTblName).Select

　　xlsApp.Visible = True

　　Set xlsBook = Nothing
　　Set xlsApp = Nothing
End Sub
Private Sub inCsv(inFileName As String, inTblName As String)
　　Dim Db　　　As DAO.Database
　　Dim strSQL　As String

　　Dim strFile As String
　　Dim strPath As String

　　Dim wkVal　 As Variant

　　Set Db = CurrentDb

　　'とりあえずダミーを削除
　　On Error Resume Next
　　Db.TableDefs.Delete inTblName
　　On Error GoTo 0

　　'パスとファイル名に分解
　　wkVal = Split(inFileName, "\")
　　strFile = wkVal(UBound(wkVal))
　　strPath = Left(inFileName, Len(inFileName) - Len(strFile))

　　'SQL文（テーブル作成用）を作成
　　strSQL = "select * into " & inTblName & _
　　　　　　" from " & "[Text;DATABASE=" & strPath & "].[" & strFile & "]"
　　Db.Execute strSQL

　　Set Db = Nothing
End Sub

お礼

お体大丈夫ですか。
今まで、いろいろとアドバイスいただきほんとうにありがとうございます。
参考にさせていただきます。
また、わからないことがありましたらお助けください。
本件の質問はこれで終了させていただきます。