使用包含多個下劃線的變量名稱調用子設備

Question

目前我正在研究一個子設備，如果一個單元格的值匹配工作表名稱和子名稱，它將激活已寫入的子設備之一。

因此，如果我選擇了具有數據驗證的單元格中的「索引」，子將激活子名稱「索引」，該名稱將創建工作表「索引」的pdf文件。創建PDF文件的子「索引」起作用。如果在子名稱中沒有下劃線，那麼激活子「索引」的子程序也起作用。但是我確實希望它可以與下劃線一起工作，因爲有些表的名字中有空格。例如;表「材料檢驗」與「材料檢驗」子表或「材料檢驗報告」表與「材料檢驗報告」結合。

該代碼僅在重置子名稱後有效。

代碼：

Sub CreateSomePDF() 

    Dim iMyValue As String 
    iMyValue = Worksheets("Invulformulier").Range("A96").Value 
    Application.Run iMyValue 

End Sub 

是否有可能使它工作嗎？我幾乎可以肯定，由於單名的工作，下劃線是問題。

Answer 1

如果您的問題是表中的名稱中有空格，並且subs具有下劃線，爲什麼不在調用宏時將它們替換爲字符串？

Sub CreateSomePDF() 

    Dim iMyValue As String 
    iMyValue = Replace(Worksheets("Invulformulier").Range("A96").Value, " ","_") 
    Application.Run iMyValue 

End Sub