vba Erro 13 - Tipos Imcompativeis

[kakarott]

Prezados boa noite,

Não sei o que houve mas não consigo automatizar a planilha mostrada. Ao excutar a mesma apresenta 'Erro de excução - Tipos imcompativeis'.

Estou a 7 horas tentando fazer funcionar mas não consigo. Podem me ajudar por favor?

Não consigo deixar uma query fixa, pois sempre existe uma alteração nos valores descritos no range.

===================================================================================================

Sub TesteMYSQL()
'
' Macro4 Macro
'
Dim BSQL As String

BSQL = "SELECT column1, column2 FROM tabela1 iv Left Join Tabela2 ie ON iv.column3 = ie.column4 Left Join Tabela3 e ON ie.column4 = e.column5 WHERE e.column5 is not null and iv.supervisor IN " & _
Range("L12:L380").Value & "#"

    With ActiveWorkbook.Connections("vendas_regiao").ODBCConnection
        .BackgroundQuery = True
        .CommandText = Array(BSQL)
        End With
        End Sub
 

Editado Junho 26, 2016 por kakarott