• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• cx202015/09/10 01:27:48

  満足500pt

  文字コードを指定して CSV ファイルをインポートするには、schema.ini (※) にて CharacterSet（文字コード）を定義することで可能です。
  ※ schema.ini は、テキストドライバが CSV ファイルを読み込む際に、データ構造を定義するファイルになります。
  
  ＜サンプル用フォルダ構成＞

  C:\home\edu\access\csv
  　　test.mdb … インポート先 MDB
  　　test.csv … インポート元 CSV（UTF-8 形式）
  　　schema.ini … test.csv 用定義ファイル
  　　ImportToMdbFromCsv.vbs … インポート用 VBScript
  

  
  

  ＜Access / tbl_test テーブル定義＞

  	フィールド名	データ型
  主キー	field1	数値型
  	field2	短いテキスト
  	field3	短いテキスト

  ＜schema.ini＞

  [test.csv]
  ColNameHeader=True
  Format=CSVDelimited
  CharacterSet=65001
  Col1=field1 Integer
  Col2=field2 Text Width 256
  Col3=field3 Text Width 256
  

  ＜test.csv＞

  "field1","field2","field3"
  1,"こんにちは","日本語テスト"
  2,"你好","中国語テスト"
  3,"안녕하세요","韓国語テスト"

  ＜ImportToMdbFromCsv.vbs＞

  ' File Name : ImportToMdbFromCsv.vbs
  ' Usage : CScript ImportToMdbFromCsv.vbs
  Option Explicit
  
  ' コードの簡略化の為、取り込み元ファイル名は「test.csv」としています。
  ' また、エラー処理（重複チェック等）は一切入っていない為、使用の際は適宜修正をお願いします。
  Const strFilePath = "C:\home\edu\access\csv"
  Const strMdbName = "test.mdb" ' インポート先MDB
  Const strCsvName = "test.csv" ' インポート元CSV
  
  Call Main()
  
  Sub Main()
      Dim cn
      Set cn = CreateObject("ADODB.Connection")
      cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & strFilePath & "\" & strMdbName
      Dim strSQL
      strSQL = "INSERT INTO tbl_test " & _
          "SELECT * FROM " & "[Text;Database=" & strFilePath & "].[" & strCsvName & "]"
      cn.Execute strSQL
  End Sub
  

  
  

  ＜実行方法＞

  C:\C:\home\edu\access\csv> CScript ImportToMdbFromCsv.vbs
  

  
  

  ＜実行結果＞

  field1	field2	field3
  1	こんにちは	日本語テスト
  2	你好	中国語テスト
  3	안녕하세요	韓国語テスト

  ＜参考＞

  ■ 備忘録: ADODBでUTF-8のCSVを取り込む
  http://my-business-adversaria.blogspot.jp/2012/08/adodbutf-8csv.html
  ■ テキスト ファイルのフィールドを定義する方法
  http://blog.esrij.com/arcgisblog/2010/06/schemaini-301f.html

  スター

この質問へのコメント

質問の情報

登録日時

2015-09-06 12:52:00

終了日時

2015-09-13 12:55:03

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 一般的に、大学の定期試験の平均点が80点以上は、優秀ですか？YSK7312日前
• オススメの趣味はありますか？匿名質問者313日前
• 香り研究所（ https://kaori-lab.com/ ）でおすすめ香水として紹介されているtokotowa organicというブラン…匿名質問者12日前
• 参考書で地学を学んでいます. 表計算 解き方 分かりません （⼤気の炭素量,?((?, ?!"!, ?) （⾵化フラック…ronpao23時間前
• Evernote立ち上げ時に以下のようなエラーがでます。 こちらで何らかのエラーが発生しました。申し訳ありま…popparty062622日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ