无法激活具有variables名称的文件

我有一个项目，我必须尽快完成，但我得到错误，当我尝试激活一个Excel中的文件，其名称的variables。我得到一个运行时错误9所有的时间，即使我尝试几乎所有的解决scheme，人们build议我这就是我发给你的全部链接，它可能是导致这个错误的另一个问题。

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 

用户被要求填写两个input框，用于保存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”下的variablesName保存文件

 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的文件，我想从这个文件复制一个内容，然后激活variables名称文件并将其粘贴到该文件上。 但是我得到一个错误。

 '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 

我想粘贴在我保存在variablesDateiname的文件中的内容，我得到运行时错误9。

 Windows(Dateiname).Activate 

我很抱歉，这可能很容易问，但我是在VBA新和需要这么多你的帮助。