pad naar macro in VB script

Status
Niet open voor verdere reacties.
M

maartenprins

Nieuwe gebruiker
Lid geworden
7 aug 2018
Berichten
2
Hallo allemaal,

ik heb een script welke opzich goed functioneert. het opent een excel bestand en voert een script uit:
-------------
Option Explicit

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")
xlApp.visible=true
Set xlBook = xlApp.Workbooks.Open("c:\map\bestand.csv")
xlApp.Run "PERSONAL.XLSB!test2"
xlBook.Save
xlBook.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

------------

Ik wil echter iets doen met de locatie van de macro die ik opgeef bij xlApp.Run
Nu moet ik deze plaatsen in \mijn documenten maar graag zou ik het pad opgeven naar de macro.
weet iemand hoe ik dat voor elkaar krijg? domweg de locatie opgeven heb ik geprobeerd, maar dat lijkt niet te werken:
xlApp.Run "C:\Users\Gebruiker\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB!test2"
 
Waarom verwerk je die VBA routine niet gewoon in je VB Script?

Maar probeer het eens zo:
Code: 
Option Explicit

Dim xlApp, xlBook, mcBook

Set xlApp = CreateObject("Excel.Application")
xlApp.visible=False

Set mcBook = xlApp.Workbooks.Open("C:\Users\Gebruiker\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB")
Set xlBook = xlApp.Workbooks.Open("c:\map\bestand.csv")

xlApp.visible=True
xlApp.Run "PERSONAL.XLSB!test2"

mcBook.Close
xlBook.Save
xlBook.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing
 
Laatst bewerkt:
Dit lijkt me voldoende (en sneller):

Code: 
Sub M_snb()
  with getobject("c:\map\bestand.csv")
    test2
    .close -1
  end with
End Sub
 
Opgelost

bedankt voor jullie antwoord.

Op de server waar het bestand moet worden aangepast staat helemaal geen Excel:eek:
Ik heb dus een ander script gemaakt (bij elkaar gegoogled) wat de aanpassing nu doet.

dat gaat nu goed.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan