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)
'FindFile'とは何ですか?つまり、 'Workbooks.Open'に渡されたときに有効な' filePath'ですか?また、名前付きパラメータを使用している場合は、その空の位置パラメータを削除します。 –
あなたの状況によっては、 'Open()'の代わりに 'Add()'メソッドを使うことができます。 'Add()'にはテンプレート引数があります。 – braX