Salvestage vahemik CSV -faili
Lahendus nr 670, kuidas vahemikku piiritletud tekstifaili eksportida.
See on mugav alternatiiv Exceli vaikeviisi kasutamiseks töölehe salvestamiseks teksti- või CSV -eraldatud failina, valides „salvesta nimega”, kui:
1. Kasutate malli ja soovite eksportida ainult andmeid, välja arvatud päised ja muu muu kraam
2. Samuti võite soovida eksportida ainult osa andmestikust
3. Soovite faili salvestada kohandatud eraldajaga, mis võib olla teie rakendusele ainulaadne.
Kui teil on vaja teha 1,2 või 3, võib abiks olla järgmine funktsioon. See aktsepteerib eksporditavat vahemikku, faili salvestamise asukohta ja eraldajat, millega soovite oma andmed eraldada, ja salvestab seejärel teie andmed vastavalt määratlusele.
Funktsiooni helistamiseks toimige järgmiselt ExportRange:
| 1234567891011 | Alamkõneeksport ()'ExportRange (vahemik, kus, eraldaja)Helista ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")End Sub |
Esmalt öelge funktsioonile vahemik, mida soovite eksportida, seejärel selle eksportimise koht, kui kasutatav delimeeter. Teil on vaja ka funktsiooni ExportRange, siin see on:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funktsioon ExportRange (WhatRange As Range, _Kus kui string, eraldaja kui string) kui stringDim HoldRow As Long 'test uue rea muutuja jaoksHoldRow = WhatRange.RowDim c As Range 'silmus läbi vahemiku muutujaIga c jaoks WhatRange'isKui HoldRow c.Row Then"lisage joonemurd ja eemaldage täiendav delimeeterExportRange = vasakule (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c.Tekst ja eraldajaHoldRow = c. RidaMuiduExportRange = ExportRange & c.Tekst ja eraldajaLõpp KuiJärgmine c'Kärpige täiendavat eraldajatExportRange = vasakule (ExportRange, Len (ExportRange) - 1)"Tapa fail, kui see on juba olemasKui Len (Dir (Kus))> 0 SiisTapa kusLõpp KuiAva kus lisatakse kui #1 kirjutage uus failTrükk nr 1, ExportRangeSule #1Lõppfunktsioon |
