dim xls as new excel.worksheet
......
xls.SaveAs (CommonDialog1.FileName)
执行上面一条时,报错:此excel文件为只读,不可写。在这条语句前也打开过这个excel 文件,我基本上是用如下的语句:
Dim xla As New Excel.Application
Dim xlb As New Excel.Workbook
......
Set xlb = xla.Workbooks.Open(strPath3)
......
xlb.Close
.....
xla.Quit
Set xlb = Nothing
Set xla = Nothing请问什么地方有可能使我的excel文件变为只读状态?或我少写了什么语句?
......
xls.SaveAs (CommonDialog1.FileName)
执行上面一条时,报错:此excel文件为只读,不可写。在这条语句前也打开过这个excel 文件,我基本上是用如下的语句:
Dim xla As New Excel.Application
Dim xlb As New Excel.Workbook
......
Set xlb = xla.Workbooks.Open(strPath3)
......
xlb.Close
.....
xla.Quit
Set xlb = Nothing
Set xla = Nothing请问什么地方有可能使我的excel文件变为只读状态?或我少写了什么语句?
解决方案 »
- 孤独求败:喝白酒1斤以上的请进。
- 【请求推荐】在CSDN上别的朋友请你“断帖”是什么意思?
- 怎么引用Microsoft Excel Library
- To off123: recordset.update问题,请帮忙看一下
- 一个关于数据库的问题????
- True DBGrid 8.0 pro 在Win98下的问题
- 请教各位大侠:怎样把strpwd的值传给服务器???? 在线等待 急急.............
- 找不到光驱,有办法么?
- 如何取得运行参数?
- 怎样实现象窗体缩小到任务栏时,窗体由大到小移动到指定方向的动态效果。我想使我的程序在缩小为一个工具条时显示这样的效果。
- 超难多线程问题,解决之后,如觉分少,再开贴给分!
- mscomm32控件问题。8个数据位接收汉字显示正确,7个数据位接收汉字不能正确显示。高分求救!!!急!!!
是的話,在保存的時候加個參數看看:
xls.SaveAs Filename:=CommonDialog1.FileName,ReadOnlyRecommended:=False