Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub CommandButton1_Click()
Dim aXl As Excel.Application
Dim oWB As Workbook
Dim pad As String
Set aXl = New Excel.Application
On Error GoTo Hell
pad = ActivePresentation.Path
aXl.Visible = False
Set oWB = aXl.Workbooks.Open(pad & "\Test.xlsx")
Me.Label1.Caption = oWB.Sheets("data").Range("a1").Value
Hell:
aXl.Quit
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.