none
Abrir archivo delimitado por comas *.Csv en un nuevo libro del archivo excel abierto RRS feed

  • Pregunta

  • Hola a todos:

    Les presento mi problema ojala alguien pudiera aportar con la solucion:

    Tengo un archivo de excel abierto y deseo abrir algunos archivos con extension .CSV pero que con forme los vaya abriendo esto se vayan insertarndo como nuevas hojas del libro excel abierto actualmente.

    Utilizo el siguiente codigo para seleccionar y abrir el Csv:

    Sub Abrir_y_DividirEnComumnas()
    
    Dim strNombreArchivo
     
    strNombreArchivo = Application.GetOpenFilename
    If strNombreArchivo = False Then Exit Sub
     
    'ActiveWorkbook.Sheets.Add Before:=Worksheets("Informe1")
    
    Workbooks.OpenText _
    Filename:=strNombreArchivo, _
    Origin:=xlWindows, _
    StartRow:=1, _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=True, _
    Other:=False, _
    FieldInfo:=Array(1, 1)
    End Sub

    Pero como les digo este codigo me abre el archivo pero en un nuevo libro del Excel y lo que se requiere es que se me lo inserte en el libro activo.

    Gracias de antemano.


    Saludos desde Monterrey, Nuevo León, México!!!

    jueves, 22 de noviembre de 2012 0:22