Om een Comma Separated Value bestand met citaten in Microsoft Excel 2007 , moet u schrijven VBA macro om de functie te bereiken . De functionaliteit om waarden tussen dubbele aanhalingstekens te exporteren is niet standaard in Excel 2007 . Toch vele toepassingen die import CSV accepteren vereisen ook de dubbele aanhalingstekens rond waarden in het CSV-bestand . Maak de macro met behulp van een code template . Elke keer dat u nodig hebt om een CSV- bestand op te slaan met citaten , gebruikt u de macro in plaats van de "Opslaan als" optie . Wanneer de macro wordt uitgevoerd , een doos " Save" wordt geopend en het CSV-bestand wordt opgeslagen met quotes op zijn plaats . Instructies
Open Microsoft Excel 2007 1 .
Druk op de " Alt " en " F11 " toetsen gelijktijdig in om de VBA- editor te openen 2 .
< br > 3 Klik op de optie "Insert " op de bovenste navigatiebalk en klik vervolgens op "Module . "
Type ( of kopieer en plak ) het onderstaande script in de VBA- editor 4 . sub CSVQuotes ( ) Dim SrcRange
Zoals RangeDim CurrRow Zoals RangeDim CurrCell Zoals RangeDim CurrTextStr Zoals StringDim ListSeparator Zoals StringDim FileName als Variant FileName
= Application.GetSaveAsFilename ( " " , " CSV-bestand ( csv * . ) , * . csv " ) ListSeparator
= Application.International ( xlListSeparator ) Als Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen bestandsnaam Voor Output Zoals # 1Voor elke CurrRow In SrcRange.RowsCurrTextStr = ìîFor elke CurrCell In CurrRow.CellsCurrTextStr = CurrTextStr & " " " " & CurrCell.Value & " " " " & ListSeparatorNextWhile Right ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = Links ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint # 1 , CurrTextStrNextClose # 1 End Sub
5
Sluit de VBA- editor door te klikken op de "X" in de rechterbovenhoek . De macro wordt opgeslagen .
6 Klik op de optie "Extra" op de bovenste navigatiebalk en klik vervolgens op ' Macro '.
7 Selecteer de optie " Macro's " . De nieuwe macro , genaamd " CSVQuotes , " is nu beschikbaar .
8 Open het Excel-bestand te exporteren naar CSV met citaten . Breng eventueel wijzigingen in de spreadsheet te bereiden voor de export naar het CSV-bestand .
Druk 9 van de "Alt " en toets " F8 " gelijktijdig aan de bestaande lijst macro's te openen .
10 Klik op de "Run " optie naast de " CSVQuotes " macro om het script uit te voeren. Doos Een bestand opslaan wordt geopend .
Type 11 een naam voor het CSV- bestand in de " File Name " invoerveld .
12 Klik op de knop "Opslaan" . Het CSV-bestand wordt geëxporteerd , met citaten .
|
