我有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
感谢您的帮助,谢谢。