链接到访问表(并打开)时编辑Excel工作表

时间:2018-08-07 17:06:12

标签: excel excel-vba

我有2个excel工作簿,分别是Main和Backup。

Main经常运行一个宏,该宏将一行数据传输到Backup。这两个工作簿都包含完全相同的表。

我有一个Access数据库,该数据库直接链接到Backup中的表,因此可以查看我的Access数据库中的数据。

但是,如果我的访问数据库是打开的(或由于意外而保持打开状态),则从Main到Backup excel工作簿的宏将不起作用,因为它只能以“只读”形式打开它。

有没有办法解决这个问题?用户主要的Excel工作簿是24/7全天候打开的,这就是为什么我想出第二个Excel工作簿作为“中间人”的原因,该工作簿只是短暂打开以插入数据。但是,如果同时打开,这会引起问题此刻有数据要传输。主工作簿受保护,但备份工作簿不受保护。

我已经在备份工作簿上尝试了“允许多个用户进行更改”。我开始认为这是我在主要excel工作簿中的代码中“打开”工作簿的方式吗?

下面是我的代码,基本上可以打开Backup excel工作簿并将一行数据插入单元格A3-BL3中。

Sub TransferData()


Application.ScreenUpdating = False
Dim wb As Workbook
Dim Reportwb As Workbook


Set Reportwb = Workbooks("Main.xlsm")


Set wb = Workbooks.Open(Filename:="C:\Users\yilmadu001\Desktop\Backup.xlsx")


Reportwb.Sheets("Data1").Range("A4:BL4").Copy
wb.Sheets("DATA").Range("A3:BL3").Insert Shift:=xlDown
Reportwb.Save
wb.Close True


Application.ScreenUpdating = True
End Sub

感谢您的帮助,谢谢。

0 个答案:

没有答案
相关问题