Dreamweaver导入excel
dreamweaver里的文件菜单有导入选项，但是里边的excel和word都是灰的点不了，这是为什么呢？...
dreamweaver里的文件菜单有导入选项，但是里边的excel和word都是灰的点不了，这是为什么呢？
展开
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
If GetFileOpenName("程序位置选择",ls_pa,ls_na,"xls","Microsoft Excel 工作薄 (*.xls),*.xls," ) = 1 Then
dw_1.SetRedraw(False)
dw_1.Reset()
oleobject excelserver
excelserver = Create oleobject
excelok = excelserver.ConnectToNewObject("excel.application")
//检查返回值，以确保已成功地连接到了Excel
If excelok <> 0 Then
MessageBox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")
Return
End If
If ls_pa = "" Then Return -1
dw_1.SetTransObject(sqlca)
dw_1.Reset()
excelserver.workbooks.Open(ls_pa)
excelserver.activesheet.cells.Copy
li_count = dw_1.ImportClipboard(3) //导入数据
Clipboard("")
excelserver.quit()
excelserver.DisconnectObject()
Destroy excelserver
dw_1.SetRedraw(False)
dw_1.Reset()
oleobject excelserver
excelserver = Create oleobject
excelok = excelserver.ConnectToNewObject("excel.application")
//检查返回值，以确保已成功地连接到了Excel
If excelok <> 0 Then
MessageBox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")
Return
End If
If ls_pa = "" Then Return -1
dw_1.SetTransObject(sqlca)
dw_1.Reset()
excelserver.workbooks.Open(ls_pa)
excelserver.activesheet.cells.Copy
li_count = dw_1.ImportClipboard(3) //导入数据
Clipboard("")
excelserver.quit()
excelserver.DisconnectObject()
Destroy excelserver
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
