Shrani obseg v datoteko CSV
Rešitev #670 o tem, kako izvoziti obseg v besedilno datoteko z ločnico.
To je priročna alternativa uporabi privzetega načina Excela za shranjevanje delovnega lista kot besedilne datoteke ali datoteke, ločene s CSV, tako da izberete »shrani kot«, če:
1. Uporabljate predlogo in želite izvoziti le podatke, razen glav in drugih različnih stvari
2. Podobno boste morda želeli izvoziti le del nabora podatkov
3. Datoteko želite shraniti z ločilom po meri, ki je lahko edinstven za vašo aplikacijo.
Če morate narediti 1,2 ali 3, vam lahko pomaga naslednja funkcija. Sprejema obseg za izvoz, lokacijo za shranjevanje datoteke in ločilo, s katerim želite, da se vaši podatki ločijo, nato pa shrani vaše podatke, kot je določeno.
Evo, kako poklicati funkcijo ExportRange:
| 1234567891011 | Sub CallExport ()'ExportRange (obseg, kjer, ločilo)Pokličite ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")End Sub |
Najprej funkciji poveste obseg, ki ga želite izvoziti, nato kam ga izvoziti, kot delimeter za uporabo. Potrebovali boste tudi funkcijo ExportRange, tukaj je:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funkcija ExportRange (WhatRange As Range, _Kje kot niz, ločilo kot niz) kot nizDim HoldRow As Long 'test za novo spremenljivko vrsticeHoldRow = WhatRange.RowDim c As Range 'spremenljivka obsegaZa vsakega c V WhatRangeČe HoldRow c.Row Potem'dodajte prelom vrstice in odstranite dodatni merilnik razdaljeExportRange = Levo (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c.Text & DelimiterHoldRow = c.RowSicer paExportRange = ExportRange & c.Text & DelimiterKonec ČeNaprej c„Odrežite dodaten ločiloExportRange = Levo (ExportRange, Len (ExportRange) - 1)'Ubijte datoteko, če že obstajaČe je Len (Dir (Kje))> 0 PotemUbij KjeKonec ČeOdpri Where For Append As #1 'napiši novo datotekoNatisni #1, ExportRangeZapri #1Končana funkcija |
