100分求解Excel问题
执行下面代码,不仅产生test.xls文件,还产生两个快捷方式,分别为c和test,分别指向c:\和test.xls。操作系统为win 2000 server英文版,office 2003 Pro,装有.net 2003,在同一台机器上,下面代码拷到VB 6.0中执行没有任何问题。请各位看看有什么问题
Set xlApp = server.CreateObject("Excel.Application")
Set wkbSrcBook = xlApp.Workbooks.Add()
Set wksSrcSheet = wkbSrcBook.Worksheets(1)
Set rngSrcUsedRange = wksSrcSheet.UsedRange
rngSrcUsedRange.Rows.Cells(1, 1) = "PO Number"
rngSrcUsedRange.Rows.Cells(1, 2) = "RMA Number"
rngSrcUsedRange.Rows.Cells(1, 3) = "Part"
rngSrcUsedRange.Rows.Cells(1, 4) = "Expected Quantity"
rngSrcUsedRange.Rows.Cells(1, 5) = "Actual Quantity"
rngSrcUsedRange.Rows.Cells(1, 6) = "Nonconformation Quantity"
rngSrcUsedRange.Rows.Cells(1, 7) = "New Quantity"
rngSrcUsedRange.Rows.Cells(1, 8) = "Delta"
rngSrcUsedRange.Rows.Cells(1, 9) = "Ver"
wkbSrcBook.SaveAs "c:\test.xls"
wkbSrcBook.Close
Set xlApp = Nothing
Set wkbSrcBook = Nothing
Set wksSrcSheet = Nothing
Set rngSrcUsedRange = Nothing