Avalados por :
Public Sub OpenExlFile(ExcelPath As String)
Attempt1:
On Error GoTo Fail1
' Assume we're running Microsoft Excel
' Inicio: Rotina original
Workbooks.OpenText FileName:=ExcelPath, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:""", FieldInfo:Array("1", "2", "3", "4")
End Sub
No hay respuestas para mostrar
Se el primero en responder
contacto@primeconsultor.com
+1 (305) 285-8622
© 2025 Todos los derechos reservados.
Desarrollado por Prime Consultor