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:
Ievietojiet komandas pogu savā 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. Šeit mēs izmantojam mainīgo Variant, jo Variant mainīgajam var būt jebkura veida vērtība.
Dim myFile kā virkne, rng kā diapazons, cellValue kā variants, i kā vesels skaitlis, j kā vesels skaitlis
2. Mums ir jānorāda pilns ceļš un faila 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.
Set rng = Atlase
4. Pievienojiet šādu koda rindiņu:
Atveriet myFile izvadam kā #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.
5. Sāciet dubulto cilpu.
Attiecībā uz i = 1 līdz rindai. Rindas
J = 1 līdz rng.Slejas.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.
Ja j = rng.Kolonnas.Skaitīt Tad
Ierakstiet #1, cellValue
Citādi
Ierakstiet #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).
8. Neaizmirstiet aizvērt abas cilpas.
Nākamais j
Tālāk i
9. Aizveriet failu.
Aizvērt #1
10. Atlasiet datus un noklikšķiniet uz komandas pogas lapā.
Rezultāts:
