Come salvare i CSV con le citazioni in Excel 2007

Per salvare un file con valori separati da virgola con le citazioni in Microsoft Excel 2007 , è necessario scrivere una macro VBA per eseguire la funzione. La funzione per esportare i valori racchiusi tra virgolette non è fornito di default in Excel 2007 . Eppure , molte applicazioni che accettano l'importazione CSV richiedono anche le virgolette che circondano i valori nel file CSV . Creare la macro utilizzando un modello di codice . Ogni volta che avete bisogno di salvare un file CSV con le virgolette , utilizzare la macro al posto del "Salva con nome" . Quando si esegue la macro , un dialogo " Salva" si apre e il file CSV viene salvato con le citazioni in luogo . Istruzioni
1

Aprire Microsoft Excel 2007.
2

Premere i tasti "F11 " contemporaneamente per aprire l'editor VBA "Alt" e .

3

Clicca l'opzione "Inserisci" sulla barra di navigazione superiore e fare clic su "Modulo ".
4 Tipo

(o copiare e incollare) il seguente script nell'editor di VBA . CSVQuotes sub ()

Dim SrcRange Come RangeDim CurrRow Come RangeDim CurrCell Come RangeDim CurrTextStr Come StringDim ListSeparator Come StringDim FileName As Variant

FileName = Application.GetSaveAsFilename ( " " , " File CSV ( * . csv) , * . csv " ) per

ListSeparator = Application.International ( xlListSeparator ) Se Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen FileName For Output As # 1Per ogni CurrRow In SrcRange.RowsCurrTextStr = ìîFor ogni CurrCell In CurrRow.CellsCurrTextStr = CurrTextStr & " " " " & CurrCell.Value & " " " " & Right ListSeparatorNextWhile ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = Sinistra ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint # 1 , # 1 CurrTextStrNextClose

End Sub
5

Chiudere l'editor VBA facendo clic sulla "X" in in alto a destra . La macro viene salvata .
6

Fare clic sull'opzione "Strumenti" nella barra di navigazione superiore , e quindi fare clic su " Macro ".
7

Selezionare l' opzione " Macro " . La nuova macro denominata " CSVQuotes , " è ora disponibile .
8

Aprire il file Excel per esportare in formato CSV con le citazioni . Eseguire le modifiche per preparare il foglio di calcolo per l'esportazione verso il formato di file CSV .
9

Premere i tasti "F8" contemporaneamente per aprire l'elenco delle macro esistente "Alt" e .
10

Clicca l'opzione "Esegui" accanto alla macro " CSVQuotes " per eseguire lo script . Si apre un file di salvataggio di dialogo .
11

Digitare un nome per il file CSV in campo " Nome file " .
12

Fare clic sul pulsante "Salva" . Il file CSV viene esportato , con citazioni .