vba - 从变量文件名中减去特定单词

Question

这对你们中的许多人来说可能很容易，但我是 VBA 的新手。我有一个变量名为“Dateiname”的 Excel 文件，我想通过添加变量“hops”来更新这个“Dateiname”。我的问题是 Dateiname 里面已经有“.xlsm”，我希望“.xlsm”扩展名在 Dateiname 之后消失，所以我可以将“hops”变量添加到“Dateiname”并以“.xlsm”扩展名结束。

    Dim hops as String
    Dim Dateiname as String

 Dateiname = Dateiname & hops & ".xlsm"

我怎样才能做到这一点 ？

Answer 1

有几种方法可以做到这一点。最简单的就是使用

Dateiname = Replace(Dateiname , ".xlsm", hops & ".xlsm")

先前解决方案的一个缺点是，如果扩展名不是 .xlsm，则会失败。 .更稳健的方法是

Dim A as variant, i as Long
A = Split(Dateiname,".")
i = UBound(A)-1
A(i) = A(i) & hops
Dateiname = Join(A,".")

最后， File System Object (可以从 VBA 中使用)包含以不同方式拆分和重新组装路径的各种方法。我倾向于使用像上面这样的低技术方法，但出于某些目的，您可能需要更复杂的工具。