Deseamos abrir rápidamente un fichero de texto (csv o txt), sin necesidad de importarlo desde la pestaña de Datos.
Simplemente arrastramos el fichero y lo soltamos sobre cualquier fichero Excel abierto o el icono de Excel en la barra de tareas. Excel creará automáticamente otro libro temporal con el contenido del fichero de texto.
Queremos añadir programáticamente comentarios dentro de nuestros ficheros de texto. De esta manera podremos autodocumentarlos. Cuando importemos los ficheros R importará solamente los datos, no los comentarios.
Como ejemplo, creamos en nuestro directorio de trabajo el fichero arboles.csv con el data frame trees.
# Dos modos. Sin nombres de fila.
write.table(trees, "arboles.csv", sep = ",", row.names = FALSE)
write.csv(trees, "arboles.csv", row.names = FALSE)
arboles <- read.table("arboles.csv", header = TRUE, sep = ",")
arboles <- read.csv("arboles.csv", comment.char = "#")
head(arboles)
Girth Height Volume
1 8.3 70 10.3
2 8.6 65 10.3
3 8.8 63 10.2
4 10.5 72 16.4
5 10.7 81 18.8
6 10.8 83 19.7
grep("^#", readLines("arboles.csv"), value = TRUE)
[1] "# trees {datasets}"
[2] "# Girth, Height and Volume for Black Cherry Trees"
[3] "# Description"
[4] "# This data set provides measurements of the girth, "
[5] "# height and volume of timber in 31 felled black cherry trees. "
[6] "# Note that girth is the diameter of the tree (in inches) "
[7] "# measured at 4 ft 6 in above the ground."
Podemos usar el mismo procedimiento anterior con las funciones read.csv2, read.delim y read.delim2.
En nuestro ejemplo hemos puesto los comentarios encima del encabezados de las columnas, pero pueden ser insertados en cualquier línea nueva, también entre registros. R los interpretará como comentarios y los ignorará.
Queremos añadir comentarios dentro de nuestros ficheros de texto. De esta manera podremos autodocumentarlos. Cuando importemos los ficheros, R importará solamente los datos, no los comentarios.
Como ejemplo, creamos en nuestro directorio de trabajo el fichero arboles.csv con el data frame trees.
# Dos modos. Sin nombres de fila.
write.table(trees, "arboles.csv", sep = ",", row.names = FALSE)
write.csv(trees, "arboles.csv", row.names = FALSE)
arboles <- read.table("arboles.csv", header = TRUE, sep = ",")
arboles <- read.csv("arboles.csv", comment.char = "#")
head(arboles)
Girth Height Volume
1 8.3 70 10.3
2 8.6 65 10.3
3 8.8 63 10.2
4 10.5 72 16.4
5 10.7 81 18.8
6 10.8 83 19.7
Podemos usar el mismo procedimiento anterior con las funciones read.csv2, read.delim y read.delim2.
En nuestro ejemplo hemos puesto los comentarios encima del encabezados de las columnas, pero pueden ser insertados en cualquier línea nueva, también entre registros. R los interpretará como comentarios y los ignorará.
Public Sub ReemplazarCaracteresExcel()
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename:=Application.GetOpenFilename)
Ruta = ActiveWorkbook.FullName
RutaSinExtension = Left(Ruta, InStrRev(Ruta, ".") - 1)
wb.Close False
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Ruta) Then
Set objStream = fso.OpenTextFile(Ruta, 1, False, 0)
End If
Set ObjCopy = fso.CreateTextFile(RutaSinExtension & "_final." & Right(Ruta, 3))
For x = 1 To 5 'Salta el nº de líneas indicadas: 5
objStream.readline
Next x
Do While Not objStream.AtEndOfStream
strOldLine = objStream.readline
i = 1
newarray = Split(strOldLine, ",") 'Carácter reemplazado: ,
strNewLine = newarray(0)
Do Until i = UBound(newarray) + 1
strNewLine = strNewLine & ";" & newarray(i) 'Carácter nuevo: ;
i = i + 1
Loop
ObjCopy.WriteLine strNewLine
Loop
Application.ScreenUpdating = True
MsgBox "Fichero creado: " & RutaSinExtension & "_final." & Right(Ruta, 3)
End Sub
Borramos estas 3 líneas en el caso de que en el fichero de texto no haya que saltarse líneas en blanco y que provocarían un error:
For x = 1 To 5 'Se salta el nº de líneas indicadas
objStream.readline
Next x
Sub ImportarCSV()
Dim t As Single
t = Timer
Sheets("DATOS").Cells.ClearContents
strFile = Application.GetOpenFilename("CSV, *.csv")
If strFile = Empty Then
Response = MsgBox("Ningún fichero seleccionado", _
vbOKOnly, "Error")
Exit Sub
Else
End If
With Sheets("DATOS").QueryTables.Add(Connection:= _
"TEXT;" & strFile _
, Destination:=Sheets("DATOS").Range("$A$1"))
.Name = "fichero"
.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 = True 'CSV: punto y coma
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1) '5 columnas
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
MsgBox Timer - t
End Sub
En la primera parte iniciamos el cronómetro. Limpia los contenidos de la hoja DATOS en la que importaremos el fichero de texto CSV desde la celda A1. Abre un cuadro de diálogo que nos permite seleccionar el fichero a importar y nos alerta si no seleccionamos ninguno. Finalmente, importa el fichero de texto delimitado por punto y coma de 5 columnas, y nos indica el tiempo empleado en la importación.Deliberadamente he dejado todas las propiedades que se detallan al grabar una macro usando el asistente de importación. Sin entrar a explicar todas las propiedades del objeto QueryTable, que casi se explican por sí solas, vamos a detenernos en tres:
.RefreshStyle Establece cómo se agregan o eliminan filas de la hoja de cálculo especificada. Si se sobreescriben las filas o no.
.TextFileStartRow Nos permite especificar la fila a partir de la que comienza la importación. Es 1 por defecto.
.TextFileColumnDataTypes Para especificar los tipos de datos de las columnas importadas mediante constantes. El 1 (xlGeneralFormat) las importa con formato general y el 9 (xlSkipColumn) para saltar esa columna. Ej.: TextFileColumnDataTypes = Array(1, 9, 1, 1, 1) saltaría la segunda columna. Si especifica más elementos para la matriz que columnas disponibles, se omiten esos valores.
Además, si necesitamos anexar nuevos ficheros CSV (asumimos la misma estructura que el anterior) podemos usar el siguiente código:
Sub AnexarCSV()
Dim t As Single
t = Timer
Sheets("DATOS").Select
Dim LastRow As Long
LastRow = Range("A1").End(xlDown).Row + 1
With Sheets("DATOS").QueryTables.Add(Connection:= _
"TEXT;" & ThisWorkbook.Path & "\fichero.csv" _
, Destination:=Sheets("DATOS").Range("A" & LastRow))
.Name = "fichero"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertEntireRows ' Inserta filas
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 2 ' Salta 1ª línea con encabezado
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True 'CSV: punto y coma
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
MsgBox Timer - t
End Sub
En la primera parte iniciamos el cronómetro. Identificamos la última fila escrita e importamos el CSV que de copiará a partir de la fila previamente identificada. En este caso, en lugar de elegir el fichero con un cuadro de diálogo, se trata del fichero.txt ubicado en la misma ruta que nuestro Excel. Finalmente, nos indica el tiempo empleado en la importación. En cualquier caso, si deseamos indicar manualmente la ruta del fichero y que se copie en la hoja activa, basta con sustituir las tres líneas desde With y a .Name por estas:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\TU_RUTA_CORRESPONDIENTE\fichero.csv", _
Destination:=Range("$A$1"))
Tipo de transferencia: Exportar delimitado
Nombre de las especificación: estará disponible la especificación previamente guardada.
Nombre de la tabla, o del objeto que deseamos exportar.
Nombre del archivo: ruta completa del archivo de texto al que se va a exportar.
Contiene nombres de campo: sí.
Las dos últimos parámetros no son necesarios en este caso.
Function ExportarCSV() DoCmd.TransferText acExportDelim, "Especificacion1", "Tabla1", "C:\Ruta\Tabla1.csv", True, "" End FunctionEntradas relacionadas:
Campo: Format([Tabla1]![CampoNumerico];"0,000000")
Public Sub ReemplazarCaracteresExcel()
Dim folderPath As String
folderPath = ThisWorkbook.Path & "\" 'Ruta del Excel
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(folderPath & "Inicial.csv") Then
Set objStream = fso.OpenTextFile(folderPath & "Inicial.csv", 1, False, 0)
End If
Set objCopy = fso.CreateTextFile(folderPath & "Final.csv")
For x = 1 To 5 'Se salta el nº de líneas indicadas: 5
objStream.readline
Next x
Do While Not objStream.AtEndOfStream
strOldLine = objStream.readline
i = 1
NewArray = Split(strOldLine, ",") 'Carácter reemplazado: ,
strNewLine = NewArray(0)
Do Until i = UBound(NewArray) + 1
strNewLine = strNewLine & ";" & NewArray(i) 'Carácter nuevo: ;
i = i + 1
Loop
objCopy.WriteLine strNewLine
Loop
End Sub
Notas:
El fichero Inicial.csv debe de estar en la misma ruta del Excel. El fichero Final.csv se creará automáticamente.
Borrar estas 3 líneas en el caso de que en el fichero de texto no haya que saltarse líneas en blanco y que provocarían un error:
For x = 1 To 5 'Se salta el nº de líneas indicadas
objStream.readline
Next x
También se puede usar este código para ficheros *txt. Ejemplo: Inicial.txt y Final.txt
Nube de datos