AccessでExcelを読み込んだ時のヘッダーを知りたい

Question

AccessでExcelを読み込んだ時に、すべてのデータ項目がExcelにあったか確認したいです。

例えば、以下のコードでExcelを、Accessの「t読込用」のテーブルに読み込んだとします。

DoCmd.TransferSpreadsheet acImport, , "t読込用", Me.TXT_path, True

Excelのデータのヘッダーは、Ａ，Ｂ，Ｃ，Ｄとします。

しかし、Excelのヘッダーが、Cのない、A,B,C でもインポートされます。
その場合、Dのヘッダーがないことを確認したいです。

どうすれば、読み込んだエクセルのヘッダーを確認できるでしょうか。

とりあえず、エクセルを１行だけ読み込んで調べることにしました。
しかし、エクセルを１行だけ読み込む方法がわかりません。
調べても、CSVを読み込む方法しか見つかりません。

次に、エクセルを読み込んで、データのないところはヘッダーが無いことにしようと思いました。
しかし、その場合、エクセルにデータがない場合と区別できません。

よろしくお願いします。

Answer 1

インポート自体を破棄する場合には、インポートしたテーブルに対し必要な項目でselectしてみてエラーで判断する方法もあります。
※[where false]とするとデータの読み込みは行われずSQL文がエラーかどうかだけの判断になります。

  DoCmd.TransferSpreadsheet acImport, , "t読込用", Me.TXT_path, True
On Error GoTo Err_Exit
  Currentdb.OpenRecordset ("select [項目名], [項目名], ・・・ from t読込用 where False")
On Error GoTo 0

Err_Exit:
   MsgBox "指定のレイアウトではありません"

項目の有無で判断して処理の分岐をさせるような場合には、Fieldsコレクションを調べる方が良いでしょう。

Comments

[d_neko]

回答ありがとうございます。
とても勉強になりました。
>項目の有無で判断して処理の分岐をさせるような場合には、Fieldsコレクションを調べる方が良いでしょう。
項目の有無でsqlを作ろうと思っています。だから、「Fieldsコレクションを調べる方」ってのがいいようです。

[sazi]

蛇足ですが、Fieldsコレクションはインポートしたテーブルでも確認できますので、敢えてリンクテーブルを作らなくても良いと思います。

[d_neko]

す、すみません・・・かなり動揺しています。
>敢えてリンクテーブルを作らなくても良いと思います。
インポートした後に、項目があったかどうかチェックできるのでしょうか？

今回やりたいことは、エクセルを読み込んで、そのデータの存在する項目を確認してSQLを作るです。

[sazi]

> インポートした後に、項目があったかどうかチェックできるのでしょうか？
TransferSpreadsheet では指定したテーブル名で都度エクセルの内容で作成されるので、どのみちインポートするなら、インポートしたテーブルのFieldsコレクションを調べても同じことなので、リンクテーブルを作成しなくても良いという意味です。

Answer 2

エクセルをリンクテーブルとして取り込んで、そのフィールドを確認すればいいでしょう。

Public Sub エクセルのフィールド確認()
    DoCmd.TransferSpreadsheet acLink, , "tリンク用", Me.TXT_path, True

    Dim db As DAO.Database, fld As DAO.Field
    Set db = CurrentDb
    For Each fld In db.TableDefs("tリンク用").Fields
        Debug.Print fld.Name
    Next
    
    DoCmd.DeleteObject acTable, "tリンク用"

End Sub

Comments

[d_neko]

回答ありがとうございます。
想像以上にシンプルな手順で、希望がかなえることができました。