ASP自动化EXCEL常见问题总结 20240107版

Excel组件的权限与环境配置：

总结配置的关键要点
1.为网站指定的账户配置，比如：IUser账户，Network service账户 配置dcom组件（mmc comexp.msc /32，针对32位office的配置）

2.配置好office文件夹的运行权限；

3.在 Windows Server + IIS 计算机上创建以下新文件夹：
C:\Windows\SysWOW64\config\systemprofile\ Desktop  （仅适用于 64 位服务器）
C:\Windows\System32\config\systemprofile\ Desktop  （适用于 32 位和 64 位服务器）
主要是用于文件的写入操作可能会用到，也是给与网站运行账户的读写权限；





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



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

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

例如

1. 
   
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. '---------------------------------
   
8. 
   
9. '创建EXCEL对象
   
10. Set objExcel = CreateObject("Excel.Application")
    
11. 
    
12. '对象是否可见
    
13. objExcel.Visible = True
    
14. 
    
15. '打开一个EXCEL文件
    
16. Set objWorkbook = objExcel.Workbooks.Open("D:\Sites\Site_B\1.xls")
    
17. 
    
18. '在3行5列的单元格指定值
    
19. objExcel.Cells(3,5).Value = "新的赋值"
    
20. 
    
21. '然后改变值
    
22. objExcel.Cells(3,5).Value = "新的赋值"
    
23. 
    
24. '清空值
    
25. objExcel.Cells(3,5).Value = ""
    
26. 
    
27. '获得单元格的值并赋给变量
    
28. r3c5 = objExcel.Cells(3,5).Value
    
29. 
    
30. '保存到excel文件
    
31. objWorkbook.Save
    
32. 
    
33. '关闭工作簿
    
34. objWorkbook.Close
    
35. 
    
36. '退出进程
    
37. objExcel.Quit
    
38. 
    
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. '---------------------------------
   
8. 
   
9. '创建EXCEL对象
   
10. Set objExcel = CreateObject("Excel.Application")
    
11. 
    
12. '对象是否可见
    
13. objExcel.Visible = True
    
14. 
    
15. '新增一个工作簿
    
16. Set objWorkbook = objExcel.Workbooks.Add
    
17. 
    
18. 
    
19. '在3行5列的单元格指定值
    
20. objExcel.Cells(3,5).Value = "新的赋值"
    
21. 
    
22. '然后改变值
    
23. objExcel.Cells(3,5).Value = "新的赋值"
    
24. 
    
25. '清空值
    
26. objExcel.Cells(3,5).Value = ""
    
27. 
    
28. '获得单元格的值并赋给变量
    
29. r3c5 = objExcel.Cells(3,5).Value
    
30. 
    
31. '保存到新文件
    
32. objWorkbook.SaveAs "D:\Sites\Site_B\1.xls"
    
33. 
    
34. '保存到excel文件
    
35. objWorkbook.Save
    
36. 
    
37. '关闭工作簿
    
38. objWorkbook.Close
    
39. 
    
40. '退出进程
    
41. objExcel.Quit
    
42. 
    
43. '释放对象
    
44. Set objExcel = Nothing
    
45. Set objWorkbook = Nothing
    
46.          %>

复制代码