すみません。教えてください。
AccessVBAでエクセルのシートをインポートしたいのです。
いつも同じ行数ではありませんのでrange指定を埋め込むわけに行きません。
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", "c:\test\test.xls", True, "a1:p6000"
でインポートできるのですが
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", "c:\test\test.xls", True, ""
range指定をしないとエラーになります。(出来ると書いてあるが)
sheet1、ワークシート名とかの指定が出来ればと思い、いろいろ試してみたのですが出来ません。
宜しくお願いいたします。
No.6ベストアンサー
- 回答日時:
うまくいかない場合は原因を追及することをお勧めします。
とりあえずマクロで正常に動くかをやってみれば、VBAの構文のミスなのか、それ以外に原因があるのかわかるかと思います。
マクロのアクションに「ワークシート変換」を選択し、下記内容の設定をしてみてください。
変換の種類: インポート
ワークシートの種類: Microsoft Excel 8-9
テーブル名: 給与データ報告書
ファイル名: c:\user\test.xls
範囲名: 給与データ報告書!
このマクロが正常に動くかどうかを確認して、正常に動けば「マクロをVisualBasicに変換」を行ってVBAスクリプトを確認することができると思います。
マクロが正常に動かなければ、シート名を英数だけの名称にするなど簡単なものしてどうなるかを確認してみてください。
少なくともこちらでは同様の内容でインポートできていますので、MDB自身に何か問題があるのかもしれません。その場合一度最適化をすると正常に動くようになるかもしれません。
この回答への補足
>うまくいかない場合は原因を追及することをお勧めします。
ありがとうございます。この言葉に力を得て続けました。
/*このマクロが正常に動くかどうかを確認して、正常に動けば「マクロをVisualBasicに変換」を行ってVBAスクリプトを確認することができると思います。
マクロが正常に動かなければ、シート名を英数だけの名称にするなど簡単なものしてどうなるかを確認してみてください。*/
ようやく解決いたしました。
VBAで9個のXLSファイルを読み込み順次インポートを繰り返すDo--Loopを作成しました。
最初に読み込むエクセルと、他に2つのエクセルファイルが問題でした。
エクセルで見るとみんな同じでPの後にはなにも入っていないように見えます。しかし実際は何か入っていてAccessの項目数より大きかったのです。マクロのアクションに「ワークシート変換」をしたらフィールド17~フィールド23(あるものはフィールド20まで)まで後ろについていました。
これらの項目をエクセルから削除し(正確には新しいワークシートを作成し、そこにコピペしました。)実行したところ
DoCmd.TransferSpreadsheet acImport, 8, "給与データ報告書", Infile, True, ""
が動きました。
ありがとうございました。
見た目と違うエクセルシートでしたので混乱いたしました。
本当にありがとうございました。
ただ、シートを渡しても加工されてかえされるとどうしようもないです。
DoCmd.TransferSpreadsheet acImport, 8, "給与データ報告書", Infile, True, "給与データ報告書!a1:p6000"
でNull飛ばしをした方が安全かも知れません。
長い間お手数をかけました。
ありがとうございました。
No.5
- 回答日時:
DoCmd.TransferSpreadsheet acImport, 8 , "給与データ報告書", Infile, True, "給与データ報告書!"
と指定してみてください。
この回答への補足
本当にありがとうございます。
DoCmd.TransferSpreadsheet acImport, 8 , "給与データ報告書", Infile, True, "給与データ報告書!"
駄目でした。
暫定処置として
DoCmd.TransferSpreadsheet acImport, 8 , "給与データ報告書", Infile, True, "給与データ報告書!a1:p6000"
3000データ以上はないと思うので安全を見て6000行までとしインポートをかけました。
インポート先のテーブルに一意のキーを設定しヌル行を読み飛ばすようにしました。
少し悔しいです。
No.4
- 回答日時:
>ワークシート名は”給与データ報告書”です。
であれば、
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書"
でインポートできると思いますが。
試しにご自身で複数ワークシートのあるブックを、インポートウィザードでインポートしてみてください。必ずシート名を選択する画面が出てくると思います。
ACCESSではシート名を指定してインポートできます。
この回答への補足
ご丁寧に教えていただきありがとうございます。
>複数ワークシートのあるブックを、インポートウィザードでインポー>トしてみてください。必ずシート名を選択する画面が出てくると思い>ます。
これは承知していますのですが・・・。
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書!a1:p6010"
上記記述 成功
以下の記述はすべてエラーになります。
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書"
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書!"
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書$"
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "!給与データ報告書$"
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "!給与データ報告書"
No.3
- 回答日時:
"Sheet1!a1:p10"ではなく、"Sheet1"と書いたらどうなりますか?
普通にインポートできると思いますが。
この回答への補足
お手数をかけます。
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "給与データ報告書!a1:p10"
DoCmd.TransferSpreadsheet acImport, , "給与データ報告書", Infile, True, "a1:p10"
ワークシート名は”給与データ報告書”です。
ちなみにワークシート名そのままで”Sheet1"、”Sheet1$”をrengeの箇所に書いても駄目でした。
Infileのところに"c:\test\test.xls"が入りますがここでワークシート名を指定するのでしょうか?
だとすると書き方がわかりません。
"c:\test\test.xls.給与データ報告書"
"c:\test\test.xls.給与データ報告書$"
"c:\test\test.xls!給与データ報告書"
"c:\test\test.xls!給与データ報告書$"
試しましたが駄目でした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA ワークシート指定の1行目を選択をしたい 2 2022/08/20 18:10
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Access VBA インポート シート指定
Excel(エクセル)
-
Accessのマクロを使用してExcelのシートをインポートしたい
Access(アクセス)
-
ACCESS2000でExcelから特定フィールドをインポートしたい
Access(アクセス)
-
-
4
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
5
excelインポート時の「実行時エラー2391」を事前に検知する方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
Excelマクロ 差分抽出の方法が...
-
EXCEL の表を一行ずつシートに...
-
EXCELで2つのファイルから重複...
-
【マクロ】同じフォルダ内にあ...
-
VBAで CTRL+HOMEの位置へ移動...
-
オートフィルタで抽出したデー...
-
トランジスタの選び方
-
Excel VBA2つのシートのデータ...
-
エクセルで複数の条件を抽出し...
-
エクセルのカメラ機能について
-
エクセルで名簿を50音で切り分ける
-
ユーザーフォームで別シートを...
-
重いExcelファイルのことで教え...
-
Excelで日付変更ごとに、自動的...
-
【エクセルマクロ】複数シート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
excelの不要な行の削除ができな...
-
VBAで CTRL+HOMEの位置へ移動...
-
(VBAにて)日付でデータを抽出す...
-
EXCELで2つのファイルから重複...
-
他のシートの一番下の行データ...
-
エクセルのカメラ機能について
-
トランジスタの選び方
-
別々のシートの表をピボットテ...
-
エクセル 縦に長い表の印刷時...
-
EXCEL 複数行のデータを1行にま...
-
【エクセル」 特定のセルで条件...
-
オートフィルタで抽出したデー...
-
Excel 売上管理シートに入力し...
-
エクセル VBA VLOOKUP
-
EXCEL の表を一行ずつシートに...
おすすめ情報