Goedemiddag!
Ik ben met een xls bestandje bezig en loop tegen wat zaken aan.
In de attach heb ik een voorbeeldje inelkaar geknutseld, om het principe te verduidelijken.
Wat ik wil doen is het volgende:
Het tabblad rapportage is gekoppeld aan het tabblad data_draai.
Data_draai is een draaitabel van de data in tabblad data
Wat ik nu graag wil, is dat het filter in tabblad data_draai aangepast wordt op basis van de kruisjes in tabblad parameters en het tabblad rapportage afgedrukt/geëxporteerd wordt (html) met de naam die in kolom O van tabblad parameters staat. Daarna moet de volgende regel van het tabblad parameters worden gebruikt voor de filterinstellingen etc.
Hier een beginnetje van de code:
Public Sub Publish()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim SH As Worksheet
'refreshen draaitabel
Set SH = WB.Sheets("data_draai")
SH.PivotTables("Draaitabel1").RefreshTable
‘hier moet de code komen die regel voor regel het tabblad parameters afloopt, het draaitabelfilter aanpast en het ‘tabblad rapportage afdrukt
‘het afdrukgedeelte waarbij de naam nu uit kolom O van tabblad parameters moet worden gehaald in plaats van A1 ‘en D1
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Rapportages\" & [A1].Text & ".htm", _
[D1].Text, "", xlHtmlStatic, [A1].Text, "").Publish (True)
End Sub
Graag zou ik wat hulp krijgen
Alvast bedankt!
Ronald
Ik ben met een xls bestandje bezig en loop tegen wat zaken aan.
In de attach heb ik een voorbeeldje inelkaar geknutseld, om het principe te verduidelijken.
Wat ik wil doen is het volgende:
Het tabblad rapportage is gekoppeld aan het tabblad data_draai.
Data_draai is een draaitabel van de data in tabblad data
Wat ik nu graag wil, is dat het filter in tabblad data_draai aangepast wordt op basis van de kruisjes in tabblad parameters en het tabblad rapportage afgedrukt/geëxporteerd wordt (html) met de naam die in kolom O van tabblad parameters staat. Daarna moet de volgende regel van het tabblad parameters worden gebruikt voor de filterinstellingen etc.
Hier een beginnetje van de code:
Public Sub Publish()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim SH As Worksheet
'refreshen draaitabel
Set SH = WB.Sheets("data_draai")
SH.PivotTables("Draaitabel1").RefreshTable
‘hier moet de code komen die regel voor regel het tabblad parameters afloopt, het draaitabelfilter aanpast en het ‘tabblad rapportage afdrukt
‘het afdrukgedeelte waarbij de naam nu uit kolom O van tabblad parameters moet worden gehaald in plaats van A1 ‘en D1
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Rapportages\" & [A1].Text & ".htm", _
[D1].Text, "", xlHtmlStatic, [A1].Text, "").Publish (True)
End Sub
Graag zou ik wat hulp krijgen
Alvast bedankt!
Ronald
