Išsaugoti diapazoną į CSV failą
670 sprendimas, kaip eksportuoti diapazoną į atskirtą teksto failą.
Tai yra patogi alternatyva naudojant numatytąjį „Excel“ būdą išsaugoti darbalapį kaip teksto failą arba CSV atskirtą failą, pasirinkus „išsaugoti kaip“, kai:
1. Naudojate šabloną ir norite eksportuoti tik duomenis, išskyrus antraštes ir kitus įvairius dalykus
2. Panašiai galbūt norėsite eksportuoti tik dalį duomenų rinkinio
3. Norite išsaugoti failą naudodami pasirinktinį skyriklį, kuris gali būti unikalus jūsų programai.
Jei jums reikia atlikti 1, 2 arba 3, gali padėti tokia funkcija, kaip nurodyta toliau. Jis priima eksportuojamą diapazoną, vietą failui išsaugoti ir ribotuvą, kuriuo norite atskirti duomenis, tada išsaugo duomenis, kaip nurodyta.
Štai kaip skambinti funkcijai ExportRange:
| 1234567891011 | Papildomas skambutisExport ()„ExportRange“ (diapazonas, kur, skirtukas)Skambinti „ExportRange“ (Sheet1.Range („A1: C20“), _„C: mark.txt“, „,“)Pabaiga Sub |
Pirmiausia nurodykite funkcijai diapazoną, kurį norite eksportuoti, tada kur jį eksportuoti, nei delimetrą, kurį norite naudoti. Jums taip pat reikės funkcijos ExportRange, Štai jis:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funkcija ExportRange (WhatRange As Range, _Kur kaip eilutė, skiriantis kaip eilutė) kaip eilutė„Dim HoldRow As Long“ naujos eilutės kintamojo testasHoldRow = WhatRange.RowDim c As Range 'kilpa per diapazono kintamąjįKiekvienam c „WhatRange“Jei HoldRow c.Row Tada“pridėkite linijos pertrauką ir pašalinkite papildomą delimetrąExportRange = kairėn (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c.Tekstas ir skiriamieji ženklaiHoldRow = c. EilėKitasExportRange = ExportRange & c.Text & DelimiterPabaiga JeiKitas c„Apipjaukite papildomą ribotuvąExportRange = kairė (ExportRange, Len (ExportRange) - 1)„Nužudyk failą, jei jis jau yraJei Len (Rež. (Kur))> 0 TadaNužudyk KurPabaiga JeiAtidarykite Kur pridėti, kaip #1 “, parašykite naują failą1 spausdinimas, „ExportRange“Uždaryti #1Pabaigos funkcija |
