Не удается активировать файл с именем переменной

Question

У меня есть проект, который я должен завершить в ближайшее время, но я получаю ошибку, когда пытаюсь активировать файл Excel с переменной внутри его имени. Я получаю ошибку времени выполнения 9 все время, даже если я пробовал почти все решения, которые мне предложили люди Вот почему я посылаю вам всю ссылку, где может быть еще одна проблема, которая вызывает эту ошибку.

Sub M01_Neue_Maßnahme()
 'Variablen definieren
  Dim Ord As String
  Dim mNummer As String
  Dim Jahr As String
  Dim Welle As String
  Dim Name As String
  Dim mNummerGanz As String
  Dim Exportart As Integer
  Dim strOrdner As String
  Dim meldung As String
  Dim AlterLinkKurz As String
  Dim verknuepfungsname_ist As String
  Dim verknuepfungsname_soll As String
  Dim verknuepfungsname_soll_teil As String



 Exportart = Worksheets("Vorgaben").Range("C5").Value
 Ord = Worksheets("Vorgaben").Range("C4").Value

Пользователю было предложено заполнить два поля ввода, которые предназначены для документирования файла Excel при его сохранении.

  mNummer = InputBox("Bitte Maßnahmennummer eingeben")
  Welle = InputBox("Bitte Welle auswählen", , "0" & Worksheets("Vorgaben").Range("B15").Value)

mNummerGanz = mNummer & "" & "" & Welle

 Dim a As String
 Dim b As String


AlterLinkKurz = Worksheets("Eingabefeld").Range("AO47").Value

 aLinks = ActiveWorkbook.LinkSources()
   If Not IsEmpty(aLinks) Then
      For i = 1 To UBound(aLinks)
         verknuepfungsname_ist = Mid(aLinks(i), InStrRev(aLinks(i), "\") + 1, Len(aLinks(i)) - InStrRev(aLinks(i), "\"))

            verknuepfungsname_soll_teil = Mid(AlterLinkKurz, InStrRev(AlterLinkKurz, "\") + 1, Len(AlterLinkKurz) - InStrRev(AlterLinkKurz, "\"))
                If verknuepfungsname_ist = verknuepfungsname_soll_teil Then
                    'Durch kopieren der xlsx modifizierte Links werden zurückgesetzt
                        If aLinks(i) <> AlterLinkKurz Then
                            AlterLinkKurz = aLinks(i)

                        End If


                End If

    Next i
End If
   NeuerLink = Worksheets("Vorgaben").Range("C10").Value



 For Each link In ActiveWorkbook.LinkSources(xlExcelLinks)
If InStr(link, AlterLinkKurz) > 0 Then

Application.DisplayAlerts = False
ActiveWorkbook.ChangeLink link, _
NeuerLink, xlLinkTypeExcelLinks
End If
Next

Сохранение файла с именем переменной под "Dateiname"

If Exportart = 1 Then


  If Dir(Ord, vbDirectory) <> "" Then


  Else
  MsgBox ("Standardpfad nicht vorhanden." & vbCr & "Datei wird im folgenden Verzeichnis abgelegt:" & vbCr & vbCr & Ord)
  MkDir Ord
  End If

Dateiname = Ord & mNummerGanz & "_" & Name & ".xlsm"
ThisWorkbook.SaveAs Filename:=Dateiname

Теперь я открываю файл с именем 1.xlsm, я хочу скопировать содержимое из этого файла, а затем активировать переменную именованный файл и вставить его в этот файл. Но я получаю ошибку.

'Opening 1.xlsm
   ChDir _
          "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi\SummaryPPT"
Workbooks.Open Filename:= _
    "Z:\1000_Entwicklung\05_PROJECT\0558000_CFT\055800L_CFT_Projektleitung\99_Arbeitsordner PL\Tanverdi\SummaryPPT\1.xlsm"

Range("G5:P41").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Я хотел вставить содержимое в файл, который я сохранил под переменной Dateiname, я получаю ошибку времени выполнения 9.

Windows(Dateiname).Activate

Мне жаль, что это может быть легко спросить, но я новичок в VBA и так нуждаюсь в вашей помощи.