AYUDA CON VIsUAL EN EXCEL

[leonx83]

estoy programando con visual en un userform

tengo el siguiente código

Private Sub BtnAceptar_Click()

Dim Tx As Integer
On Error Resume Next
Dim texto As Integer
Dim texto2 As String

texto = ListBox1.Text
ListBox2.AddItem texto

Tx = Application.WorksheetFunction.VLookup(texto, Workbooks("C:\ProgramaEmb.xls").Sheets("Mañana").R ange("A1:J125"), 10, False)

'Aquí verificamos si existió un error
If Err.Number <> 0 Then
'Le damos valor 0 al resultado
MsgBox "No se encuentra código, debe ser de requerimiento = 0 ", vbExclamation, "ERROR"
'ListBox3 = 0
Err.Clear
End If
'Se asigna el valor encontrado en el caso de existir el código

ListBox3.AddItem Tx

End Sub

el problema que cuando quiero acceder al otro libro "ProgramaEmb" no puede.. o sea no sé si realmente accede al libro, que no es el mismo donde tengo el Userform original, sino que pretendo de otro libro extrar datos de la columna J del libro ProgramaEmb. pero no me entrega los datos, siempre me devuelve cceros

no sé que estoy haciendo mal
si alguno me pudiera ayudar seria genial

[leonx83]

alguien me dijo que era estableciendo una conección con ADO
pero no sé cómo hacerla

me podrían ayudar por favoR

[David]

Para extraer datos de otro libro simplemente haz:

Código:

Dim xlsBook As Workbook
Set xlsBook = Workbooks.Open("C:\archivo.xls")
'Aquí el código para manejar los datos del libro
xlsBook.Close
Set xlsBook = Nothing