質問: Workbooks.Open(myFdr & "\" & fname) If ActiveWorkbook.ReadOnly Then MsgBox "取得できませんでした" ActiveWorkbook.Close Exit Sub End If -------------------------------------------------------------------------------------------- 処理速度が早く出来るのであればExecuteExcel4Macroに拘りは無いので もし他にいい手段がありましたらご教授頂けると幸いです。 以上、宜しくお願い致します。
回答: 下記の下段の手順などご参考に。