如果你的file1位置固定，可以用以下的code 'get product and tech from user input Location = Worksheets("control").Range("B34") PartID = Worksheets("control").Range("G9") Dim FilePath As String FilePath = Location & "\" & PartID & "\" If BoolManualXML = False Then StrFileName = FilePath & ArrFileName(1) Else Call OpenFile(StrFileName, BoolOpenSuccess) Application.ScreenUpdating = False If BoolOpenSuccess = False Then Exit Sub End If End If