Error en Macro - Abrir archivo plano en un libro Excel establecido.

Buenos días

Por favor me podrías ayudar revisando la siguiente macro sobre la cual pretendo abrir un archivo plano en Excel en la celda A1 de un libro, pero seleccionando la ubicación del archivo con la opción Application.GetOpenFilename

Dim strNombreArchivo
strNombreArchivo = Application.GetOpenFilename
If strNombreArchivo = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:=strNombreArchivo, Destination:=Range("$A$1")) _
.Name = "DECLARA"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

De antemano te agradezco mucho tu tiempo y ayuda

Saludos

0

Añade tu respuesta

Haz clic para o