28,406
社区成员
发帖
与我相关
我的任务
分享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
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
...全文
请发表友善的回复…
发表回复
itzhiren 2005-10-21
- 打赏
- 举报
没问题
huo789 2005-10-21
- 打赏
- 举报
我这儿也没问题
xiyangbo 2005-10-21
- 打赏
- 举报
没装Excel用不了
kmgoldme 2005-10-21
- 打赏
- 举报
啊，在我的机器上根本用不了
kmgoldme 2005-10-21
- 打赏
- 举报
你的在我的机器上也不行，我是用的FSO先生成一个扩展名为xls的文件
然后用writeline方法写进去的
然后用writeline方法写进去的
xiyangbo 2005-10-21
- 打赏
- 举报
沒有说不能写，是不仅产生test.xls文件，还产生两个快捷方式，分别为c和test，分别指向c:\和test.xls。我试了几台机都这样，很奇怪
kmgoldme 2005-10-21
- 打赏
- 举报
是不是说不能写啊
tigerwen01 2005-10-21
- 打赏
- 举报
在我的机器上运行也没问题
lfh103856111 2005-10-21
- 打赏
- 举报
我也有同樣的問題,大家一起看看
http://community.csdn.net/Expert/topic/4339/4339333.xml?temp=.1046411
http://community.csdn.net/Expert/topic/4339/4339333.xml?temp=.1046411
wanghui0380 2005-10-21
- 打赏
- 举报
看着没问题啦
itzhiren 2005-10-21
- 打赏
- 举报
没有问题呀，快捷方式怎么会只指向c:\，没有文件名吗？
xiyangbo 2005-10-21
- 打赏
- 举报
up
