[Resolvido]Select com parametros de uma celula do excel

Bom dia,

estou com dificuldade em fazer um select no Access através de um parâmetro de uma célula do excel mas quando eu digito no código o parâmetro funciona

Exemplo com o parâmetro direto no código:

sQuery = " SELECT YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]), COUNT(F.[CTRC]), " & _
"SUM(F.[Quantidade_de_Volumes]), SUM(F.[Cubagem_em_m3]), SUM(F.[Peso_Calculado_em_Kg]), " & _
"SUM(F.[Valor_da_Mercadoria]), SUM(F.[Valor_do_Frete])" & _
"FROM tbFaturamento F " & _
"WHERE F.[Unidade_Emissora] = 'SAO' " & _
"AND F.[Tipo_de_Baixa] <> 'CANCELADO' " & _
"GROUP BY YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]) "

Exemplo com o parâmetro do excel: (Código que não está funcionando)

sQuery = " SELECT YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]), COUNT(F.[CTRC]), " & _
"SUM(F.[Quantidade_de_Volumes]), SUM(F.[Cubagem_em_m3]), SUM(F.[Peso_Calculado_em_Kg]), " & _
"SUM(F.[Valor_da_Mercadoria]), SUM(F.[Valor_do_Frete])" & _
"FROM tbFaturamento F " & _
"WHERE F.[Unidade_Emissora] = " & Sheets("Anual").Range("B6").Value " & _
"AND F.[Tipo_de_Baixa] <> 'CANCELADO' " & _
"GROUP BY YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]) "

Responda primeiro aqui;
É importante dizer se funcionou ou não, pedir ajuda é facil.

https://www.maximoaccess.com/t30690-select-concat

Obrigado por lembrar
Respondido...

Você está a fazer um SELECT dentro do Access, como é que quer ir buscar isto: Sheets("Anual").Range("B6").Value

Tem o Excel vinculado ?

Tem mais código antes a abrir o Excel ?

Detalhe por favor.

Meu código está em um sistema VBA Excel conectado no Access

Então meu sistema está conectando ao banco Access e puxando dados através de uma macro.

minha duvida é, por que quando utilizo o parâmetro direto no código escrevendo entre aspas simples o código funciona e quando uso o parâmetro de uma célula do Excel da erro...

Se é VBA no Excel, não neste fórum que é exclusivo de Ms Access.

Teste;

Código:

Dim strX As String
strX = Sheets("Anual").Range("B6").Value

sQuery = " SELECT YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]), COUNT(F.[CTRC]), " & _
"SUM(F.[Quantidade_de_Volumes]), SUM(F.[Cubagem_em_m3]), SUM(F.[Peso_Calculado_em_Kg]), " & _
"SUM(F.[Valor_da_Mercadoria]), SUM(F.[Valor_do_Frete])" & _
"FROM tbFaturamento F " & _
"WHERE F.[Unidade_Emissora] = " & strX & _
"AND F.[Tipo_de_Baixa] <> 'CANCELADO' " & _
"GROUP BY YEAR(F.[Data_de_Emissao]), MONTH(F.[Data_de_Emissao]) "

Infelizmente o código ainda apresenta erro...

o erro que está apresentando é ("Nenhum valor Foi fornecido para um ou mais parâmetros necessários")

Mesmo assim agradeço pela ajuda!

Obrigado.