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.
Sub Test()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim Taal As String
Dim Hoofdpad As String
Dim Zinnetje As String
Taal = UCase(Range("B11"))
If Taal = "" Then
MsgBox "Taal ontbreekt!", vbCritical, "Vul een taal in"
Exit Sub
End If
Hoofdpad = "C:\Users\Jonathan\Documents\test"
Set wrdApp = CreateObject(Class:="Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Filename:=Hoofdpad & Taal & "\intake_" & Taal & ".dotx")
Select Case Taal
Case "NEDERLANDS": Zinnetje = "Dit is gemaakt vanuit Excel en komt in zicht!"
Case "ENGELS": Zinnetje = "This is made from Excel and comes into view!"
Case "FRANS": Zinnetje = "This is made from Excel and comes into view!"
End Select
wrdDoc.Range.InsertAfter Zinnetje
wrdApp.Visible = True
wrdApp.WindowState = 1
wrdApp.Activate
End Sub
Public Sub CreateNewExcel(strFileName As String)
On Error GoTo Err_CreateNewExcel
Dim appExcel As Excel.Application
Dim bksBooks As Excel.Workbooks
Dim wkbBook As Excel.Workbook
Dim wksSheet As Excel.Worksheet
Set appExcel = GetObject(, "Excel.Application")
Set bksBooks = appExcel.Workbooks
Set wkbBook = bksBooks.Add(strFileName)
Set wksSheet = wkbBook.Sheets(1)
wksSheet.Activate
¨...... verdere excel code
Sub Test()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim Taal As String
Dim Hoofdpad As String
Dim Zinnetje As String
Taal = UCase(Range("B11"))
If Taal = "" Then
MsgBox "Taal ontbreekt!", vbCritical, "Vul een taal in"
Exit Sub
End If
Hoofdpad = "C:\Users\Jonathan\Documents\test"
Set wrdApp = CreateObject(Class:="Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Filename:=Hoofdpad & Taal & "\intake_" & Taal & ".dotx")
Select Case Taal
Case "NEDERLANDS": Zinnetje = "Dit is gemaakt vanuit Excel en komt in zicht!"
Case "ENGELS": Zinnetje = "This is made from Excel and comes into view!"
Case "FRANS": Zinnetje = "This is made from Excel and comes into view!"
End Select
wrdDoc.Range.InsertAfter Zinnetje
wrdApp.Visible = True
wrdApp.WindowState = 1
wrdApp.Activate
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.