Private Sub ToggleButton1_Click()
Dim a As String
Dim b As String
datainicio = TextBox1.Text
datafinal = TextBox2.Text
quando faço a busca, ela não reconhece a data da variável
' Macro1 Macro
'
'
With ActiveWorkbook.Connections("SP_LISTA_ANALITICO_CORTESIA").ODBCConnection
.BackgroundQuery = True
.CommandText = Array( _
"EXEC SP_LISTA_ANALITICO_CORTESIA datainicio,datafinal")
Olá Wilson, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
Uma possível solução para esse problema é formatar as datas corretamente antes de passá-las para a consulta. Você pode fazer isso usando a função Format e especificando o formato desejado. Por exemplo, se você quiser que as datas estejam no formato dd/mm/yyyy, você pode usar o seguinte código:
datainicio = Format(TextBox1.Text, "dd/mm/yyyy")
datafinal = Format(TextBox2.Text, "dd/mm/yyyy")
Certifique-se de substituir dd/mm/yyyy pelo formato desejado. Para conhecer os formatos possíveis basta acessar o seguinte link para a documentação.
Além disso, verifique se as variáveis datainicio e datafinal estão declaradas corretamente no início do seu código. No momento, você está declarando as variáveis a e b, mas não as variáveis datainicio e datafinal. Certifique-se de adicionar as declarações corretas, como no exemplo abaixo, para que as variáveis sejam reconhecidas como Date:
Dim datainicio As Date
Dim datafinal As Date
Todavia, vale ressaltar que como é um assunto externo ao curso e que não tenho acesso ao cenário completo do projeto, outros testes terão de ser feitos a fim de obter o resultado esperado, mas espero que esta resposta seja um bom ponto de partida para a resolução do seu problema.
Espero ter ajudado.
Abraços e bons estudos!