- 写Excel
Sub WriteExcel(Excelpath,row,col,ActualResult)
dim oExcel,oWb,oSheet
Set oExcel= CreateObject("Excel.Application")
'oExcel.Visible = True
Set oWb = oExcel.Workbooks.Open
Sub WriteExcel(Excelpath,row,col,ActualResult)
dim oExcel,oWb,oSheet
Set oExcel= CreateObject("Excel.Application")
'oExcel.Visible = True
Set oWb = oExcel.Workbooks.Open