使用 VBA 将双引号括在数组中的每个字符串

Question

我有一个每次长度都不同的数组，当我打印它时，它看起来像下面这样：

PartList = Part1,Part2,Part4

我希望它是

PartList = "Part1","Part2","Part4"

所以我可以在分割它后在我的脚本中进一步使用它。 它应该很简单，但我想知道最简单的方法。我无法手动更改列表，因为它是生成的。 预先感谢您。

Answer 1

假设您的数组实际上是一个字符串，以下代码将分解该字符串并以您想要的格式重建它：

Private Function AddQuotes(ByVal PartList As String) As String
   Dim pl As Variant
   Dim p As Variant
   
   pl = Split(PartList, ",")
   
   For Each p In pl
      AddQuotes = AddQuotes & """" & p & ""","
   Next
   
   AddQuotes = Mid(AddQuotes, 1, Len(AddQuotes) - 1)
End Function