Saglabāt diapazonu CSV failā
670. risinājums, kā eksportēt diapazonu uz norobežotu teksta failu.
Šī ir ērta alternatīva, lai izmantotu Excel noklusējuma veidu, kā saglabāt darblapu kā teksta failu vai CSV norobežotu failu, izvēloties “saglabāt kā”, ja:
1. Jūs izmantojat veidni un vēlaties eksportēt tikai datus, izņemot galvenes un citas dažādas lietas
2. Līdzīgi, iespējams, vēlēsities eksportēt tikai daļu no datu kopas
3. Jūs vēlaties saglabāt failu ar pielāgotu norobežotāju, kas var būt unikāls jūsu lietojumprogrammai.
Ja jums ir jādara 1,2 vai 3, var palīdzēt šāda funkcija. Tas pieņem eksportējamo diapazonu, faila saglabāšanas vietu un norobežotāju, ar kuru vēlaties atdalīt savus datus, un pēc tam saglabā datus, kā norādīts.
Lūk, kā izsaukt funkciju ExportRange:
| 1234567891011 | Sub CallExport ()'ExportRange (diapazons, kur, norobežotājs)Zvanīt uz ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")Beigu apakš |
Vispirms norādiet funkcijai diapazonu, kuru vēlaties eksportēt, un pēc tam, kur to eksportēt, nekā izmantojamo delimetru. Jums būs nepieciešama arī funkcija ExportRange, te tas ir:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funkcija ExportRange (WhatRange kā diapazons, _Kur kā virkne, norobežotājs kā virkne) kā virkneDim HoldRow As Long 'tests jaunam rindas mainīgajamHoldRow = WhatRange.RowDim c As Range 'cilpa caur diapazona mainīgoKatram c WhatRangeJa HoldRow c.Row Tad"pievienojiet līnijas pārtraukumu un noņemiet papildu delimetruExportRange = pa kreisi (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c. Teksts un norobežotājsHoldRow = c. RindaCitādiExportRange = ExportRange & c.Text & DelimiterBeigas JaNākamais c'Apgrieziet papildu norobežotājuExportRange = pa kreisi (ExportRange, Len (ExportRange) - 1)'Nogaliniet failu, ja tas jau pastāvJa Len (Rež. (Kur))> 0 TadNogalināt KurBeigas JaAtveriet kur Pievienot kā #1 uzrakstiet jauno failu1. izdruka, ExportRangeAizvērt #1Beigu funkcija |
