Žemiau apžvelgsime programą Excel VBA kad rašo „Excel“ diapazoną į CSV (kableliais atskirtos vertės) teksto failą.
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirma, mes deklaruojame kintamąjį, vadinamą myFile tipo String, objektą, vadinamą rng tipo Range, kintamąjį, pavadintą cellValue tipo Variant, kintamąjį, vadinamą i tipo Integer, ir kintamąjį, vadinamą j, kurio tipas yra Integer. Čia naudojame kintamąjį Variantą, nes kintamasis Variantas gali turėti bet kokio tipo vertę.
Dim myFile kaip String, rng As Range, cellValue As Variant, i As Integer, j As Integer
2. Turime nurodyti visą failo kelią ir failo pavadinimą.
myFile = Application.DefaultFilePath & "\ sales.csv"
Pastaba: ypatybė DefaultFilePath grąžina numatytąjį failo kelią. Norėdami pakeisti numatytąją failo vietą, skirtuke Failas spustelėkite Parinktys, Išsaugoti.
3. Mes inicijuojame diapazono objektą rng pasirinktu diapazonu.
Nustatyti rng = Pasirinkimas
4. Pridėkite šią kodo eilutę:
Atidarykite „myFile“ išvestį kaip #1
Pastaba: šis teiginys leidžia įrašyti failą. Likusią kodo dalį galime nurodyti failą kaip #1. Jei failas jau yra, jis bus ištrintas ir sukurtas naujas failas tuo pačiu pavadinimu.
5. Pradėkite dvigubą kilpą.
Jei i = 1 iki rng. Eilutės. Skaičius
Jei j = 1 iki rng. Stulpeliai. Skaičius
Pastaba: „rng.Rows.Count“ grąžina eilučių skaičių (šiame pavyzdyje - 17) ir „rng.Columns.Count“ grąžina stulpelių skaičių (šiame pavyzdyje - 4).
6. „Excel VBA“ įrašo langelio vertę į kintamąjį cellValue.
cellValue = rng. Ląstelės (i, j). Vertė
7. Pridėkite šias kodo eilutes, kad į tekstinį failą įrašytumėte „cellValue“ reikšmę.
Jei j = rng. Stulpeliai. Skaičiuokite Tada
Parašykite #1, cellValue
Kitas
Rašykite #1, cellValue,
Pabaiga Jei
Paaiškinimas: dėl „If Then Else“ sakinio „Excel VBA“ pradeda naują eilutę („Write #1“, „cellValue“) tik tada, kai j lygus stulpelių skaičiui (paskutinė eilutės reikšmė). Jei norite atskirti reikšmes kableliu, naudokite Write #1, cellValue, (su kableliu).
8. Nepamirškite uždaryti abiejų kilpų.
Kitas j
Kitas I.
9. Uždarykite failą.
Uždaryti #1
10. Pasirinkite duomenis ir lape spustelėkite komandų mygtuką.
Rezultatas:
