将 Excel 数据连接指定为只读答案

【问题标题】：Designate Excel Data Connection ReadOnly将 Excel 数据连接指定为只读
【发布时间】：2016-01-28 16:15:25
【问题描述】：

我有一个 Excel 文件，该文件与其他几个报告引用的另一个 Excel 源有数据连接。数据连接应该是只读的，但我似乎无法设置属性来这样做 - 每当源文件在其他地方打开时，数据连接都会尝试以读写方式打开源。我尝试输入ReadOnly=0、ReadOnly=TRUE和ReadOnly=1，但似乎没有任何效果。

当源文件打开时，它似乎中断了我作为计时器执行的宏。我的数据连接的连接字符串是（带有替换路径）：

DSN=Excel Files;DBQ="Source File Path";DefaultDir="Directory Path";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

【问题讨论】：

对此有什么帮助吗？我的所有报告都试图在不需要时打开与读写相同的数据源，但我仍然遇到问题。

标签： excel properties readonly read-write data-connections

【解决方案1】：

我将工作簿从源代码复制到我使用它们的工作簿中。为此，我使用以下代码（使用 ReadOnly:=True）：

'Open workbook
Application.DisplayAlerts = False
Application.EnableEvents = False
Workbooks.Open ("location"), UpdateLinks:=0, ReadOnly:=True

'Copy worksheet
Workbooks(sourceWorkbook).Worksheets(sourceSheet).Copy _
 after:=Workbooks(destinationWorkbook).Worksheets(Workbooks(destinationWorkbook).Worksheets.Count)

'Close source workbook      
Workbooks(sourceWorkbook).Close
Application.EnableEvents = True
Application.DisplayAlerts = True

希望有帮助

【讨论】：