1
Abra Microsoft Excel 2007 .
2 Pulse las teclas de " F11 " al mismo tiempo para abrir el editor de VBA "Alt " y .
3
Haga clic en la opción "Insertar " de la barra de navegación superior y luego haga clic en " módulos".
4
Escriba (o copie y pegue) el siguiente script en el editor de VBA. CSVQuotes ( Sub ) guía
SrcRange As RangeDim CurrRow Como RangeDim CurrCell Como RangeDim CurrTextStr Como StringDim ListSeparator Como StringDim NombreArchivo As Variant
filename = Application.GetSaveAsFilename ("", "Archivo CSV (*. csv ) , * . csv " )
ListSeparator = Application.International ( xlListSeparator ) Si Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen nombre de archivo de salida como # 1 Para Cada CurrRow En SrcRange.RowsCurrTextStr = ìîFor Cada CurrCell En CurrRow.CellsCurrTextStr = CurrTextStr & "" "" & CurrCell.Value & "" "" & Derecho ListSeparatorNextWhile ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = izquierda ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint # 1 , # 1 CurrTextStrNextClose
End Sub
5
Cierre el editor de VBA , haga clic en la "X" en la la esquina superior derecha. La macro se guarda .
6
clic en la opción " Herramientas " en la barra de navegación superior y , a continuación, haga clic en "Macro ".
7
Seleccione la opción " Macros " . La nueva macro , llamada « CSVQuotes ", ya está disponible.
8
Abra el archivo Excel para exportar a CSV entre comillas. Haga todos los cambios para preparar la hoja de cálculo para la exportación al formato de archivo CSV.
9
Pulse las teclas " F8 " simultáneamente para abrir la lista de macros existente " Alt " y .
10
Haga clic en la opción "Ejecutar" al lado de la macro " CSVQuotes " para ejecutar el script. Se abrirá un cuadro de Guardar Archivo .
11
Escriba un nombre para el archivo CSV en la casilla " Nombre de archivo " .
12
clic en el botón " Guardar" . El archivo CSV se exporta, con citas .