300 Piemēri

Ierakstiet datus teksta failā

Write Data Text File

Zemāk mēs apskatīsim programmu Excel VBA ka raksta Excel diapazonu CSV (ar komatu atdalītas vērtības) teksta failā .



Situācija:

Ierakstiet datus teksta failā programmā Excel VBA





pirms izveidojat pagrieziena tabulu, tas ir svarīgi

Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

1. Pirmkārt, mēs deklarējam mainīgo ar nosaukumu MyFile no String tipa, objektu ar nosaukumu rng tipa Range, mainīgo ar nosaukumu cellValue tipa Variant, mainīgo ar nosaukumu i no Integer un mainīgo ar nosaukumu j, kura tips ir Integer. Šeit mēs izmantojam mainīgo Variant, jo Variant mainīgajam var būt jebkura veida vērtība.



NavmyFile Stīga, rngDiapazons, šūnas vērtība Variants, i Vesels skaitlis, j Vesels skaitlis

2. Mums ir jānorāda pilns ceļš un faila nosaukums.

myFile = Application.DefaultFilePath & ' sales.csv'

Piezīme: rekvizīts DefaultFilePath atgriež noklusējuma faila ceļu. Lai mainītu noklusējuma faila atrašanās vietu, cilnē Fails noklikšķiniet uz Opcijas, Saglabāt.

3. Mēs inicializējam diapazona objektu rng ar izvēlēto diapazonu.

Uzstādītrng = Atlase

4. Pievienojiet šādu koda rindiņu:

AtvērtmyFileIzejai As#1

Piezīme: šis paziņojums ļauj ierakstīt failu. Pārējā koda laikā mēs varam atsaukties uz failu kā Nr. Ja fails jau pastāv, tas tiks dzēsts un tiks izveidots jauns fails ar tādu pašu nosaukumu.

kurš no šiem ļauj atlasīt diagrammas elementu?

5. Sāciet a Dubultā cilpa .

Priekši = 1Uzrng. Rindas. Skaits
Priekšj = 1Uzrng.Kolonnas.Skait

Piezīme: rng.Rows.Count atgriež rindu skaitu (šajā piemērā 17) un rng.Columns.Count atgriež kolonnu skaitu (4 šajā piemērā).

6. Excel VBA ieraksta šūnas vērtību mainīgajā cellValue.

šūnu vērtība = rng. Šūnas (i, j). Vērtība

7. Pievienojiet šādas koda rindiņas, lai teksta failā ierakstītu cellValue vērtību.

Jaj = rng. Kolonnas. SkaitsTad
Rakstīt#1, cellValue
Citādi
Rakstīt#1, cellValue,
Beigas Ja

Paskaidrojums: sakarā ar paziņojumu Ja tad cits, Excel VBA sāk jaunu rindu (rakstīt #1, šūnu vērtība) tikai tad, kad j ir vienāds ar kolonnu skaitu (pēdējā vērtība rindā). Lai atdalītu vērtības ar komatu, izmantojiet Write #1, cellValue (ar komatu).

atsevišķas komatatdalītās vērtības Excel

8. Neaizmirstiet aizvērt abas cilpas.

Nākamaisj
Nākamaisi

9. Aizveriet failu.

Aizvērt#1

10. Atlasiet datus un noklikšķiniet uz komandas pogas lapā.

Rezultāts:

Ierakstiet datus teksta faila rezultātā

4/4 Pabeigts! Uzziniet vairāk par lietojumprogrammas objektu>
Doties uz nākamo nodaļu: ActiveX vadīklas



^