質問: Workbooks.Open(report_file, ReadOnly:=True) ``` ### 補足情報 特定のPCで使用しているファイルを別PCにコピーして実行してもエラーが出ない為 特定PCの環境依存の問題かと思われます 拙い文章かつ少ない情報ですが お心当たりのある方、アドバイスをいただければ幸いです
回答: 見た目で、Excelではなく、VBか他のOfficeのVBAで動いているのかな?と思います。(推測) Excelであれば、単純に Workbooks.Open のメソッドで十分ですし。 更に、書き込んでいただいたソースコードも一部の為、なんとも言えないところがあります。 が、自分なりに解釈をすると下の様な感じです。 この手のVBAは、インターネットで検索すると、手軽にサンプルコードを手軽に入手できますが、CreateObjectの使いどころは、注意が必要です。Excelのアプリケーションが複数立ち上がってしまう為、パソコンに思わぬ負荷を与えてしまいます。 あと、他のパソコンでは動作すると書いてありました。 Officeを再インストールするとか試してはどうでしょうか? ``` Option Explicit Public Function test1(filepath As String) As Boolean Dim xlApplication As Object If Dir(filepath) = "" Then test1 = False Exit Function End If Set xlApplication = CreateObject("Excel.Application") xlApplication.Visible = True xlApplication.Workbooks.Open Filename:=filepath test1 = True Set xlApplication = Nothing End Function コード ```