実行時エラー"1004"「"Range"メソッドは失敗しました："

AccessのVBAからExcelを開いて指定行を固定する操作をしたいです。

ACCESS
1   Dim ExcelApp As Object
2   Dim ExcelBook As Object
3
4   Set ExcelApp = CreateObject("excel.application")
5   ExcelApp.Visible = True
6   Set ExcelBook = ExcelApp.Workbooks.Open(StrFile)
7
8 ExcelBook.Worksheets("Sheet1").Activate
9   range("C2").Select
10   ActiveWindow.FreezePanes = True
11   ExcelBook.Save
12   ExcelBook.Close
13   ExcelApp.Quit
14   Set ExcelBook = Nothing
15   Set ExcelApp = Nothing

（関係ないコードは省きました）

「range("C2").Select」の行でエラーが起こっており、要するにRangeがうまくセレクトできないという意味だと思います。
このエラーでググって試行錯誤しましたがどうにもよくわかりませんでした。
実行すると表題のエラーが出るときと出ないときがあり、解決方法が見いだせない状況です。

よろしくお願いします。

行動規範の内容に同意します

回答2件

他アプリと連携するようなVBAを使ったことがないので正確にどのオブジェクトから呼べばいいのかわからないですが、RangeはあくまでExcelに対して呼ぶものなので、Excelのオブジェクトに対して呼ばないと、上手く動かないと思います。

そのままRangeを呼ぶと、それはAccessに対する操作になってしまって失敗しているのではないかと思います。

投稿2015/11/10 08:35

maisumakun

総合スコア145932

Koji

2015/11/11 01:18

回答ありがとうございます。 accessからexcelを操作するので呼び出しは正確にしないといけないということですよね。参考になりました、ありがとうございます。

行動規範の内容に同意します

ベストアンサー

その行を下記のように変更したらいかがでしょうか？

ExcelBook.Worksheets("Sheet1").range("C2").select

変数ExcelBookはWorkbookオブジェクトとして認識されていて、
Worksheetのオブジェクトが認識されていないのでは?
下記コードを追記してもよいのかと思います。
Dim WS As Object
Set WS = ExcelBook.Worksheets("Sheet1")
WS.range("C2") .Select

投稿2015/11/11 00:48