300 Primerov

Zapišite podatke v besedilno datoteko

Write Data Text File

Spodaj si bomo ogledali program v Excel VBA to zapiše obseg Excel v besedilno datoteko CSV (vrednost, ločena z vejicami) .



Položaj:

Zapišite podatke v besedilno datoteko v Excelu VBA





kako napisati formulo vlookup

Postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:

1. Najprej razglasimo spremenljivko, imenovano myFile tipa String, predmet, imenovan rng tipa Range, spremenljivko, imenovano cellValue tipa Variant, spremenljivko, imenovano i tipa Integer, in spremenljivko, imenovano j tipa Integer. Tu uporabljamo spremenljivko Variant, ker lahko spremenljivka Variant vsebuje katero koli vrsto vrednosti.



NobenamyFileAs Vrvica, rngAsObseg, celicaVrednostAs Različica, jazAs Celo število, jAs Celo število

2. Določiti moramo celotno pot in ime datoteke.

myFile = Application.DefaultFilePath & ' sales.csv'

Opomba: Lastnost DefaultFilePath vrne privzeto pot do datoteke. Če želite spremeniti privzeto lokacijo datoteke, na zavihku Datoteka kliknite Možnosti, Shrani.

3. Objekt rng inicializiramo z izbranim obsegom.

Nastavljenorng = Izbor

4. Dodajte naslednjo kodno vrstico:

OdprtomyFileZa izhod As#1

Opomba: ta stavek omogoča zapisovanje datoteke. V preostalem delu kode lahko datoteko označimo kot #1. Če datoteka že obstaja, bo izbrisana in ustvarjena bo nova datoteka z istim imenom.

pretvori besedilo v stolpec s številkami

5. Zaženite a Dvojna zanka .

Zai = 1Zarng.Rows.Count
Zaj = 1Zarng. stolpci.štetje

Opomba: rng.Rows.Count vrne število vrstic (17 v tem primeru) in rng.Columns.Count vrne število stolpcev (4 v tem primeru).

6. Excel VBA zapiše vrednost celice v spremenljivko cellValue.

cellValue = rng.Cells (i, j) .Vrednost

7. Dodajte naslednje vrstice kode, če želite v besedilno datoteko zapisati vrednost cellValue.

Čej = rng. Stolpci. ŠtetjePotem
Pišite#1, cellValue
Sicer pa
Pišite#1, cellValue,
Konec Če

Pojasnilo: zaradi stavka If Then Else Excel VBA zažene samo novo vrstico (Write #1, cellValue), ko je j enako številu stolpcev (zadnja vrednost v vrstici). Če želite ločiti vrednosti z vejico, uporabite Write #1, cellValue, (z vejico).

število koledarskih dni med dvema datumoma presega

8. Ne pozabite zapreti obeh zank.

Naslednjij
Naslednjijaz

9. Zaprite datoteko.

Zapri#1

10. Izberite podatke in kliknite ukazni gumb na listu.

Rezultat:

Zapišite podatke v rezultat besedilne datoteke

4/4 Dokončano! Več o objektu aplikacije>
Pojdi na naslednje poglavje: Kontrolniki ActiveX



^