Excel openen met filter

Status
Niet open voor verdere reacties.

govi73

Gebruiker
Lid geworden
17 jun 2014
Berichten
125
In Access heb ik een opdrachtknop gemaakt in een formulier.
Hiermee opent Excel.

Opdrachtcode:

Private Sub Knop1095_Click()

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "C:\Users\Govi\Desktop\Map1.xlsx", True, False
Set xlApp = Nothing
End Sub


Graag zou ik nu willen dat de het Excel bestand opent met een filter.
Bijvoorbeeld het veld Agent en dan het nummer van de Agent.

Het lukt me niet, wat moet ik nog toevoegen?
 
Laatst bewerkt:
Na de opdracht xlApp.Workbooks.Open kan je xlApp ook gebruiken om het betreffende filter te zetten met de waarde uit het veld Agent.
 
Laatst bewerkt:
Ik begrijp het nog niet, heb dit toegevoegd:
Set xlApp = "Agentnummer", "231"

Maar werkt niet.
 
Nee, uiteraard werkt dat niet.
xsApp is het Excel object.
Die waarde moet je doorgeven aan het juiste object binnen Excel.

Doe dat in het Excel document eens handmatig waarbij je een macro opneemt.
In die macro kan je dan zien wat er moet gebeuren en in je Access Sub laat je dat dan vooraf gaan door xlApp.
 
Voor de meelezers (niet iedereen zal iets kunnen met jouw oplossing :) ) graag ook de code erbij zetten, want zo heeft de forumlezer natuurlijk niks aan dit draadje. Dat ík de code nou wel heb liggen, wil niet zeggen dat iedereen 'm zelf kan maken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan