如果你的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
上面的code用前要做些相应的修改:)
工作了，很少去学校。我可以提供进货渠道及100多个客户号码给想在NUS卖卡的朋友
Huasing Association 1999 - 2013