VBA 中的字符串连接

发布于 2024-10-08 03:20:53 字数 652 浏览 4 评论 0原文

我有这个函数：

Function GetFullNameCSV() As String
   GetFullNameCSV = Replace(ThisWorkbook.FullName, ".xlsm", ".txt")
End Function

如果代码看起来像这样硬编码：

Filename:= "C:\directory\filename.txt"

我可以用这个替换它并得到相同的结果：

Filename:= GetFullNameCSV()

问题是它出现在这个字符串的情况下：

Connection:= "TEXT;C:\directory\filename.txt"

我需要使用字符串连接，猜测如下：

Connection:= "\"TEXT;+GetFullNameCSV()+\""

我需要使用什么代码？强>谢谢。

原文

I've got this function:

Function GetFullNameCSV() As String
   GetFullNameCSV = Replace(ThisWorkbook.FullName, ".xlsm", ".txt")
End Function

If the code looked like this hard coded:

Filename:= "C:\directory\filename.txt"

I could just replace it with this and get the same result:

Filename:= GetFullNameCSV()

Problem is it appears in the case of this string:

Connection:= "TEXT;C:\directory\filename.txt"

I need to use string concatenation, guessing something like this:

Connection:= "\"TEXT;+GetFullNameCSV()+\""

What the code I need to use? Thanks.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

孤独陪着我 2024-10-15 03:20:53

假设所有部分始终用 ; 分隔，只需将字符串分成几个部分，然后进行更改，然后再次将其连接在一起。

因此，对于您的示例，我认为它会是这样的（请注意，是凭记忆写的，所以可能不完全正确）：

Dim parts() as String
parts = Split(str, ";")

parts(2) = GetFullNameCSV() ' assuming that part 2 is the one you want to replace

str = Join(parts, ";")

Assuming that all the sections are always delimited with a ;, just split the string into it's parts and then do your changes and then join it together again.

So with your sample I think it would be something like (please note, written from memory, so might not be completely correct):

Dim parts() as String
parts = Split(str, ";")

parts(2) = GetFullNameCSV() ' assuming that part 2 is the one you want to replace

str = Join(parts, ";")

回复收藏 0 原文

~没有更多了~