excel - 在VBA中，如何从文本中提取数字前的字符串

Question

从 ActiveWorkbook.name ，我想提取数字之前(左侧)的字符串。由于我想在多个工作簿中使用相同的代码，因此文件名将是可变的，但每个文件名的中间都有日期信息(yyyymmdd)。

如果是 excel 文件，我可以使用下面的公式，但我可以在 VBA 中应用相同的方法吗？

=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)

示例:MyExcelWorkbook_Management_20200602_MyName.xlsm

在上述情况下，我想提取“MyExcelWorkbook_Management_”。

Answer 1

您可以做的最基本的事情是通过 Evaluate 在 Excel 中复制对您有用的东西:

Sub Test()
    Dim str As String: str = "MyExcelWorkbook_Management_20200602_MyName.xlsm"
    Debug.Print Evaluate(Replace("=LEFT(""X"",MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(""X"")&1234567890))-1)", "X", str))
End Sub

漂亮的？不是真的，但它完成了工作并得到了它的局限性。