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

• sztanozs veterán

  #1856

  #1855 vilag

  2012-09-17 10:55:16

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #1855 vilag

  #1855 vilag

  Üdv!

  Felmerült még egy probléma.

  Az a baj, hogy nem tudom, hogy a felhasználók közül ki az akinek van personal.xls és esetleg rendelkezik az általunk írt sajatfuggvenyek.xla-val.
  Ebből kifolyólag sajnos nem tudom előre meghatározni, hogy melyik az ominózus munkafüzetszám amihez viszonyítani tudnám, hogy van e még nyitva munkafüzet vagy sem.

  Tudunk esetleg beépíteni valami erre vonatkozó vizsgálatot?
  Esetleg vizsgáljuk meg, hogy megnyitáskor mennyi munkafüzet van nyitva és azt vegyük bázisértéknek?
  Bár lehet, hogy ez sem jó, mert még így sem tudjuk megmondani, hogy az valóban egy látható munkafüzet e vagy az előbb említett kettő valamelyike...

  Próbáljunk meg esetleg ezekre a munkafüzet nevekre keresni és kivonni a számukat a bázisszámból?
  Valami ötlet esetleg?

  Üdv, vilag

  Mármint megnyitva?
  A telepített / elérhető AddInek az Application.AddIns collectionben vannak nyilvántartva. For Each-vel végigmész rajtuk, és megnézed, hogy a tiéd nyitva van-e (property-k, amik kellhetnek: Name, Installed, IsOpen).
  Public Function SajatfuggvenyekBetolve()
  Dim A1 As AddIn
  For Each A1 In Application.AddIns
  If (A1.Name = "sajatfuggvenyek.xla") And A1.IsOpen And A1.Installed Then
  SajatfuggvenyekBetolve = True
  Exit Function
  Next
  SajatfuggvenyekBetolve = False
  End Function

  A megnyitott workbookok pedig az Application.Workbooks collectionben vannak. Megnézni ugyanúgy tudod:
  Public Function PersonalBetolve()
  Dim W1 As Workbook
  For Each W1 In Application.Workbooks
  
  If W1.Name = "personal.xls" Then
  PersonalBetolve = True
  Exit Function
  Next
  PersonalBetolve = False
  End Function

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