Laufzeitfehler 5174

.OpenDataSource Name:=ExcelDatenQuelle & "\Daten_Export.xlsx", LinkToSource:=True, Format:=0, SQLStatement:="SELECT * FROM `Daten_Export$`"

Option Explicit
Public ExcelDatenQuelle As String
Sub Datei_speichern()
Dim Zufallszahl As Integer
'Zufallszahl erzeugen zwischen 1000 & 4000
Randomize
Zufallszahl = Int((4000 - 1000 + 1) * Rnd + 0)
Worksheets("Depot").Range("M5") = "C:\" & Zufallszahl                                            'Zufallszahl als Pfad hinterlegen
ExcelDatenQuelle = Worksheets("Depot").Range("M5")
MkDir ExcelDatenQuelle                                                                          'Ordner in Laufwerk "C:\" erstellen aus Zufallszahl
Application.DisplayAlerts = False                                                               'Wenn Datei vorhanden wird sie überschieben und ohne nachgefragt
ActiveWorkbook.Worksheets("Daten_Export").Copy                                                  'Daten aus Tabellenblatt "Depot" Kopieren
ActiveWorkbook.SaveAs FileName:=ExcelDatenQuelle & "\Daten_Export" & " .xlsx ", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Call Word_öffnen
End Sub
Sub Word_öffnen()
Dim Word As Object
Dim WordDatenQuelle As String
Dim WinDoc As Object
WordDatenQuelle = Worksheets("Depot").Range("M6")
Set Word = CreateObject("Word.Application")
Word.Visible = True
With Word
Set WinDoc = Word.Documents.Open(WordDatenQuelle)
With WinDoc
With .MailMerge
.OpenDataSource Name:=ExcelDatenQuelle & "\Daten_Export.xlsx", LinkToSource:=True, Format:=0, SQLStatement:="SELECT * FROM `Daten_Export$`"
End With
End With
End With
Word.Visible = True
Word.Activate
Set Word = Nothing
End Sub