Edit Question - KnowledgeHub

Title Body

I have a project that basically the goal is to generate Excel (Report) starting the Click of a button in Access using VBA. The contents of this report is the result of a Stored Procedure SQL Server Database. the line of error: With MeuExcel.Worksheets(4) .QueryTables.Add connection:=rs, Destination:=.Range("A2") End With I get is: invalid procedure call or argument (erro '5') Complete Code (Edited using Remou User tips): Sub GeraPlanilhaDT() Dim MeuExcel As New Excel.Application Dim wb As New Excel.Workbook Set MeuExcel = CreateObject("Excel.Application") MeuExcel.Workbooks.Add MeuExcel.Visible = True Dim strNomeServidor, strBaseDados, strProvider, strConeccao, strStoredProcedure As String strNomeServidor = "m98\DES;" strBaseDados = "SGLD_POC;" strProvider = "SQLOLEDB.1;" strStoredProcedure = "SP_ParametrosLeads_DT" strConeccao = "Provider=" & strProvider & "Integrated Security=SSPI;Persist Security Info=True;Data Source=" & strNomeServidor & "Initial Catalog=" & strBaseDados Dim cnt As New ADODB.connection Dim cmd As New ADODB.command Dim rs As New ADODB.recordset Dim prm As New ADODB.parameter cnt.Open strConeccao cmd.ActiveConnection = cnt cmd.CommandType = adCmdStoredProc cmd.CommandText = strStoredProcedure cmd.CommandTimeout = 0 Set prm = cmd.CreateParameter("DT", adInteger, adParamInput) cmd.Parameters.Append prm cmd.Parameters("DT").Value = InputBox("Digite o Código DT", "Código do Distribuidor") Set rs = cmd.Execute() Dim nomeWorksheetPrincipal As String nomeWorksheetPrincipal = "Principal" Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = nomeWorksheetPrincipal With MeuExcel.Worksheets(4) .QueryTables.Add connection:=rs, Destination:=.Range("A2") End With cnt.Close Set rs = Nothing Set cmd = Nothing Set strNomeServidor = Nothing Set strBaseDados = Nothing Set strProvider = Nothing If (ActiveSheet.Us

Tags (comma-separated) Cancel