复制代码 代码如下:
SetobjExcel=CreateObject("Excel.Application")
objExcel.Visible=True
objExcel.Workbooks.Add
objExcel.Cells(1,1).Value="Testvalue"
复制代码 代码如下:
SetobjExcel=CreateObject("Excel.Application")
objExcel.Visible=True
objExcel.Workbooks.Add
objExcel.Cells(1,1).Value="Testvalue"