Avatar billede tdh1309 Juniormester
14. december 2011 - 10:51 Der er 3 kommentarer og
1 løsning

Eksekvering af macro ved åbning af workbook

Via WorkBookMain åbner jeg en anden workbook (SecWB1).
Når SecWB1 åbner, skal den automatisk eksekvere en macro.
Nedenfor er hvad jeg har forsøgt. SecWB1 åbnes, men ingen macro aktiveres!

WorkBookMain
Sub OpenWB()
  Dim tmpWB As Workbook
  MsgBox ("OpenWB")
  Application.EnableEvents = True
  Workbooks.Open ("C:\Users\us5s\Desktop\TestAfOpenWB\SecWB1")
  Workbooks("SecWB1").RunAutoMacros xlAutoOpen
End Sub

Workbook: SecWB1
Sub Main()
  MsgBox (ThisWorkbook.Name)
 
End Sub

Sub xlAuto_open()
  MsgBox ("auto OK")

End Sub

Sub xlAutoOpen()
  MsgBox ("xlAutoOpen")
End Sub
Avatar billede igoogle Forsker
14. december 2011 - 10:57 #1
ligger macroen i thisworkbook


Private Sub Workbook_Open()
MsgBox ("xlAutoOpen")
End Sub

og så slet Workbooks("SecWB1").RunAutoMacros xlAutoOpen
Avatar billede igoogle Forsker
14. december 2011 - 10:58 #2
macroen skal ligge i thisworkbook for secWB1
Avatar billede tdh1309 Juniormester
14. december 2011 - 11:02 #3
Det virker!
Mange tak for det hurtige svar, nogle gange er løsningen tættere på end man tror!

Kom med et svar!
Avatar billede igoogle Forsker
14. december 2011 - 11:12 #4
godt.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester