Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1302 / 9994

←次へ　｜　前へ→


	【11990】配列を利用したテーブルのインポートについて

アクセスＶＢＡ初心者 - 11/5/17(火) 7:35 -


	引用なし

	パスワード

　初めまして今までエクセルを使っていて最近アクセスを使い始めた者なので
すが、質問がありまして投稿させていただきました。既出でしたら申し訳あり
ませんがご容赦ください。

　エクセルのシートをアクセスへインポートするマクロを以下のように作り
ました。
　※アクセスのテーブルの名前とエクセルのシート名は同じです。後、実際は
もう少しテーブルが多いです。
　ですが、初めのＦＲＯＭ句のところでエラーがでます。また、このようなマ
クロでなく、ＡＤＯで書かないと現在開いているデータベース以外にもテーブ
ルを検索して処理を実行してしまうものなのでしょうか。

　ネットなどを調べても、うまくいきません。初歩的な質問ですみませんがも
し、ご存知の方がいらっしゃいまたら、お教え願えませんでしょうか。

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

722 hits

▼

【11990】配列を利用したテーブルのインポートについて アクセスＶＢＡ初心者 11/5/17(火) 7:35