質問者が納得単純にコピーしてます。
で、エラー処理とかは考えてません。
でも、考え方としては参考になるかな。。
Sub 見積書呼出()
Dim OpenFile As String
Dim myBook As Workbook
Dim mySh As Worksheet
ChDir "E:見積書"
OpenFile = Application.GetOpenFilename("Excelブック,*.*")
Set myBook = Workbooks.Open(OpenFil...
5046日前view35