|
6#
楼主 |
发表于 2006-7-13 12:20:59
|
只看该作者
我解决了,用 vbscript辅助解决了
Dim MyObject
'Set MyObject = GetObject("d:\omcr\xiaoQu.xls") 65
Set MyObject = GetObject("d:\omcr\prach.xls")
validRow=1
For j=1 to 36
eName= MyObject.Worksheets(1).Cells(j,1).Value
'Reporter.ReportEvent 1, "Custom Step"&"1"&"_"&j,
'Reporter.ReportEvent 1, "Custom Step"&"4"&"_"&j,
eDefault= MyObject.Worksheets(1).Cells(j,5).Value
If Len(eName)>1 Then
MyObject.Worksheets(2).Cells(validRow,1).Value=eName
MyObject.Worksheets(2).Cells(validRow,2).Value=eDefault
validRow=validRow+1
End If
Next |
|