質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.09%

Excel→Accessへのインポート時のフィールド別型指定

受付中

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 20K+

score 147

実現したいこと

  1. VBAで既存のテーブルに対してフィールドごとにデータ型を一括変更
  2. VBAでExcelファイルをAccessへインポートする際にフィールドごとにデータ型を指定

上記のどちらか、もしくは下記問題を解決できる方法

問題

TransferSpreadsheetで新規テーブルとしてExcelファイルをAccessにインポートする際に「長い文字列」になって欲しいフィールドが「短い文字列」としてインポートされてしまいデータが途切れているレコードが発生している。

前提

  1. Accessの仕様上最初の数行のデータからフィールドの型を自動判別しているらしいということはわかりましたが判別させるためだけに無駄に長い文字列を作るということは出来かねます。
  2. インポート元のExcelファイルのフィールド、フィールド数は変動します。

該当のソースコード

Private Sub convertDataCsv2_Click()
'CSVファイルの選択
ReturnArray = GetFileName(True, "Excelファイル (*.xlsx)|*.xlsx", "インポート")
importFilePath = 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

以上、よろしくお願いいたします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

+1

インポート定義を作成すれば良いかと思いま。この時にデータ型を指定できると思います。
Access2016であれば、外部データタブより、Excelからのデータ取込でインポート定義を作ることができます。
イメージ説明

後は、

DoCmd.TransferText acImportFixed, "インポート定義", "取込先テーブル", "取込元ファイル"


とすれば上手く取り込めるのではないでしょうか?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/06/01 15:03

    回答ありがとうございます。
    補足情報にも記載したとおり当方の環境がAccess2013で、Excelファイルのインポート時には「インポート操作」は保存できますが、「インポート定義」の保存はできないようです。

    また、前提2のようにフィールドはその都度データベースの更新に必要な項目以外削除された状態のExcelファイルのためインポート操作を保存して実行してもフィールド数が異なると正常に取り込まれないようです。

    上記のことから実現したいことの1,2が可能であれば考えに至った次第です。
    よろしくお願いいたします。

    キャンセル

  • 2017/06/01 15:37

    なるほど…
    では、かなりいびつな力技ですが、エクセル側の処理として下記とする案はどうでしょうか?
    ①1行目にダミーデータを挿入。
    ②文字列が多い列があった場合、ダミーの1行目に同じように長い文字列を入れる。
    ③Access側で、インポート完了後にそのレコードを削除する

    キャンセル

  • 2017/06/01 15:43

    または、VBAでエクセルを読み込んでその結果をもってCreate Tableするとか…
    いずれにしても、自動で一発でうまくいく方法を私は知らないですね…

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.09%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る