2017-09-15 4 views
0

このコードを実行するとエラーが発生します[実行時エラー '1004':オブジェクト 'ワークブック'の 'オープン'メソッドが失敗しました。オブジェクトのワークブックのオープン方法が失敗しました

これは実際のファイルとのエラーである可能性があるので、私は "IgnoreReadOnlyRecommended:= True"を使用してファイルを修復できるようにしましたが、どちらも動作しませんでした。これを回避する方法に関する提案はありますか?

Sub BlueFieldImport() 

Dim mywb As Workbook 
Set mywb = ThisWorkbook 
Dim filepath As String, fp As String 
Dim mymonth As String 

mymonth = Sheets("Data_Staging").Range("A38").Value 

filepath = FindFile("C:\Book1.xls") 

Dim BlueFieldsWB As Workbook 
Set BlueFieldsWB = Workbooks.Open(filepath, , ReadOnly:=True) 
+2

'FindFile'とは何ですか?つまり、 'Workbooks.Open'に渡されたときに有効な' filePath'ですか?また、名前付きパラメータを使用している場合は、その空の位置パラメータを削除します。 –

+0

あなたの状況によっては、 'Open()'の代わりに 'Add()'メソッドを使うことができます。 'Add()'にはテンプレート引数があります。 – braX

答えて

0

変数を使用する代わりに、パスを含む文字列を渡すだけです。

とにかく直接パスを渡すと、ファイルを見つけるための機能は何ですか?

関連する問題