Alla tarkastelemme ohjelmaa Excel VBA että kirjoittaa Excel-alueen CSV (pilkuilla erotettu arvo) -tekstitiedostoon.
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin julistamme muuttujan nimeltä myFile of type String, objektin nimeltä rng of type Range, muuttujan nimeltä cellValue of type Variant, muuttujan nimeltä i of type of Integer, ja muuttujan nimeltä j, jonka tyyppi on Integer. Käytämme tässä Variant -muuttujaa, koska Variant -muuttuja voi sisältää minkä tahansa tyyppisen arvon.
Dim myFile merkkijonona, rng as Range, cellValue as Variant, i As Integer, j As Integer
2. Meidän on määritettävä koko polku ja tiedostonimi.
myFile = Application.DefaultFilePath & "\ sales.csv"
Huomautus: DefaultFilePath -ominaisuus palauttaa tiedoston oletuspolun. Jos haluat muuttaa tiedoston oletussijaintia, valitse Tiedosto -välilehdessä Asetukset, Tallenna.
3. Alustamme alueobjektin rng valitulla alueella.
Aseta rng = Valinta
4. Lisää seuraava koodirivi:
Avaa myFile tulostettavaksi nimellä 1
Huomautus: tämä lauseke sallii tiedoston kirjoittamisen. Voimme viitata tiedostoon #1 koodin loppuosan aikana. Jos tiedosto on jo olemassa, se poistetaan ja uusi samanniminen tiedosto luodaan.
5. Aloita Double Loop.
Sillä i = 1 Rng.Rows.Count
Jos j = 1 Rng.Columns.Count
Huomautus: rng.Rows.Count palauttaa rivien määrän (tässä esimerkissä 17) ja rng.Columns.Count palauttaa sarakkeiden määrän (4 tässä esimerkissä).
6. Excel VBA kirjoittaa solun arvon muuttujaan cellValue.
soluarvo = rng. solut (i, j). arvo
7. Lisää seuraavat koodirivit kirjoittaaksesi cellValue -arvon tekstitiedostoon.
Jos j = rng. Sarakkeet. Laske sitten
Kirjoita numero 1, cellValue
Muu
Kirjoita numero 1, cellValue,
Loppu Jos
Selitys: Jos sitten muu -lausekkeen vuoksi Excel VBA aloittaa uuden rivin (Kirjoita #1, solun arvo) vain, kun j on sarakkeiden lukumäärä (rivin viimeinen arvo). Jos haluat erottaa arvot pilkulla, käytä Write #1, cellValue (pilkulla).
8. Älä unohda sulkea molempia silmukoita.
Seuraava j
Seuraavaksi minä
9. Sulje tiedosto.
Sulje #1
10. Valitse tiedot ja napsauta taulukon komentopainiketta.
Tulos: