Question

我有一个变量，它在我的第一个模块中，我想在我的第二个模块中使用这个变量。第一个代码是我的变量。

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

我想在同一个Project中的不同模块中使用这个变量。

   Windows(Dateiname).Activate

有没有人有建议？

Answer 1

Sub newmodule1()
Dim Dateiname As String

Dateiname = Ord & mNummerGanz & "_" & Name & ".xlsm"
ThisWorkbook.SaveAs Filename:=Dateiname, fileformat:=52 
'This is just here to test the variable is stored correctly. msgbox can be removed.
MsgBox (Dateiname)

Module2.newmodule2 (Dateiname)

End Sub



Sub newmodule2(Dateiname)

'Again, this is just here to test the variable is stored correctly. msgbox can be removed.
MsgBox (Dateiname)

Windows(Dateiname).Activate

End Sub

Answer 2

在第一个模块的顶部将其定义为Public。

下面是一个简单的示例...... Module和Sub名称仅用于示例。

在 Module1 ：

中

Public Dateiname As String

Private Sub SaveMyFile()
  Dateiname = Ord & mNummerGanz & "_" & Name & ".xlsm"
  ThisWorkbook.SaveAs Filename:=Dateiname
End Sub

在 Module2 ：

中

Private Sub MyOtherSub()
  Windows(Dateiname).Activate
End Sub

从2个模块中提取变量

2 个答案: