Dim wb As Workbook Dim strFile As String strFile=Application.GetOpenFilename ってのはstrFileにたまたまApplication.GetOpenFilenameによってファイル名が入ったということで、 Set wb = Workbooks.Open(strFile) のstrFileがファイル名かどうかは分からん。 このー文はApplication.GetOpenFilenameのことなんか知らんからな。 このー文の意味するところはstrFileをファイル名と思って開いてみて、開けたらwbに格納するってこと。