Hirdetés

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

  • Mutt

    aktív 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.

    A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

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