asp代码将word插入到excel 急--在线等

来源:百度知道 编辑:UC知道 时间:2024/06/16 16:41:40
我发现好多人都在问怎么往excel中插入图片,我要问怎样通过asp代码将word文档插入到excel中呢?
小弟用宏录制的代码,在excel中好用,修改后方道asp中就不行了。
谁碰到过呀?帮帮忙啊,小弟很急啊。
代码如下,希望高人给修改一下
dim objExcelApp,objExcelBook,objExcelWorksheets,objExcelSheet
set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=true'不显示警告
objExcelApp.Application.Visible=true'不显示界面
'2、新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelWorksheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
'3、读取已有Excel文件
'strAddr=Server.MapPath(".")
objExcelSheet.Cells(1,1).Value="需求文档"
objExcelSheet.Cells(2,2).Select
objExcelSheet.Cells(2,2).Value="需求文档"
' set objExcelBook=objExcelApp.ActiveWorkBook
' set objExcelWorksheets=objExcelBook.Worksheets
''''''''''' 问题是下面的代码
objExcel

呵呵,俺基本上很少用宏,因为俺太懒..一般碰到需要将WORD的内容放到XLS中的,我都是用比较黑的办法,不过很实用,又简单: 打开WORD--打印预览--缩放到自己认为合适的大小--按Prnt Scrn键(打印屏幕)--打开画板工具--按CTRL+V--保存成图片--在XLS中插入保存好的图片 --搞定!

发复杂喔,不太明白