¿Cómo guardar las hojas de Excel como CSV con una extensión personalizada? -- excel campo con vba camp Relacionados El problema

How to save Excel sheets as csv with a custom extension?


0
vote

problema

Español

Me gustaría guardar mis hojas de trabajo de un libro de trabajo como archivos CSV separados, aunque con una extensión personalizada.

Este es el resultado que estoy buscando:

hoja1.xyz Sheet2.xyz etc

Con el código a continuación, puedo guardar todas las hojas como archivos CSV:

  Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String      SaveToDirectory = "D: est"      For Each WS In ThisWorkbook.Worksheets         WS.SaveAs SaveToDirectory & WS.Name, xlCSV     Next  End Sub   

En el idioma debajo de un libro de ejercicios de Excel se guarda con una extensión personalizada:

Guardar como tipo de archivo diferente

¿Cómo puedo combinarlos para guardar las hojas de trabajo como archivos CSV- (o TEXT-) con una extensión personalizada "XYZ"?

¡Gracias mucho!

Original en ingles

I would like save my worksheets from a workbook as separate csv-files, although with a custom extension.

This is the result I am looking for:

Sheet1.xyz Sheet2.xyz etc

With the code below I can save all sheets as csv-files:

Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String      SaveToDirectory = "D:\test\"      For Each WS In ThisWorkbook.Worksheets         WS.SaveAs SaveToDirectory & WS.Name, xlCSV     Next  End Sub 

In the post below an Excel workbook is saved with a custom extension:

Save as different file type

How can I combine these in order to save the worksheets as csv- (or text-) files with a custom extension "xyz" ?

Thanks a lot!

     
 
 

Lista de respuestas

1
 
vote
vote
La mejor respuesta
 

Pruebe lo siguiente, por favor:

  <menu xmlns:android="http://schemas.android.com/apk/res/android">     <item android:id="@+id/item1"           android:icon="@android:drawable/ic_menu_help"           android:title="Help" />     <item android:id="@+id/item2"           android:icon="@android:drawable/ic_menu_manage"           android:title="Settings" /> </menu> 0  
 

Try the next way, please:

Public Sub SaveWorksheetsAsCsv() Dim WS As Worksheet Dim SaveToDirectory As String     SaveToDirectory = "D:\test\"     For Each WS In ThisWorkbook.Worksheets         WS.SaveAs SaveToDirectory & WS.Name & ".xyz", xlCSV    Next End Sub 
 
 

Relacionados problema

3  ¿Cuáles son los consentimientos y los contras de las matrices pasadas contra las matrices globales en Excel VBA?  ( What are pros cons of passed arrays vs global arrays in excel vba ) 
OK, 2do intento de escribir una pregunta de desbordamiento de una pila, así que perdóname si esto parece familiar. Estoy reescribiendo una macro de Excel qu...

3  Acelerar una macro de Excel?  ( Speed up an excel macro ) 
En este momento tengo una macro PopulateYearlyValues , pero me parece que está tomando demasiado tiempo Sub PopulateYearlyValues(ByVal Month As Range) ...

0  Excel Macro Runtime Error 428 en Excel 2003  ( Excel macro runtime error 428 in excel 2003 ) 
He creado una plantilla XLT Excel que funciona bien en Excel 2007 en el modo de compatibilidad y no muestra errores en la comprobación de compatibilidad. La p...

2  Cómo crear la tabla de contenidos (TOC) a través de Macro  ( How to create table of contents toc via macro ) 
Necesito crear la tabla de contenidos después de Mailmerge por Macro, ya que Word no admite la actualización del campo TOC de los campos TC. ¿Es posible aut...

3  Añadiendo DataPoint a Excel Chart con VBA  ( Adding datapoint to excel chart with vba ) 
Tengo un objeto de carta, con 3 series. La serie está obteniendo los valores Y de los rangos C1: C10, D1: D10 y E1: E10. El valor depende de los valores en A1...

1  Llamando a una función complementaria desde VBA de Excel  ( Calling a add in function from excels vba ) 
Estoy usando un complemento de Excel para un Erlangs: http://abstractmicro.com/erlang/helppages/ref-erlbblockage.htm Intento llamar a la función ERLANG-B d...

0  Regresando C # listas de un servicio web a Excel VBA  ( Returning c sharp lists from a web service to excel vba ) 
Este es un largo - disculpas ... ¿Hay una forma confiable de devolución de listas de C # a VBA a través de un servicio web? Tengo un servicio web que de...

3  ¿Cómo creo una solicitud ejecutable para un procedimiento macro de Excel?  ( How do i create an executable application for a excel macro procedure ) 
Tengo dos hojas de cálculo ("antiguo" y "nuevo") y una macro de script vb. La macro se ejecuta en uno ("nuevo"), hace una comparación de los contenidos de la ...

0  Cómo seleccionar un subconjunto de una tabla con Excel VBA en la forma de seleccionar -> desde -> donde  ( How to select a subset of a table with excel vba in the manner of select from ) 
Disculpas es esta es la pregunta clásica de Newbie, pero no he podido encontrar una respuesta concreta. Soy completamente nuevo para Excel VBA y de programa...

1  ¿Llamar a SSL habilitado servicios de MSEXCEL?  ( Calling ssl enabled services from msexcel ) 
Tengo servicio web desplegado en Web Sphere y este servicio es SSL habilitado. Tengo que llamar a este servicio de MS Excel. Estoy usando mssoaplib.SoapClient...




© 2022 respuesta.top Reservados todos los derechos. Centro de preguntas y respuestas reservados todos los derechos