質問: ReturnArray(1) If importFilePath <> "" Then 'CSVインポートの実行 Debug.Print importFilePath & " のインポート開始" DoCmd.TransferSpreadsheet acImport, 10, "data", importFilePath, True, "" Debug.Print importFilePath & " のインポート完了" Else MsgBox "キャンセルされました" End If End Sub ``` ### 補足情報(言語/FW/ツール等のバージョンなど) Access 2013 以上、よろしくお願いいたします。
回答: インポート定義を作成すれば良いかと思いま。この時にデータ型を指定できると思います。 Access2016であれば、外部データタブより、Excelからのデータ取込でインポート定義を作ることができます。 !イメージ説明 後は、 ``` DoCmd.TransferText acImportFixed, "インポート定義", "取込先テーブル", "取込元ファイル" ``` とすれば上手く取り込めるのではないでしょうか?