|
|
|
|
|
|
|
复制本帖HTML代码
|
|
高亮:
今天贴
X 昨天贴
X 前天贴
X |
'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.
|
| 欢迎来到华新中文网，踊跃发帖是支持我们的最好方法! |
工作了，很少去学校。我可以提供进货渠道及100多个客户号码给想在NUS卖卡的朋友
|
|
