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

• #17795 Mutt senior tag Kobe #17792

  Új Válasz 2013-04-16 21:13:11 #17795

  Ú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

  

  Mutt

  senior tag

  válasz Kobe #17792 üzenetére

  Hello,

  A létező xls-ben van-e már workbook open event?

  Ha tőled függetlenül már van, akkor meg van az indok hogy miért hasal el.
  Ha azt nem tudod/mered változtatni, akkor Auto_Open névvel kell egy module-ba a kódódat beszúrni.

  'új module beszúrása
  Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
  VBComp.Name = "NewModule"
  
  Set CodeMod = VBComp.CodeModule
  
  'Auto_Open sub létrehozása
  With CodeMod
  LineNum = .CountOfLines + 1
  .InsertLines LineNum, "Sub Auto_Open()"
  LineNum = LineNum + 1
  .InsertLines LineNum, Code3
  LineNum = LineNum + 1
  .InsertLines LineNum, "End Sub"
  End With

  Esetleg az Auto_Close sub-ba pedig tehetsz egy olyat, hogy az Auto_Open-t törölje ha az már lefutott.

  üdv.

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