开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP自动化EXCEL常见问题总结 20240107版
返回列表 发新帖
查看: 691|回复: 0

[文章教程] ASP自动化EXCEL常见问题总结 20240107版

[复制链接]
xuanxiao 发表于 2022-1-24 15:20:20 | 显示全部楼层 |阅读模式
Excel组件的权限与环境配置：

总结配置的关键要点
1.为网站指定的账户配置，比如：IUser账户，Network service账户 配置dcom组件（mmc comexp.msc /32，针对32位office的配置）
微信图片_20240107214251.png
2.配置好office文件夹的运行权限；
2.png
3.在 Windows Server + IIS 计算机上创建以下新文件夹：
C:\Windows\SysWOW64\config\systemprofile\ Desktop  （仅适用于 64 位服务器）
C:\Windows\System32\config\systemprofile\ Desktop  （适用于 32 位和 64 位服务器）
主要是用于文件的写入操作可能会用到，也是给与网站运行账户的读写权限；

1.png

2.png

********************************



1.覆盖导出文件办法：
只需要将这行代码放在我的 SaveAs 语句之前...

Application.DisplayAlerts = False
并且必须立即将这行代码放在它之后......
Application.DisplayAlerts = True

例如

  2. ...
  3. xlApp.DisplayAlerts = False
  4. xlSheet.SaveAs Server.MapPath(Excel_File)
  5. xlApp.DisplayAlerts = True
复制代码


2.excel读取并编辑范例：
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
  2. <%
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. session.codepage=65001
  5. response.charset="utf-8"
  6. 'EXCEL自动化读取
  7. '---------------------------------

  9. '创建EXCEL对象
  10. Set objExcel = CreateObject("Excel.Application")

  12. '对象是否可见
  13. objExcel.Visible = True

  15. '打开一个EXCEL文件
  16. Set objWorkbook = objExcel.Workbooks.Open("D:\Sites\Site_B\1.xls")

  18. '在3行5列的单元格指定值
  19. objExcel.Cells(3,5).Value = "新的赋值"

  21. '然后改变值
  22. objExcel.Cells(3,5).Value = "新的赋值"

  24. '清空值
  25. objExcel.Cells(3,5).Value = ""

  27. '获得单元格的值并赋给变量
  28. r3c5 = objExcel.Cells(3,5).Value

  30. '保存到excel文件
  31. objWorkbook.Save

  33. '关闭工作簿
  34. objWorkbook.Close

  36. '退出进程
  37. objExcel.Quit

  39. '释放对象
  40. Set objExcel = Nothing
  41. Set objWorkbook = Nothing
  42.          %>
复制代码


3.创建EXCEL并修改范例：
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
  2. <%
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. session.codepage=65001
  5. response.charset="utf-8"
  6. 'EXCEL自动化读取
  7. '---------------------------------

  9. '创建EXCEL对象
  10. Set objExcel = CreateObject("Excel.Application")

  12. '对象是否可见
  13. objExcel.Visible = True

  15. '新增一个工作簿
  16. Set objWorkbook = objExcel.Workbooks.Add


  19. '在3行5列的单元格指定值
  20. objExcel.Cells(3,5).Value = "新的赋值"

  22. '然后改变值
  23. objExcel.Cells(3,5).Value = "新的赋值"

  25. '清空值
  26. objExcel.Cells(3,5).Value = ""

  28. '获得单元格的值并赋给变量
  29. r3c5 = objExcel.Cells(3,5).Value

  31. '保存到新文件
  32. objWorkbook.SaveAs "D:\Sites\Site_B\1.xls"

  34. '保存到excel文件
  35. objWorkbook.Save

  37. '关闭工作簿
  38. objWorkbook.Close

  40. '退出进程
  41. objExcel.Quit

  43. '释放对象
  44. Set objExcel = Nothing
  45. Set objWorkbook = Nothing
  46.          %>
复制代码

ASP币如何冲？请看这里
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号