Ik tracht een werkbook te openen vanuit Access maar krijg de volgende foutmelding (nr 1004): "Het bestand 2590056.xlsx kan niet worden geopend omdat de bestandsindeling of de bestandsextensie niet geldig is". Heb dit gecontroleerd en is een excelbestand met de juiste extentie (xlsx). Hierbij de code
Ik wil ook in Access een Excelmacro te laten lopen. Is dat mogelijk? Ik krijg hier een foutmelding op .Range("A2",Selection.End(xlDown)).Select
Code:
Dim XL As Object
Dim OpenWerkboek As Object
Set XL = CreateObject("Excel.Application")
txtOpenWerkboekPad = "C:\IGEANToets_FE\TeVersturenExcels\" & txtStamboeknummerVersturen & ".xlsx"
With XL
.Visible = False
.DisplayAlerts = False
.Workbooks.Open (txtOpenWerkboekPad)
With .OpenWerkboek
.Range("A2").Select
' .Range("A2", Selection.End(xlDown)).Select
End With
OpenWerkboek.SaveAs "C:\IGEANToets_FE\TeVersturenExcels\" & txtStamboeknummerVersturen & ".xlsx"
End With
OpenWerkboek.Close
XL.Close
Set OpenWerkboek = Nothing
Set XL = Nothing