CSVのファイルの内容をMDBにしゅつりょくするには？ (ID:109089)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 元のファイルはCSV（カンマ区切りのテキストファイル）で良いんですよね？ （エクセルファイルだとまたやり方がかわるので） こんな感じでいいのでは？ この例では読み込む変数の型をString型にして、データベースに格納するときに型変換しています。 元のCSVファイルに数値で入ってるのであれば、最初から数値型の変数にしても良いです。 Dim intFNo As Integer Dim strDate As String Dim strKubun As String Dim strCode As String Dim strKingaku As String Dim strMemo As String intFNo = FreeFile '使用可能なファイル番号を取得 Open strCSVFilePath For Input As #intFNo 'フルパスを指定してCSVファイルをオープン Do While Not EOF(intFNo) 'ファイルの終端まで繰り返す '１行分の情報を各変数に読み込む Input #intFNo, strDate, strKubun, strCode, strKingaku, strMemo 'レコードセットに１レコード追加 RS.AddNew '変数の内容を各フィールドへ格納 RS.Fields("日付").Value = CDate(strDate) RS.Fields("区分").Value = CInt(strKubun) RS.Fields("品目コード").Value = strCode RS.Fields("金額").Value = CLng(strKingaku) RS.Fields("メモ").Value = strMemo 'レコードセットを更新 RS.Update Loop Close #intFNo ’CSVファイルをクローズ