Új hozzászólás Aktív témák

• #24653 Delila_1 veterán m.zmrzlina #24651

  Új Válasz 2014-12-17 07:38:53 #24653

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz m.zmrzlina #24651 üzenetére

  A munkamappa változó az aktuális könyvtár nevét tartalmazza a lenti első sor után. Megjeleníti a fastruktúrát az aktuális mappából indulva, onnan navigálhatsz máshova.

  Set munkamappa = Application.FileDialog(msoFileDialogFolderPicker)
  With munkamappa
  .AllowMultiSelect = False
  If .Show <> -1 Then Exit Sub
  strMunkamappa = .SelectedItems(1)
  End With

  A következő sorokban a kiválasztott mappa neve az strMunkamappa változóba kerül, erre a mappára váltasz át a mappa kiválasztását követő ChDir strMunkamappa sorral. Innen nyitod meg sorban az xls kiterjesztésű fájlokat.

  Az msoFileDialogFolderPicker, mint a neve is mutatja, egy párbeszéd ablak, ahol kedvedre navigálhatsz.

Új hozzászólás Aktív témák