Hola pasalo a txt y posteriormente ejecuta esta macro, Saludos!!!
Código SQL:
Ver original[HTML]
Sub ImportarArchivosTXTmuyLargos()
'Dimension de variable
Dim ResultStr As String
Dim FileNum As Integer
Dim Counter As Double
'Abrir Archivo
FileName = Application.GetOpenFilename _
(filefilter:="Archivos de Texto (*.txt),*.txt", Title:="Elegir Archivo")
IF FileName = "" THEN END
FileNum = FreeFile()
OPEN FileName FOR INPUT AS #FileNum
Application.ScreenUpdating = FALSE
Workbooks.ADD template:=xlWorksheet
Counter = 1
Do While Seek(FileNum) <= LOF(FileNum)
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
Line INPUT #FileNum, ResultStr
IF LEFT(ResultStr, 1) = "=" THEN
ActiveCell.VALUE = "'" & ResultStr
ELSE
ActiveCell.VALUE = ResultStr
END IF
IF ActiveCell.ROW = 1048576 THEN
ActiveWorkbook.Sheets.ADD
ELSE
ActiveCell.Offset(1, 0).SELECT
END IF
Counter = Counter + 1
Loop
Close
Application.StatusBar = FALSE
END Sub[/HTML]
Me dices si te funciono