vbs写excel文件找不到对象
报错缺少Environment对象
Public Function WriteRep(sStatus,sDetails,xmlpath)
Dim fso
Dim oExcel
Dim ExcelFile
Dim TestcaseName
Dim objWorkBook
Dim objSheet
Dim NewTC
Dim Status
Set fso = CreateObject("scripting.FileSystemObject")
Set oExcel = CreateObject("Excel.Application")
Status=UCase(sStatus)
oExcel.Visible = false 'True
TestcaseName = GetXmlNodeValue(xmlpath,"//DName")'Environment("TCase")
Set objWorkBook = oExcel.Workbooks.Open(ReportExcelFile)
Set objSheet = oExcel.Sheets("测试结果")
With objSheet
'设置行数和是否NewTc标识
Environment.Value("Row") = .Range("C7").Value + 11
NewTC = False
If TestcaseName <> objSheet.Cells(Environment("Row")-1,2).value Then
.Cells(Environment("Row"),2).value = TestcaseName
.Cells(Environment("Row"), 3).Value = Status
.Cells(Environment("Row"), 4).value = sDetails
.Cells(Environment("Row"), 5).value = GetXmlNodeValue(xmlpath,"//Res")
Select Case Status
Case "FAILED"
.Range("C" & Environment("Row")).Font.ColorIndex = 3
Case "PASS"
.Range("C" & Environment("Row")).Font.ColorIndex = 50
Case "WARNING"
.Range("C" & Environment("Row")).Font.ColorIndex = 5
End Select
NewTC = True
.Range("C7").Value = .Range("C7").Value + 1
'设置边界
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(1).LineStyle = 1
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(2).LineStyle = 1
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(3).LineStyle = 1
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(4).LineStyle = 1
'设置字体和颜色
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Interior.ColorIndex = 19
.Range("B" & Environment("Row")).Font.ColorIndex = 53
.Range("E" & Environment("Row")).Font.ColorIndex = 41
.Range("B" & Environment("Row") & ":E" & Environment("Row")).Font.Bold = True
End If
If (Not NewTC) And (Status = "FAIL") Then
.Cells(Environment("Row"), 3).Value = "Fail"
.Range("C" & Environment("Row")).Font.ColorIndex = 3
end If
'更新结束时间
.Range("C5").Value = Time
.Columns("B:D").Select
'.Columns("B:D").Autofit
End With
oExcel.ActiveWindow.FreezePanes = True
'保存结果
objWorkBook.Save
oExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set oExcel = Nothing
Set fso = Nothing
End Function