För att spara en semikolonavgränsad fil med citationstecken i Microsoft Excel 2007 , måste du skriva ett VBA- makro för att utföra funktionen . Funktionaliteten för att exportera värden inom citationstecken inte tillhandahålls som standard i Excel 2007 . Men många program som accepterar CSV import kräver också citationstecken kring värden i CSV-filen . Skapa makrot genom att använda en kod mall . Varje gång du behöver för att spara en CSV -fil med citationstecken, använder makrot istället för " Spara som " alternativet . När makrot körs , öppnas ett " Save " rutan och CSV-filen sparas med citationstecken i stället . Instruktioner
1
Öppna Microsoft Excel 2007.
2
Tryck på " Alt " och " F11 " tangenterna samtidigt för att öppna VBA editorn .
3
Klicka på " Infoga " alternativet på den övre navigeringsfältet och klicka sedan på " modul . "
4
Typ ( eller kopiera och klistra ) skriptet nedan i VBA editorn . sub CSVQuotes ( ) katalog
Dim SrcRange Som RangeDim CurrRow Som RangeDim CurrCell Som RangeDim CurrTextStr Som StringDim ListSeparator Som StringDim filnamnet som Variant
filename = Application.GetSaveAsFilename ( " " , " CSV -fil ( * . csv ) , * . csv " ) katalog
ListSeparator = Application.International ( xlListSeparator ) Om Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen filnamn för utdata som # 1För varje CurrRow I SrcRange.RowsCurrTextStr = ìîFor varje CurrCell I CurrRow.CellsCurrTextStr = CurrTextStr & " " " " & CurrCell.Value & " " " " & ListSeparatorNextWhile Höger ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = Vänster ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint # 1 , CurrTextStrNextClose # 1
End Sub
5
Stäng VBA editorn genom att klicka på " X " i det övre högra hörnet . Makrot sparas .
6
Klicka på " Verktyg " alternativet på den övre navigeringsfältet och klicka sedan på " Macro ". Välj " Makron " alternativet
7
. Den nya makrot , som heter " CSVQuotes , " finns nu tillgänglig .
8
Öppna Excel-fil att exportera till CSV med citat . Gör eventuella ändringar förbereda kalkylblad för export till CSV -format .
9
Tryck på " Alt " och "F8" tangenterna samtidigt för att öppna den befintliga makron listan .
10
Klicka på " kör " alternativet bredvid " CSVQuotes " makro för att köra skriptet . En File Save öppnas .
11
Skriv ett namn på CSV- filen i " File Name " rutan .
12
Klicka på knappen "Spara" . CSV-filen exporteras med citat .
