Slik lagrer du en kommadelte fil med sitater i Microsoft Excel 2007 , må du skrive en VBA- makro for å utføre funksjonen. Funksjonalitet for å eksportere verdier inne i doble anførselstegn er ikke gitt som standard i Excel 2007 . Likevel , mange programmer som godtar CSV import også krever doble anførselstegn rundt verdiene i CSV-filen . Lag makroen ved hjelp av en kode mal. Hver gang du trenger å lagre en CSV -fil med sitater , bruker makroen i stedet for " Lagre som" . Når makroen kjøres , åpnes en "Lagre" -boksen og CSV -filen lagres med sitater på plass . Instruksjoner
en

Åpne Microsoft Excel 2007 .
2

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

3

Klikk på " Insert " på menylinjen og deretter " Module ".
4

type ( eller kopier og lim ) skriptet nedenfor i VBA editor. Gå CSVQuotes ()

Dim SrcRange Som RangeDim CurrRow Som RangeDim CurrCell Som RangeDim CurrTextStr Som StringDim ListSeparator Som StringDim filnavnet som Variant

FileName = Application.GetSaveAsFilename ( "", " CSV-fil ( * . csv ) , * . csv ")

ListSeparator = Application.International ( xlListSeparator ) Hvis Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen FileName For Output As # 1for hver CurrRow I SrcRange.RowsCurrTextStr = ìîFor hver CurrCell I CurrRow.CellsCurrTextStr = CurrTextStr & " " "" & CurrCell.Value & " " "" & ListSeparatorNextWhile Right ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = Venstre ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint nr. ​​1 , CurrTextStrNextClose nr. 1

End Sub
5

Lukk VBA editoren ved å klikke på "X" i øvre høyre hjørne . Makroen lagres .
6

Klikk på " Verktøy " på menylinjen , og klikk deretter på "Macro ".
7

Velg " Makroer " alternativet . Den nye makro , som heter " CSVQuotes , " er nå tilgjengelig .
8

Åpne Excel- fil for å eksportere til CSV med sitater . Gjør eventuelle endringer forberede regnearket for eksport til CSV -filformat.
9

Trykk på " Alt" og " F8 "-tastene samtidig for å åpne den eksisterende makroer listen.
10

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

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

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