Hvordan spare CSVs med sitater i Excel 2007

Slik lagrer du en kommadelte filen med sitater i Microsoft Excel 2007, må du skrive en VBA-makro for å oppnå funksjonen. Funksjonaliteten til eksportverdier i doble anførselstegn er ikke gitt som standard i Excel 2007. Likevel, mange programmer som godtar CSV import også kreve anførselstegn rundt verdiene i CSV-filen. Opprett makroen ved hjelp av en kode mal. Hver gang du trenger å lagre en CSV-fil med sitater, bruke makroen i stedet for "Lagre som" alternativet. Når makroen kjøres, åpnes en "Lagre" boksen og CSV-filen er lagret med sitater på plass.

Bruksanvisning

1 Åpne Microsoft Excel 2007.

2 Trykk på "Alt" og "F11" tastene samtidig for å åpne VBA editor.

3 Klikk på "Sett inn" på menylinjen, og klikk deretter på "Module".

4 Type (eller kopier og lim) skriptet nedenfor i VBA editor.

Sub CSVQuotes ()

Dim SrcRange As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSeparator As String
Dim filnavn som Variant

Filename = Application.GetSaveAsFilename ( "", "CSV-fil

(CSV), CSV")

ListSeparator = Application.International (xlListSeparator)
Hvis Selection.Cells.Count> 1 Da
Sett SrcRange = Selection
Ellers
Sett SrcRange = ActiveSheet.UsedRange
Slutt om
Åpne Filename For Output As # 1
For hver CurrRow I SrcRange.Rows
CurrTextStr = II
For hver CurrCell I CurrRow.Cells
CurrTextStr = CurrTextStr & "" "" & CurrCell.Value & "" "" & ListSeparator
neste
Mens Høyre (CurrTextStr, 1) = ListSeparator
CurrTextStr = Left (CurrTextStr, Len (CurrTextStr) - 1)
Wend
Print # 1, CurrTextStr
neste
Lukk # 1

End Sub

5 Lukk VBA editor ved å klikke på "X" i øverste høyre hjørne. Makroen er lagret.

6 Klikk på "Tools" på menylinjen, og klikk deretter på "makro".

7 Velg "Makroer" alternativet. Den nye makro, kåret til "CSVQuotes," er nå tilgjengelig.

8 Åpne Excel-filen som skal eksporteres til CSV med sitater. Gjør eventuelle endringer for å forberede regneark for eksport til CSV-filformat.

9 Trykk på "Alt" og "F8" tastene samtidig for å åpne eksisterende makroer listen.

10 Klikk på "Run" alternativet ved siden av "CSVQuotes" makro å kjøre skriptet. En File Save åpnes.

11 Skriv inn et navn for CSV-filen inn i "File Name" input-boksen.

12 Klikk på "Lagre" -knappen. CSV-filen eksporteres, med sitater.