For at gemme en Kommasepareret værdi fil med citater i Microsoft Excel 2007 , skal du skrive en VBA makro til at udføre funktionen. Funktionen til at eksportere værdier i dobbelte anførselstegn er ikke fastsat som standard i Excel 2007. Men mange applikationer , der accepterer CSV import også kræver dobbelte anførselstegn omkring værdierne i CSV-filen . Opret makroen ved hjælp af en kode skabelon. Hver gang du har brug for at gemme en CSV-fil med citater , bruge makro i stedet for "Gem som" valgmulighed. Når makroen er kørt, en "Gem" åbnes , og CSV-filen er gemt med citater på plads. Instruktioner
1
Åbn Microsoft Excel 2007.
2
Tryk på " Alt " og " F11 " tasterne samtidigt for at åbne VBA editoren .
< br > 3
Klik på "Indsæt " option på den øverste navigationslinje , og klik derefter på " Modul ".
4
Type ( eller kopiere og indsætte) scriptet nedenfor ind i VBA editoren. sub CSVQuotes ()
Dim SrcRange Som RangeDim CurrRow Som RangeDim CurrCell Som RangeDim CurrTextStr Som StringDim ListSeparator Som StringDim filnavn som Variant
FileName = Application.GetSaveAsFilename ( "", " CSV-fil (*. csv) , * . csv " )
ListSeparator = Application.International ( xlListSeparator ) Såfremt Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen FileName For Output Som # 1Nærmere 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 # 1, CurrTextStrNextClose # 1
End Sub
5
Luk VBA editoren ved at klikke på "X" i i øverste højre hjørne . Makroen gemmes .
6
Klik på "Funktioner " option på den øverste navigationslinje , og klik derefter på "Macro ".
7
Vælg " makroer" valgmulighed . Den nye makro , hedder " CSVQuotes ", er nu tilgængelig.
8
Åbn Excel-fil til at eksportere til CSV med citater . Foretag eventuelle ændringer for at forberede regnearket til eksport til CSV -filformat.
9
Tryk på " Alt" og "F8" tasterne samtidigt for at åbne eksisterende makroer listen.
10
Klik på " Kør" valgmulighed ved siden af " CSVQuotes " makro til at køre scriptet. En Fil Gem åbnes.
11
Skriv et navn til CSV-filen i " File Name" indtastningsfelt.
12
Klik på " Gem" knappen . CSV-filen eksporteres, med citater .