Spremi raspon u CSV datoteku
Rješenje #670 o tome kako izvesti raspon u tekstualnu datoteku s razgraničenjem.
Ovo je zgodna alternativa korištenju Excel -ovog zadanog načina spremanja radnog lista kao tekstualne datoteke ili datoteke s razdjelnicom CSV odabirom "spremi kao" kada:
1. Upotrebljavate predložak i samo želite izvesti podatke, isključujući zaglavlja i ostalo
2. Slično, možda želite izvesti samo dio skupa podataka
3. Želite spremiti datoteku s prilagođenim graničnikom koji može biti jedinstven za vašu aplikaciju.
Ako trebate napraviti 1,2 ili 3, ova funkcija može pomoći. Prihvaća raspon za izvoz, lokaciju za spremanje datoteke i graničnik s kojim želite da se vaši podaci razdvoje, a zatim sprema vaše podatke kako je navedeno.
Evo kako pozvati funkciju ExportRange:
| 1234567891011 | Sub CallExport ()'ExportRange (raspon, gdje, graničnik)Nazovite ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")Kraj podm |
Prvo morate reći funkciji raspon koji želite izvesti, zatim gdje ga izvesti, zatim delimetar za korištenje. Trebat će vam i funkcija ExportRange, Evo ga:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funkcija ExportRange (WhatRange As Range, _Gdje kao niz, razdjelnik kao niz) kao nizDim HoldRow As Long 'test za novu varijablu retkaHoldRow = WhatRange.RowDim c As Range 'petlja kroz varijablu rasponaZa svaki c U WhatRangeuAko HoldRow c.Row Tada'dodajte prekid linije i uklonite dodatni mjerač dubineExportRange = Lijevo (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c.Text & DelimiterHoldRow = c.RowDrugoExportRange = ExportRange & c.Text & DelimiterZavrši akoSljedeće c'Odrežite dodatni graničnikExportRange = Lijevo (ExportRange, Len (ExportRange) - 1)'Ubijte datoteku ako već postojiAko je Len (Dir (Gdje))> 0 TadaUbij GdjeZavrši akoOtvorite Where For Append As #1 'napišite novu datotekuIspis #1, ExportRangeZatvori #1Završna funkcija |
