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＆amp; ＆＃34; ＆＃34; ＆安培; ＆＃34; ＆＃34; ＆安培;电波电台

 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

使用＆＃34; Dateiname＆＃34;

下的变量名称保存文件

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的新人，非常需要你的帮助。

无法激活具有变量名

0 个答案: