Tartomány mentése CSV fájlba
670 -es megoldás arra vonatkozóan, hogyan lehet tartományokat exportálni határolt szövegfájlba.
Ez egy praktikus alternatíva az Excel alapértelmezett módjának használatára a munkalap szöveges fájlként vagy CSV -vel határolt fájlként történő mentéséhez, a „mentés másként” lehetőség kiválasztásával, amikor:
1. Sablont használ, és csak az adatokat kívánja exportálni, kivéve a fejléceket és egyéb egyéb dolgokat
2. Hasonlóképpen, lehet, hogy csak egy adathalmaz egy részét szeretné exportálni
3. Egy egyéni határolóval szeretné menteni a fájlt, amely egyedi lehet az alkalmazásban.
Ha 1,2 vagy 3 feladatot kell végrehajtania, az alábbi funkciók segíthetnek. Elfogad egy exportálandó tartományt, a fájl mentési helyét és az elválasztó határolót, amellyel el szeretné választani az adatait, majd a megadott módon menti az adatokat.
Így hívhatja meg a függvényt ExportRange:
| 1234567891011 | AlhívásExport ()'ExportRange (tartomány, ahol, elválasztó)Hívja az ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")End Sub |
Először mondja meg a függvénynek az exportálni kívánt tartományt, majd azt, hogy hol exportálja, majd a használni kívánt delimétert. Szüksége lesz a funkcióra is ExportRange, itt van:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funkció ExportRange (WhatRange As Range, _Where As String, Delimiter As String) Mint StringDim HoldRow As Long 'teszt az új sorváltozóraHoldRow = WhatRange.RowDim c As Range 'hurok a tartomány változójaMinden c esetén WhatRangeHa HoldRow c.Row then'adjunk hozzá vonalszakadást és távolítsuk el az extra delimétertExportRange = Bal (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c. Szöveg és elválasztóHoldRow = c.RowMásExportRange = ExportRange & c.Text & DelimiterVége HaKövetkező c'Vágja le az extra elválasztótExportRange = Bal (ExportRange, Len (ExportRange) - 1)- Öld meg a fájlt, ha már létezikHa Len (Dir (Hol))> 0 AkkorÖld meg HolVége HaNyissa meg, ahová hozzáfűzni #1 'írja be az új fájlt1. nyomtatás, ExportRangeBezárás #1Vége funkció |
