Excel VBA – .refresh BackgroundQuery: = Falso debug?

Ho dovuto aggiungere due colonne aggiuntive a un database di accesso, che non dovrebbe essere importto in excel utilizzando una macro. Ho aggiornato la VBA con le colonne [Dati Account]. Richiedi & [Dati Account] .AMREF, ma ora ricevo un debug su .refresh BackgroundQuery: = Falso (in grassetto / corsivo).

Dove vado male?

  • Excel invoca server di automazione .NET da due AppDomains diversi?
  • Come funzionare con un grande file TSV
  • Impostazione di un foglio da hide. Il codice non funziona
  • Passo VBA Excel sulla row successiva senza informazioni per spostare se è copiata una cella vuota
  • EXCEL Se funzioni, ti prego di guidarmi ...?
  • Come tornare date casuali in un mese
  • Dim varConnection As String Dim varSQL As String Dim i As Integer Dim j As Integer Dim dateOne As Date, dateTwo As Date If Len(Worksheets("Summary").Range("A5")) = 0 Then dateOne = #1/1/1990# Else dateOne = Worksheets("Summary").Range("A5") If Len(Worksheets("Summary").Range("C5")) = 0 Then dateTwo = #1/1/2200# Else dateTwo = Worksheets("Summary").Range("C5") Worksheets("Data").Cells.Clear varConnection = "ODBC; DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\Account Management Database Front-End.mdb; Driver={Driver do Microsoft Access (*.mdb)}" varSQL = "SELECT [Market Data].Key, [Market Data].SAANumber, [Market Data].Country, [Account Data].InputDate, [Account Data].Priority, [Market Data].ReqType, [Market Data].ReqSent, [Market Data].AccOpen AS [Completion Date], [Market Data].Opener, [Market Data].AccountNumber, [Market Data].Rejected, [Market Data].rejDate, [Countries].[SLA date], [Market Data].Notes, [Market Data].NotesDate, ***[Account Data].Requester, [Account Data].AMREF***" & _ " FROM ([Account Data] INNER JOIN [Market Data] ON [Account Data].SAANumber = [Market Data].SAANumber) INNER JOIN Countries ON [Market Data].Country = Countries.Countries" & _ " WHERE ISNULL([Market Data].[AccOpen]) AND [Account Data].InputDate BETWEEN #" & dateOne & "# AND #" & dateTwo & "#" & _ " GROUP BY [Market Data].Key, [Market Data].SAANumber, [Market Data].Country, [Account Data].InputDate, [Market Data].ReqType, [Market Data].ReqSent, [Market Data].AccOpen, [Market Data].Opener, [Market Data].AccountNumber, [Market Data].Rejected, [Market Data].rejDate, Countries.[SLA date], Countries.[Documentation Market], Countries.[Segregated Cash], [Market Data].Notes, [Market Data].NotesDate, [Account Data].Priority, ***[Account Data].Requester, [Account Data].AMREF***;" With Worksheets("Data").QueryTables.Add(Connection:=varConnection, Destination:=Worksheets("Data").Range("A1")) .CommandText = varSQL .Name = "Query-39008" ***.Refresh BackgroundQuery:=False*** 

  • python - leggere il file csv da excell in 4 liste, ford totali blu rosso
  • Come posso raccogliere un elenco di celle contenere un certo text
  • VBA risposta predefinita a un comaddin
  • VBA in errore di runtime di function di ricerca 91
  • Come convertire il text in numero in Excel?
  • Uscita di return in celle separate
  • Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.