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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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:
El objetivo es el que se forme la siguiente SQL para luego importarlo a excel.
Espero haberme hecho entender.
Saludos.