64bitのExcel vba でのエラー

投稿者 : なつき     投稿日時 : 2022/09/22(Thu) 09:05:56     OS : Windows 10     EXCEL : Office 365

---

元々は32ビットのExcelで動いたマクロなのですが64ビットにしたところ動かなくなりました。
32ビットに戻すことはできないので下記のソースでどこを直せばいいでしょうか？
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=" & SYSTEM & ";CMT=0;DBQ=" & LIBID & ";UID=" & USERID & ";PWD=" & PASSWORD & ";NAM=0;DFT=0;DSP=0;TFT=0;TSP=0;DEC=0;XDYNAMIC=0;" _
), Array( _
"RECBLOCK=0;BLOCKSIZE=8;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=0;LIBVIEW=0;REMARKS=0;CONNTYPE=0;SORTTYPE=0;LANGUAGEID=ENU;SORTWEIGHT" _
), Array("=0;PREFETCH=0;MGDSN=0;")), Destination:=Range("A1"))
.Sql = SqlString
.FieldNames = True
.RefreshStyle = xlOverwriteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = False
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
エラーは.refresh backgroundquery:=false のとこで発生していました。
エラー内容はコード:1004 一般ODBCエラー

投稿者 : 名無し     投稿日時 : 2022/09/22(Thu) 12:51:01

---

この辺のサイトが参考になればと思います。

https://teratail.com/questions/164882