- ベストアンサー
Access2000にExcel2000のデータを読み込みたい。
Access上のVBAでExcelよりデータを読み込もうと思います。 最終行を求めるに xlUp を使用しようと思いましたが、 #実行時エラー '1004' #Rangeクラスの Select メソッドが失敗しました。 となります。 どこをがおかしいでしょうか? Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set wb = GetObject(C:\abc.xls") '---オープン確認 Set ws = wb.Worksheets("Sheet1") ws.Range("A65536").Select '----実行時エラー ws.Selection.End(xlUp).Select また、abc.xlsにマクロが含まれているためにマクロを有効にするかどうかの確認メッセージがでます。これを有効、無効どちらでもいいですが、メッセージ無しに開くにはどうすればいいでしょうか?
- みんなの回答 (4)
- 専門家の回答
お礼
ご回答ありがとうございました。 最終的には DoCmd.TransferSpreadsheet が一番楽そうなのでこれで 行こうと思います。 また、最終行の取得には d = ws.range("a65536").end(-4162).row が動きましたので、これを使わせてもらいたいと思います。 どうもありがとうございました。