ACCESS2000でExcelから特定フィールドをインポートしたい

締切済

質問者：pooh-tan
質問日時：2002/11/22 11:42
回答数：3件

ACCESS2000でExcelから特定のフィールドをインポートしたいのですが、
うまくいきません。

Excelはフィールド数が254フィールドもあり、
テーブルにインポートしたいフィールド数は30フィールドです。

Excelでは特定フィールドをインポートすることができないようなので、
一時テーブルに全てのフィールドをインポート後
必要なフィールドだけ取り出そうとやってみたのですが、
以下のコードを実行すると、13のフィールドが「解析不能なフィールド」と
インポートエラーが出てしまいます。

DoCmd.TransferSpreadsheet acImport, 8, "TEMPテーブル", "c:\data.xls"

また、Excelファイルをcsv形式に変換して、インポート定義を作る方法も
やってみたのですが、インポート定義作成時に
「フィールド'ID'はインポートまたはエクスポートしようとしている
テーブルまたクエリに存在しません」
というエラーが出てしまいます。

どうしたらインポートできるでしょうか。よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： imogasi
回答日時：2002/11/22 23:46

ＣＳＶファイルの項目（フィールド）の１部をＣＳＶファイルにするコーディングを作りました。

あとＭＤＢに読みこませるのは略しましたが、お望みなら別途。
ＤＯＳ・ＢＡＳＩＣ的ステートメントを使っていますが
よろしく。
（１）エクセルファイルが開いているとして
　　　「ファイル」「名前を付けて保存」をクリック。
　　　「ファイルの種類」はＣＳＶ
　　　「ファイル名」は「１３年家計簿.csv」
「保存」をクリック
　　　　c:\My Documents\１３年家計簿.csvが出来る。
（２）新規Ｂｏｏｋ１を開きツール－マクロ－ＶＢＥ
　　　そして挿入－標準モジュール
　　　下記を貼り付ける。
（３）Sub test01()
Open "c:\My Documents\１３年家計簿.csv" For Input As #1
Open "c:\My Documents\１３年家計簿p.csv" For Output As #2
a = Array(0, 1, 2, 3, 4, 6, 999, 0, 0, 0, 0, 0, 0, 0)
While Not EOF(1) = -1
Line Input #1, r
' MsgBox r
s = 1
k = 0
m = 1
t = ""
p1:
p = InStr(s, r, ",")
If p = 0 Then p = Len(r) + 1
rp = Mid(r, s, p - s)
' MsgBox rp
s = p + 1
pm = s
k = k + 1
If a(m) = k Then
t = t & rp & ","
m = m + 1
End If
If p = Len(r) + 1 Then GoTo p2
GoTo p1
p2:
' MsgBox t
Print #2, Mid(t, 1, Len(t) - 1)
Wend
Close #1
Close #2
End Sub
（４）実行する。
c:\My Documents\１３年家計簿p.csvが出来る。
上例ではaのarrayに指定した、第1, 2, 3, 4, 6フィールドのみ拾い、他は捨てたＣＳＶファイルが出来る。
aのarrayの中の数字で、残したいフィールドが左より
第何番目かをテーブル化してください。昇順のこと。
（５）解説
s---レコード内での毎回「,」を探し始める位置。第何文字目から文字検索をはじめるか。Ｉｎｓｔｒの説明を本で見てください。
p---レコード内で「,」の見つかった位置。先頭から何文字目に見つかったか。
m---a配列の第何要素を見ているかのポインタ数字。
k---第何番めのフィールドかを表す数字。
r---読みこんだ１レコード（１行）をいれる文字列変数。
・１フィールドづつきりだしa配列にある、番目のフィールドは拾い、無ければ捨てて、フィールド集合を文字列として再構成し、＃２に書き出している。
１０列１００行程度のデータでテスト済み。