Q&A
出来ました！
なるほど、ワークシートのオブジェクトを省略したところが原因ということですね。
ありがとうございました。
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件
0
他アプリと連携するようなVBAを使ったことがないので正確にどのオブジェクトから呼べばいいのかわからないですが、RangeはあくまでExcelに対して呼ぶものなので、Excelのオブジェクトに対して呼ばないと、上手く動かないと思います。
そのままRangeを呼ぶと、それはAccessに対する操作になってしまって失敗しているのではないかと思います。
投稿2015/11/10 08:35
総合スコア146649
0
ベストアンサー
その行を下記のように変更したらいかがでしょうか？
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
総合スコア21
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/11/11 01:18