bueno aqui estoy denuevo pidiendo ayuda para la misma macro, ya hice que medio funcionara pero tiene un defecto, no me copia celdas con numeros o fechas o si las copia les pone valores del tipo FX (donde X es 1,2,3,...), dejo el codigo que estoy usando para que me digan por que falla.
Código:
Sub leer_archivo_excel()
Application.ScreenUpdating = False
On Error Resume Next
ruta = ThisWorkbook.Path
fichero = "EJEMPLO2.xls"
Set Conn = New ADODB.Connection
Conn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ruta & "\" & fichero
Set rs = New ADODB.Recordset
Sql = "SELECT * FROM A1:AN7"
rs.Open Sql, Conn, adOpenStatic, adLockOptimistic
Range("A2").Select
Dim cont1 As Integer
Do While Not rs.EOF
cont1 = 0
Do While cont1 <= 40
ActiveCell.Offset(0, cont1) = rs(cont1)
cont1 = cont1 + 1
Loop
rs.MoveNext
ActiveCell.Offset(1, 0).Select
Loop
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
Application.ScreenUpdating = True
End Sub