CSVをMDBにインポートする際に、１行目をスキップする方法 (ID:117133)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

皆様
どうぞ、ご教授ください。

CSVをMDBに取り込む処理を書いているのですが、
そのCSVの１行目をどうしてもスキップさせる必要性があります。
可能な限り"INSERT INTO "で取り込む方法は変えたくないので 
ＣＳＶの１行目だけを飛ばして処理を開始するようにしたいのですが
どのように記述すればいいものなのでしょうか。

どうかよろしくお願いいたします。

Public Sub Import(strDbPath As String, strTblName As String, strTxtPath As String)
    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset
    Dim wsTxt As Workspace
    Dim dbTxt As Database
    Dim rsTbl As Recordset
    Dim strConnect As String
    Dim strSql As String
    Dim intRet As Integer

On Error GoTo ErrHandler

Set wsTxt = DBEngine.Workspaces(0)
    Set dbTxt = wsTxt.OpenDatabase(StripFileName(strTxtPath), 0, 0, "Text;")

Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(strDbPath, False, False)

strConnect = "[Text;database=" & StripFileName(strTxtPath) & "]."
    'テーブルにテキストデータの内容を追加（見出しレコードは必要  ※2行目）
    strSql = "INSERT INTO " & strTblName & " SELECT * FROM " & strConnect & MakeFilename(strTxtPath)
    db.Execute strSql

db.Close
    dbTxt.Close
    ws.Close
    wsTxt.Close
    Exit Sub
ErrHandler:
    intRet = MsgBox("<" & Err & ">" & Error(Err), vbOKOnly, "Import")
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る