早速ですが、質問させていただきます。
Accessでエクセルを操作しようとしています。
ファイルを開こうとする時、
Set xlAppli= CreateObject("Excel.Application")
この部分で「書込みが出来ません。」というエラーが起こってしまいます。
エクセルファイルが開かれている訳ではなく、タスクマネージャーのプロセスの部分にも表示されていません。
どうしてこのようなエラーが出てしまうのでしょうか。どなたか分かる方、教えてください。説明が分かり辛かったらすみません。よろしくお願いします。
それだけの情報では、何とも言えませんので、Excelのバージョン等を含めた環境や
バージョン・参照設定の情報等を明記して下さい。
又、事象を再現できる最低限のコードを提起して下さい。
(正確なエラーメッセージを含む)
早速のご返事ありがとうございます。
説明不足ですみません。
Excelのバージョン:2002
VB:6.0
参照設定:Visual Basic For Applications,Microsoft Excel 10.0 Object Library,OLE Automation,Microsoft Office 10.0 Object Library
以下、コードです。
' Excel の起動処理
Dim App As Excel.Application
Dim Book As Excel.Workbook
Dim Sheet As Excel.Worksheet
Set App = CreateObject("Excel.Application") '←ここでエラー
Set Book = App.Workbooks.Add
Set Sheet = Book.Worksheets(1)
エラー内容:実行時エラー '70':
書込みできません。
また、他のPCで確認したところ、このような現象は起こらず、
私のPCでのみこの現象が見られるようです。
説明不足ですみませんでした。お願いします。
>Dim App As Excel.Application
Appオブジェクトと同じ名前で宣言しているのが原因だと思います。
ヘルプでAppを検索してみてください。
変数名を変えた場合はどうなりますか?
>>> この部分で「書込みが出来ません。」というエラーが
>> エラー内容:実行時エラー '70':
>> 書込みできません。
メッセージが微妙に異なっているようですが、実際に出ているのは、
どちらのメッセージなのですか? (^^;
>> また、他のPCで確認したところ、このような現象は起こらず、
>> 私のPCでのみこの現象が見られるようです。
・Administrators で実行した場合に発生していますか? (ユーザ権限不足?)
・限定された DCOM 権限になっていませんか? (dcomcnfg.exe など)
・Excel を、既定のインストールのままにするのではなく、たとえば、
全機能をフルインストールしてみても駄目ですか? (アドバタイズの問題?)
・下記の URL などに該当しそうな項目はありませんか?
http://support.microsoft.com/kb/257757/ja
> Appオブジェクト
あれ、そんなオブジェクトありましたっけ?
# Access.Application オブジェクトのことでは無いですよね…
> 同じ名前で宣言しているのが
プロシージャ変数として宣言されていますので、もし、既存の
オブジェクト名と重複していたとしても、エラーにはならない気も。
投稿されたコードと最初の質問のコードが違っているようですが?
(投稿されたコードではエラーは発生しませんね)
下記に該当していませんか?
http://support.microsoft.com/kb/257757/ja
>また、他のPCで確認したところ、このような現象は起こらず、
>私のPCでのみこの現象が見られるようです。
この辺の違いを調べて見れば解るかとは、思うのですが。
>Excelのバージョン:2002
>VB:6.0
AccessのVBAのバージョンでしたか・・・
勘違いしてました。
すみませんでした。
魔界の仮面弁士 さんのレスをろくに読まないでレスして一部かぶってしまったようで、すみませんでした。
>AccessのVBAのバージョンでしたか・・・
>勘違いしてました。
VB6.0 で試してもエラーは発生しませんよ。(問題はありますが)
ツイート | ![]() |