excel - open - read text file vba

¿Cómo crear un archivo CSV separado de VBA?

Question

Necesito dar como resultado algunos resultados como un archivo .csv , que luego otro proceso analiza. Para producir estos resultados, tengo un enorme libro de trabajo que contiene todas las macros y funciones que necesito.

1. ¿Es posible "crear" un archivo .csv separado de VBA ?
2. ¿Es posible usar las características de VBA para escribir en él en lugar de simplemente escribir en un enfoque de "texto sin formato"?

Gracias :)

Answer 1

Es algo así como lo que quieres?

Option Explicit
Sub WriteFile()

  Dim ColNum As Integer
  Dim Line As String
  Dim LineValues() As Variant
  Dim OutputFileNum As Integer
  Dim PathName As String
  Dim RowNum As Integer
  Dim SheetValues() As Variant

  PathName = Application.ActiveWorkbook.Path
  OutputFileNum = FreeFile

  Open PathName & "/Test.csv" For Output Lock Write As #OutputFileNum

  Print #OutputFileNum, "Field1" & "," & "Field2"

  SheetValues = Sheets("Sheet1").Range("A1:H9").Value
  ReDim LineValues(1 To 8)

  For RowNum = 1 To 9
    For ColNum = 1 To 8
      LineValues(ColNum) = SheetValues(RowNum, ColNum)
    Next
    Line = Join(LineValues, ",")
    Print #OutputFileNum, Line
  Next

  Close OutputFileNum

End Sub

No olvides que deberás poner comillas alrededor de cualquier campo que contenga una coma.

Answer 2

La respuesta de Tony generalmente funciona, pero no maneja el caso donde el texto contiene comas o comillas. Puede preferir utilizar el método Workbook.SaveAs.

Aquí hay un ejemplo si desea guardar el contenido de Sheet1 como un archivo csv separado.

Sub create_csv()
    Dim FileName As String
    Dim PathName As String
    Dim ws As Worksheet

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    FileName = "filename.csv"
    PathName = Application.ActiveWorkbook.Path
    ws.Copy
    ActiveWorkbook.SaveAs FileName:=PathName & "/" & FileName, _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

Imagine que su Sheet1 contiene:

lorem ipsum

saber, m ips "um"

El archivo de salida csv será:

lorem, ipsum

"lore, m", "ips" "um" ""

Answer 3

Puede escribir una macro como para guardar el libro de trabajo actual (archivo de Excel abierto) en CSV de VBA:

ActiveWorkbook.SaveAs Filename:="C:/Book1.csv", _
    FileFormat:=xlCSVMSDOS, CreateBackup:=False