Excel VBA FileDialog

Työskennellessä saattaa olla joitain tilanteita, joissa joudumme avaamaan joitain muita työkirjoja tai muita tiedostoja joko tuomaan tietoja tai ottamaan viite. On yksi tapa antaa tiedostolle polku VBA-koodissamme, joka avaa tiedoston tai kansion meille. Entä jos emme muista polkua, kuinka voimme avata tiedoston. Saatamme joutua etsimään polkua ensin ja sitten tarjoamaan polun uudelleen. VBA: n mukana tulee ratkaisu, joka tunnetaan nimellä FileDialog.

FileDialog on VBA: n ominaisuus, jonka avulla voimme avata tiedoston tai kansion polulta. Tätä ominaisuutta käyttämällä käyttäjän ei tarvitse määrittää kansion polkua, vaan käyttäjä voi valita polun. Tämän lisäksi FileDialogilla on yhteensä neljä ominaisuutta. Ne tunnetaan myös tämän ominaisuuden vakioina. Ne ovat seuraavat:

  1. msoFileDialogFilePicker : Tämän avulla käyttäjä voi valita tiedoston.
  2. msoFileDialogFolderPicker : Tämän avulla käyttäjä voi valita kansion.
  3. msoFileDialogOpen : Tämän avulla käyttäjä voi avata tiedoston.
  4. msoFileDialogSaveAs: Tämän avulla käyttäjä voi tallentaa tiedoston.

Menetelmä tämän objektin käyttämiseksi VBA: ssa on seuraava.

Application.FIledialog (Filedialog-tyyppi)

FileDialog-tyyppi voi olla mikä tahansa edellä mainituista neljästä tyypistä. Käytämme nyt tätä objektia esimerkeissä oppiaksesi tätä esineominaisuutta selkeämmin.

Kuinka käyttää Excel VBA FileDialogia?

Alla on erilaisia ​​esimerkkejä FileDialogin käyttämisestä Excelissä VBA-koodilla.

Voit ladata tämän VBA FileDialog Excel -mallin täältä - VBA FileDialog Excel Template

Excel VBA FileDialog - esimerkki # 1

Ensinnäkin autamme käyttäjää valitsemaan tiedosto määränpäästä. Tässä esimerkissä käyttäjä valitsee tiedoston kansiosta ja näytämme valitun tiedoston polun.

Noudata alla olevia vaiheita käyttääksesi Excel VBA FileDialog -sovellusta:

Vaihe 1: Siirry Kehittäjät- välilehteen ja napsauta Visual Basic -painiketta .

Vaihe 2: Avaa moduuli Lisää-valikon vaihtoehdosta alla olevan kuvan mukaisesti.

Vaihe 3: Käynnistä osaprosessori aloittaaksesi esimerkin työskentelyn.

Koodi:

 Sub SelectFile () Lopeta Sub

Vaihe 4: Ilmoita muuttuja nimellä Filedialog alla olevan kuvan mukaisesti.

Koodi:

 Sub SelectFile () himmentää tiedostoa FileDialog-muodossa

Vaihe 5: Käytämme nyt tätä objektia Application.Filedialog-menetelmästä seuraavasti.

Vaihe 6: Kun avaamme sulujen, näemme vaihtoehdon neljälle FileDialog-tyypille alla olevan kuvan osoittamalla tavalla.

Vaihe 7: Valitse Filedialog-tyypin vaihtoehdoksi msoFileDialogFilePicker

Koodi:

 Sub SelectFile () himmentää tiedostoa FileDialog Aseta tiedosto = Application.FileDialog (msoFileDialogFilePicker) End Sub

Vaihe 8: Nyt meidän on tehtävä tämän esimerkin valintaikkuna, käytämme seuraavia lausekkeen kanssa.

Koodi:

 Sub SelectFile () himmentää tiedostoa FileDialog-tiedostona Aseta tiedosto = Application.FileDialog (msoFileDialogFilePicker), jonka tiedosto päättyy loppuun Sub

Vaihe 9: Jos suodattimia on, suodattimet on tyhjennettävä, asetettava pistelause ja kirjoitettava lause alla esitetyllä tavalla.

Koodi:

 Sub SelectFile () himmentävä tiedosto tiedostona Dialog Aseta tiedosto = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear End with End Sub

Vaihe 10: Nyt haluamme käyttäjän valita useita tiedostoja kerralla tai yhden tiedoston? Olkaamme tässä esimerkissä kiinni yhdessä tiedostossa kerrallaan, joten käytä .valonvalinta vääränä.

Koodi:

 Sub SelectFile () himmentää tiedostoa FileDialog-tiedostona Aseta tiedosto = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear .AllowMultiSelect = Väärä loppu loppuun alaosaan

Vaihe 11: Nyt voidaksemme näyttää valintaikkunan, voimme kirjoittaa .show näyttääksesi valintaikkunan seuraavasti.

Koodi:

 Sub SelectFile () himmentävä tiedosto tiedostona Dialog Aseta tiedosto = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear .AllowMultiSelect = False .Show End With End Sub

Vaihe 12: Kun olemme suorittaneet yllä olevan koodin, näemme valintaikkunan seuraavasti.

Vaihe 13: Koska meidän on näytettävä valittu käyttäjäpolku, ilmoita toinen muuttuja merkkijonona koodissa.

Koodi:

 Sub SelectFile () himmentää tiedostoa FileDialog himmentää polkua merkkijonona. Tiedosto = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear .AllowMultiSelect = False .Show End With End Sub

Vaihe 14: Käytämme valittuja kohteita -käskyä löytääksesi valitun tiedoston käyttäjän polku ja tallentaa se muuttuimeemme seuraavasti.

Koodi:

 Sub SelectFile () himmentävä tiedosto tiedostona Dialog himmentä polku merkkijonona asettaa tiedosto = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear .AllowMultiSelect = vääriä .Näytä polku = .Valitut kohteet (1) päättyy loppuun alaosaan

Vaihe 15: Käytä lausunnon jälkeen msgbox-toimintoa näyttääksesi valitun tiedoston osoitteen.

Koodi:

 Sub SelectFile () himmentävä tiedosto tiedostona Dialog himmentä polku merkkijonona asettaa tiedoston = Application.FileDialog (msoFileDialogFilePicker) tiedostolla .Filters.Clear .AllowMultiSelect = vääriä .Näytä polku = .SelectedItems (1) päättyy MsgBox-polun loppuun alaotsikko

Vaihe 16: Suoritetaan yllä oleva koodi ja valitse tiedosto ja paina ok nähdäksesi polun seuraavasti.

Excel VBA FileDialog - esimerkki 2

Nyt nähdään toinen vaihtoehto VBA FileDialog -objektista, joka on msoFileDialogSaveAs. Tätä ominaisuutta käytetään tiedoston tallentamiseen mille tahansa polulle. Noudata alla olevia vaiheita käyttääksesi Excel VBA FileDialog -sovellusta.

Vaihe 1: Kirjoita meille samassa moduulissa toinen alatoimenpide tiedoston tallentamiseksi seuraavasti.

Koodi:

 Sub SaveFile () Lopeta Sub

Vaihe 2: Ilmoita nyt kaksi muuttujaa yksi merkkijonona ja toinen kokonaislukuna.

Koodi:

 Sub SaveFile () himmentää valintaa kokonaislukuna, polku merkkijonona lopussa alaosa

Vaihe 3: Tehdään nyt valintaikkuna näkyväksi käyttäjälle show-ominaisuutta käyttämällä seuraavasti.

Koodi:

 Sub SaveFile () himmentää valintaa kokonaislukuna, polku merkkijonona = sovellus.FileDialog (msoFileDialogSaveAs) .Show End Sub

Vaihe 4: Käytä nyt IF-käskyä käyttäjän valinnan määrittämiseen seuraavasti.

Koodi:

 Sub SaveFile () himmentää valintaa kokonaislukuna, polku merkkijonona = sovellus.FileDialog (msoFileDialogSaveAs) .Näytä valinta jos 0 sitten lopeta alaosa

Vaihe 5: Nyt saadaan käyttäjän valitsemasi polku polkumuuttujaan seuraavasti:

Koodi:

 Sub SaveFile () himmentää valintaa kokonaislukuna, polku merkkijonon valintana = Application.FileDialog (msoFileDialogSaveAs) .Näytä valinta Choice 0 Sitten polku = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) End Sub

Vaihe 6: Näytämme nyt tulos käyttämällä msgbox-toimintoa ja lopeta IF-silmukka.

Koodi:

 Sub SaveFile () himmentää valintaa kokonaislukuna, polku merkkijonon valintana = Application.FileDialog (msoFileDialogSaveAs) .Näytä valinta Choice 0 Sitten polku = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) MsgBox Path End End End Sub

Vaihe 7: Suorita nyt yllä oleva koodi ja näytä tulos. Se avaa valintaikkunan tiedoston tallentamiseksi.

Vaihe 8: Anna tiedostonimi ja paina Tallenna-painiketta, niin meille annetaan tiedoston polku seuraavasti.

Muistettavat asiat

  • FileDialog on VBA: n esineominaisuus.
  • Meidän ei tarvitse määrittää koodin polkua tämän objektin avulla.
  • Pisteoperaattorin avulla voimme nähdä ja käyttää objektin IntelliSense-ominaisuuksia.

Suositellut artikkelit

Tämä on opas VBA FileDialog -sovellukseen. Tässä keskustellaan siitä, kuinka FileDialog-objektia voidaan käyttää Excelissä VBA-koodilla, sekä joitain käytännöllisiä esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA-tarkistustiedosto on olemassa
  2. Ratkaise yhtälö Excelissä
  3. VBA Poista tiedosto
  4. Kuinka tulostaa tarroja Excelistä?
  5. Esimerkkejä VBA-koodin kirjoittamiseen

Luokka:

VBA