Rozsah exportu do CSV (textový súbor s oddelenými hodnotami) - Príklady kódu VBA

Uložiť rozsah do súboru CSV

Riešenie č. 670, ako exportovať rozsah do textového súboru s oddelenými hodnotami.

Toto je užitočná alternatíva k použitiu predvoleného spôsobu Excelu na uloženie pracovného hárka ako textového súboru alebo súboru oddeleného CSV výberom možnosti „uložiť ako“, keď:

1. Používate šablónu a chcete exportovať iba údaje bez hlavičiek a iného súboru

2. Podobne môžete chcieť exportovať iba časť množiny údajov

3. Chcete uložiť súbor s vlastným oddeľovačom, ktorý môže byť jedinečný pre vašu aplikáciu.

Ak potrebujete urobiť 1,2 alebo 3, môže vám pomôcť nasledujúca funkcia. Prijíma rozsah na export, umiestnenie na uloženie súboru a oddeľovač, s ktorým chcete oddeliť údaje, a potom údaje uloží podľa zadania.

Tu je návod, ako túto funkciu zavolať ExportRange:

1234567891011 Sub CallExport ()„ExportRange (rozsah, kde, oddeľovač)Zavolajte na ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")Koniec pod

Funkcii najskôr poviete rozsah, ktorý chcete exportovať, potom kam ju chcete exportovať, ako delimeter, ktorý sa má použiť. Budete tiež potrebovať funkciu ExportRange, tu je:

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 Funkcia ExportRange (WhatRange As Range, _Kde ako reťazec, oddeľovač ako reťazec) ako reťazecDim HoldRow As Long 'test pre novú riadkovú premennúHoldRow = WhatRange.RowDim c As Range 'slučka premennou rozsahuZa každé c v WhatRangeAk HoldRow c.Row Then'Pridajte zalomenie riadka a odstráňte extra delimeterExportRange = vľavo (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c. Text a oddeľovačHoldRow = c.RowInakExportRange = ExportRange & c. Text a oddeľovačKoniec AkĎalej c„Orezajte extra oddeľovačExportRange = vľavo (ExportRange, Len (ExportRange) - 1)„Zabite súbor, ak už existujeAk Len (Dir (Where))> 0 ThenZabiť kdeKoniec AkOtvorte miesto, kde chcete pridať ako č. 1, napíšte nový súborVytlačte #1, ExportRangeZatvorte #1Koncová funkcia
wave wave wave wave wave