DoCmdでExcelデータをAccessにインポートしたい。

Question

前提・実現したいこと

AccessVBAでの質問です。
現在ExcelデータをAccessにインポートしたいです。

こちらのサイトを参考にDoCmdを使ってインポートをしようと試みました。
https://officeforest.org/wp/2020/06/22/access-vba%E3%81%A7excel_csv%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92%E3%82%A4%E3%83%B3%E3%83%9D%E3%83%BC%E3%83%88%E3%81%99%E3%82%8B/

該当のソースコード

'passionテーブルにインポートする
DoCmd.TransferSpreadsheet acImport, , "passion", strpath, True, "passion!A2:CC"

・passion!A2:CCで2行目からCC列の最終行までの値をインポートしたい

試したこと

いろいろ確認していくと、
困ったことに100列ほどあるエクセルの元データに改行やスペース入っているフィールド名が存在しました。
(Accessテーブルのフィールド名には改行やスペースを使用できないので、_に変換しました)

2行目から値を取得して、そのまま貼り付けようとしたのですが、2行目から値を取得しているにも関わらずフィールド名をしっかり確認しているようで「〇〇フィールドは存在しません」という改行フィールド名の部分でエラーが出てしまいます。

Excelのフィールド名は他のプログラムとの関連があるため、仕様上変更できないのですが、このようなエクセルの2行目より下の値をAccessに取り込む場合、どのように対応したらよいでしょうか？

DoCmdが無理ならFor文で１つずつInsertしかない？等、はっきりとした解決方法にたどり着けず、まだまだ経験不足を痛感しております。

こちらについての対処方法お分かりになられる方いらっしゃいましたらご教授ください。
よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

(Accessテーブルのフィールド名には改行やスペースを使用できないので、_に変換しました)

フィールド名に改行は使用できませんが、スペースは使用できます。

'passionテーブルにインポートする
DoCmd.TransferSpreadsheet acImport, , "passion", strpath, True, "passion!A1:CC"

上記のように1行目（見出しを含む）からインポートすればフィールド名の改行は _ に変換されてインポートできます。フィールド名のスペースはそのままでインポートされます。

Comments

[ataru2222]

ありがとうございます。
手動で改行やスペースを変換しまったのが原因の気がしますので、一度自動でフィールド名も取り込んで、エクセルファイルと一致させる方向で進めていきます。

ありがとうございました。