Apache OpenOffice: Foro oficial de la comunidad

Publicado: **Lun Jun 19, 2017 10:13 pm**

Buenas Tardes,
Estoy intentando traducir un codigo de un macro de excel de un libro que exporta una hoja a un archivo csv, pero no me acaba de funcionar.
El codigo es el siguiente
Sub ExportCSV()

Application.Calculation = xlAutomatic
Application.DisplayAlerts = False
Dim path As String: path = ActiveWorkbook.path
Dim name As String:

Range("AE1").FormulaR1C1 = "=+""(CSV) ""&IF(R[7]C[-23]<>"""",TEXT(R[7]C[-23],""aaaa-mm-dd""),"""")&"" Estado tienda ""& R[5]C[-23]" ' &"" - ""&R[5]C[-18]"
name = Range("AE1").Text
Range("AE1").Clear

Sheets("Exportar a CSV").Visible = True
Sheets("Exportar a CSV").Activate
Sheets("Exportar a CSV").Select
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.name = "CSV"

i = 1
Do While Sheets("Exportar a CSV").Range("A" & i).Text <> ""

Sheets("Exportar a CSV").Select
Range("A" & i).Select
Selection.Copy
Sheets("CSV").Select
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

i = i + 1
Loop

Application.CutCopyMode = False
Sheets("CSV").Copy
Cells.Replace What:=",", Replacement:="'", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveWorkbook.SaveAs path & "\" & name & ".csv", xlCSV, CreateBackup:=False
ActiveWorkbook.Close (False)

Sheets("Exportar a CSV").Visible = False
Sheets("CSV").Delete
Sheets("CLIENTE").Select

End Sub

Alguien me puede echar un cable

Publicado: **Lun Jun 19, 2017 10:49 pm**

Usa EasyDev: http://easydev.readthedocs.io/en/latest ... export-csv

Código: Seleccionar todo

util = createUnoService("org.universolibre.EasyDev")

range = ThisComponent.CurrentSelection

path = "/home/USER/test.csv"
data = range.getDataArray()
options = Array()

util.exportCSV(path, data, options)

Saludos

Publicado: **Mar Jun 20, 2017 6:45 pm**

Adicionalmente: y muy ligeramente lento y con unos leves cambios parece que tu macro funciona así:
da clic en expandir vista, selecciona y copia.

Código: Seleccionar todo

Option VBASupport 1
Sub ExportCSV()
doc = ThisComponent.CurrentController
hojas = ThisComponent.getSheets()
Application.Calculation = xlAutomatic
Application.DisplayAlerts = False
Dim path As String: path = ActiveWorkbook.path
Dim name As String:

Range("AE1").FormulaR1C1 = "=+""(CSV) ""&IF(R[7]C[-23]<>"""",TEXT(R[7]C[-23],""aaaa-mm-dd""),"""")&"" Estado tienda ""& R[5]C[-23]" ' &"" - ""&R[5]C[-18]"


name = Range("AE1").Text
Range("AE1").Clear

Sheets("Exportar a CSV").Visible = True
Sheets("Exportar a CSV").Activate
Sheets("Exportar a CSV").Select
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.name = "CSV"


i = 1
Do While Sheets("Exportar a CSV").Range("A" & i).Text <> ""

Sheets("Exportar a CSV").Select
Range("A" & i).Select
Selection.Copy
Sheets("CSV").Select
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

i = i + 1
Loop


Application.CutCopyMode = False
Sheets("CSV").Copy
Cells.Replace What:=",", Replacement:="'", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveWorkbook.SaveAs path & "\" & name & ".csv", xlCSV, CreateBackup:=False
ActiveWorkbook.Close (False)


hojas.getByName("Exportar a CSV").IsVisible = False
hojas.removeByName("CSV")
doc.select(hojas.getByName("CLIENTE").getCellRangeByName("A1"))


End Sub

Publicado: **Mar Jun 20, 2017 7:08 pm**

Muchas gracias por vuestra ayuda

Publicado: **Mar Jun 20, 2017 8:34 pm**

Si consideras que en este tema https://forum.openoffice.org/es/forum/v ... 50&t=13002 y en este mismo se han resuelto tus dudas entonces por favor marcarlos como [RESUELTO]
Aquí nos dicen como hacerlo:
https://forum.openoffice.org/es/forum/v ... f=3&t=2668
Saludos.

Apache OpenOffice: Foro oficial de la comunidad

Traducir Codigo de macro de Excel en basic

Traducir Codigo de macro de Excel en basic

Re: Traducir Codigo de macro de Excel en basic

Re: Traducir Codigo de macro de Excel en basic

Re: Traducir Codigo de macro de Excel en basic

Re: Traducir Codigo de macro de Excel en basic