将变量数组转换为字符串 [英] Convert Variable Array to String

问题描述

我正在尝试使用vba将变量数组转换为字符串. 我尝试了2种方法，但是它们都不起作用，它们似乎都在同一点上出现.

I am trying to convert a variable array to a string using vba. I have tried 2 methods but non of them work, they both seem to bloc on at the same point.

    Dim cell As Range
    Dim val As Variant

    For Each cell In Range("packing_list[Code]")
        val = cell.Value
    Next cell

    MsgBox Join(val, "//")

和

    Dim oSh As Worksheet
    Dim CodeRange As Variant

    Set oSh = ActiveSheet
    CodeRange = oSh.Range("packing_list[Code]").Value

    MsgBox Join(CodeRange , "//")

它们都在MsgBox行上出错.我该怎么办?

They both error on the MsgBox line. What do I do wrong ?

谢谢

推荐答案

您要加入的值不是字符串数组.联接应该在数组上使用

The value you are trying to join is not an array of strings. Join is supposed to be used on arrays

以下是指向Microsoft说明的链接: https://msdn.microsoft.com/zh-CN/library/b65z3h4h%28v=vs.90%29.aspx

Here is the link to the Microsoft instructions: https://msdn.microsoft.com/en-us/library/b65z3h4h%28v=vs.90%29.aspx

他们的例子是:

Dim TestItem() As String = {"Pickle", "Pineapple", "Papaya"}
Dim TestShoppingList As String = Join(TestItem, ", ")

您的代码应类似于:

Dim i As Integer
Dim cell As Range
Dim val() As Variant '() indicate it is an array

i = 0
For Each cell In Range("packing_list[Code]")
    ReDim Preserve val(0 to i) As Variant 'must resize array to fit number of items
    val(i) = cell.Value 'i is the position of the item in the array
    i = i + 1 'increment i to move to next position
Next cell

'Now that you have an array of values (i.e. ("String1", "String2", ...) instead of just "String" you can:

MsgBox Join(val, "//")

这篇关于将变量数组转换为字符串的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！