Hent Text fra Ark til Shape i Publisher

Regnearket skal være åben samtidigt, og makroen har ligeledes behov for at kende navnet på regnearksfilen (Workbook).

Men, det må være noget i denne stil:

Dim MyText as String
MyText = MyExcel.Workbooks("Regnearksfil").Sheets("Ark1").Range("A3").Value

Ønsker du flere celler i samme variabel (MyText) kan du evt. efterfølgende lave:

MyText = MyText & MyExcel.Workbooks("Regnearksfil").Sheets("Ark1").Range("B3").Value

Prøv dig lidt frem :-)

Når du har indsamlet den ønskede tekst fra Excel i din variabel, kan du efterfølgende indsætte den i Publisher, som du normalt ville gøre (jeg kender ikke Publisher VBA, så det antager jeg du selv kan :-)

Oh, et par (VIGTIGE) småting:

1) Du behøver ikke definere en Workbook variabel
2) Husk, at sætte VB Reference i 'Publisher' til 'Microsoft Excel Object Library'
3) HUSK !!! At lukke dit Excel objekt igen efterfølgende, da du ellers åbner flere og flere Excel applikationer, hver gang du kører din makro !!!

Især punkt 3 er MEGET vigtigt !!!

Du starter altså din makro med

On Error Resume Next
Dim MyExcel As New Excel.Application

...og, slutter din makro med:
MyExcel.Quit
Set NyExcel = Nothing

Du sætter VB Reference i 'Publisher' til 'Microsoft Excel Object Library' på følgende måde:

1) I Publisher åbner du Visual Basic Editor
2) Vælg menuen, Tools -> References...
3) Scroll ned til du finder 'Microsoft Excel Object Library'
4) Sæt 'flueben' ud for biblioteket, og luk VB Reference dialogen igen.

That's it :-)

Done #3
Kender du en vba metode til at åbne et projekt og lukke det igen, vil helst kunne køre makroen i Publisher fra excel har jeg engang lavet noget tilsvarende.

"Åbne et project"???
Mener du åbne en Excel regnearksfil?

MyExcel.Workbooks.Open "C:\Regnearksfil.XLSx"

Fedt det var lige det der skulle til !!

Takker

Jan

Velbekomme :-)

Har et lille problem
følgende kode virker men:

Option Explicit

Dim MyExcel As Excel.Application

Sub test()
    On Error Resume Next
    Set MyExcel = New Excel.Application
    MyExcel.Visible = True
    MyExcel.Workbooks.Open ("https://d.docs.live.net/b90ab0a3cc826a69/Spejder%202017/Kalender%20E%202017.xlsm")
   
    MyExcel.Quit
    Set MyExcel = Nothing
End Sub

lukker ikke bagrunds-kørende excel indeholdende ingenting

mon man kan gre andet end lukke den via jobliste?

Jan