| |
初めまして今までエクセルを使っていて最近アクセスを使い始めた者なので
すが、質問がありまして投稿させていただきました。既出でしたら申し訳あり
ませんがご容赦ください。
エクセルのシートをアクセスへインポートするマクロを以下のように作り
ました。
※アクセスのテーブルの名前とエクセルのシート名は同じです。後、実際は
もう少しテーブルが多いです。
ですが、初めのＦＲＯＭ句のところでエラーがでます。また、このようなマ
クロでなく、ＡＤＯで書かないと現在開いているデータベース以外にもテーブ
ルを検索して処理を実行してしまうものなのでしょうか。
ネットなどを調べても、うまくいきません。初歩的な質問ですみませんがも
し、ご存知の方がいらっしゃいまたら、お教え願えませんでしょうか。
Option Compare Database
Function mac()
On Error GoTo mac_Err
Dim Tcount As Integer
Dim TName As Variant
TName = Array("T_01", "T_02", "T_03", "T_04", "T_05")
'インポートするとデータが重複するので最初にテーブルのデータを削除
For Tcount = LBound(TName) To UBound(TName)
DoCmd.RunSQL "DELETE * FROM TName(Tcount)"
Next
'エクセルのシート（テーブルと同じ名前）をインポート
For Tcount = LBound(TName) To UBound(TName)
DoCmd.TransferSpreadsheet acImport, 8, TName(Tcount), "C:\AS.xls", True, TName(Tcount)
Next
mac_Exit:
Exit Function
mac_Err:
MsgBox Error$
Resume mac_Exit
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 11/5/17(火) 18:05 -
