Hola a tod@s

En el siguiente código lee información del archivo "ConsultaSQL.txt":

Sub opentxt()

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
Dim CodCliente As String

fileName = "C:\Users\PC\Usuario\ConsultaSQL.txt"
fileNo = FreeFile
    
CodCliente = UserForm.TextBox1.Value
    
Open fileName For Input As #fileNo
Do While Not EOF(fileNo)
   Line Input #fileNo, textRow
   textData = textData & textRow
Loop
Close #fileNo

End Sub

Sin embargo, necesito que mediante un Textbox ingresar el código del cliente y este insertarse en la SQL que se encuentra en el archivo .txt para que haga el filtro correspondiente. El objetivo es filtrar por código cliente e importarlo a excel que este ultimo ya 

Archivo texto ConsultaSQL:

SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]
FROM CABECERAMOVIMIENTO AS C
GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]

El objetivo es el que se forme la siguiente SQL para luego importarlo a excel.

SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]
FROM CABECERAMOVIMIENTO AS C
WHERE C.[CODIGO REL] = "A 030-030"
GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]

Espero haberme hecho entender.

Saludos.

 

 

Editado el el 28 de julio3 años por CarlosKurt

Sql = "SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"
Sql = Sql & " FROM CABECERAMOVIMIENTO AS C"
Sql = Sql & " WHERE C.[CODIGO REL] =  '" & TextBox1 & "'"
Sql = Sql & " GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"

 

Hace 11 horas, Antoni dijo:

Sql = "SELECT C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"
Sql = Sql & " FROM CABECERAMOVIMIENTO AS C"
Sql = Sql & " WHERE C.[CODIGO REL] =  '" & TextBox1 & "'"
Sql = Sql & " GROUP BY C.FOLIO, C.[ESTADO DATOS], C.[CODIGO REL]"

 

Hola @Antoni,  su propuesta me serviría si la consulta Sql estuviera en un módulo, sucede que la consulta Sql esta un archivo con extension de texto (.txt). Entonces la idea es leer la consulta Sql del archivo y agregar la siguiente linea 

WHERE C.[CODIGO REL] =  '" & TextBox1 & "'

La intención es trabajar las consultas Sql en un archivo .txt y no en los módulos.

Saludos.

A ver si es esto lo que quieres:

Sub opentxt()
'....
'....
i = InStr(textData, "GROUP BY")
textData = Left(textData, i - 1) & "WHERE C.[CODIGO REL] = '" & TextBox1 & "' " & Mid(textData, i)
End Sub

 

Hace 7 horas, Antoni dijo:

A ver si es esto lo que quieres:

Sub opentxt()
'....
'....
i = InStr(textData, "GROUP BY")
textData = Left(textData, i - 1) & "WHERE C.[CODIGO REL] = '" & TextBox1 & "' " & Mid(textData, i)
End Sub

 

Hola @Antoni, había olvidado esos tipos de funciones que tiene Vba Excel.

Doy por terminado el tema.

Saludos.