excel con varias hojas a CSV

[maue75]

Hola,

tengo en realidad varios excel, y a todos debería poder hacerles lo mismo: Exportar sus hojas a CSV. Un dato que complica más es que hay formulas, y he visto que en las exportaciones no se resuelven las formulas a valor absoluto, sino que simplemente queda con #REF.

¿Alguna solución de como exportar ?

[mrocf]

Iniciado por maue75

... he visto que en las exportaciones no se resuelven las formulas a valor absoluto, sino que simplemente queda con #REF.

¡Jamás había leído algo así!...

Pero... ¡Bueno!... Empieza intentando con:

Código vb:

Sub a_PDFs()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
  ws.Copy
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
    Format(Timer / 10, "0.00") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  ActiveWorkbook.Close False
Next
Application.ScreenUpdating = True
End Sub
 

[maue75]

Hola mrocf!!

He probado tu rutina dentro de lo casi nada que se y no he podido.
He seguido unos pasos que ví en un site:
Step 1: Hold down the ALT + F11 keys,.
Step 2: Click Insert > Module, and paste the following macro in the Module Window
Step 3: Press the F5 key to run this code.

Y excel me responde "Se ha producido el error 438 en tiempo de ejecución"


De todas formas, creo que lo que me has indicado haría la conversion a PDF, y yo lo necesito en modo txt para luego poder llevarlo a base de datos.

Lo que te comentaba de que no descompone las formulas a valores absolutos, es cuando tienes algun script que va hoja por hoja convirtiendo a CSV, y donde encuentra formulas, no resuelve el dato.
( eso me pasa si utilizo la macro que dice este link:
http://www.extendoffice.com/document...-workbook.html )

[maue75]

La respuesta de este link funciona OK.

http://stackoverflow.com/questions/5...rate-csv-files