Lỗi macro VBA trong Excel khi làm mới bảng truy vấn sau khi nâng cấp lên Office 365.

Chào, máy tính làm việc của tôi gặp sự cố kể từ khi văn phòng nâng cấp từ Office 13 lên Office 365. Tôi có một macro VBA trong Excel đọc dữ liệu từ một truy vấn trên cơ sở dữ liệu Microsoft Access và điền dữ liệu vào một bảng tính Excel để tạo báo cáo. Mã VBA như sau:

sub full_dly(rptdate)

dbarray = _

"ODBC;DBQ=\\MyDatabase.mdb;DefaultDir=\\MyDatabaseDirectory;Driver={Microsoft Access (*.mdb, *.accdb)};DriverId=25;FIL=MS Access;"

Sheets.Add

ActiveSheet.name = "Combined"

datasheet = ActiveSheet.name

pidgeon = "SELECT last(date) as when"

Với pi = 0 đến 23

chim bồ câu = chim bồ câu & ", tổng (giờ" & bánh & ") là h" & bánh

Bánh tiếp theo

pidgeon = pidgeon & " TỪ A" & format(rptdate, "yyyymm") & " Ở ĐÂY ngày=#" & format(rptdate, "mm/dd/yy") & _

"# AND type='a';"

phạm vi ("A1"). Chọn

Với ActiveSheet.QueryTables.Add(Connection:=Array(Array(dbarray), Array( _

"BufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" _

)), Điểm đến:=phạm vi("A1"))

.CommandText = chim bồ câu

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False

Kết thúc bằng

End Sub

Macro bị lỗi khi thực hiện lệnh Refresh BackgroundQuery=false với lỗi RUNtime1004 General ODBC.

Tôi đang sử dụng Office 365 (64 bit) trên Windows 10 với Microsoft ACE 12.0. Truy vấn này hoạt động tốt trên Office 13 chạy Microsoft Jet 4.0. Tôi hoàn toàn không hiểu tại sao nó lại không hoạt động nữa.