试图将一个名为范围的字符串（带空格的文本）的 excel 命名为字符串数组

Posted 2023-02-16

【中文标题】试图将一个名为范围的字符串（带空格的文本）的 excel 命名为字符串数组

【英文标题】：Trying to convert an excel named range of strings (text with spaces) into a string array

【发布时间】：2015-04-06 19:45:01

【问题描述】：

试图将一个 Excel 命名的字符串范围（带空格的文本）转换为一个字符串数组，以在 Access 数据库查询中使用。基本上，从 excel 中提取名称列表，使用这些名称查询数据库，然后将与这些名称相关的数据返回到 excel。我在这里找到了一些相关的答案：

Excel VBA: Range to String Array in 1 step

但是当我运行循环从变量数组转换为字符串数组时，“sArray”（字符串数组）没有填充。这是我的代码：

Dim theRange As Variant
Dim sArray() As String
Dim i As Long

Application.ScreenUpdating = False
Application.Calculation = -xlCalculationManual
Application.DisplayAlerts = False

activeworksheet = ("Sheet2")

theRange = range("SecurityID").Value
size = UBound(theRange)

For i = 1 To 5
    ReDim sArray(1 To 5)
    sArray(i) = CStr(theRange(i, 1))
Next i

【参考方案1】：

你很亲密。简单的几件事：

Sub test()
    Dim theRange As Variant
    Dim sArray() As String
    Dim i As Long

    Application.ScreenUpdating = False
    Application.Calculation = -xlCalculationManual
    Application.DisplayAlerts = False

    theRange = Sheets("Sheet2").Range("SecurityID").Value

    ReDim sArray(1 To 5)
    For i = 1 To 5
        sArray(i) = CStr(theRange(1, i))
    Next i

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True
End Sub

用 Range 指定工作表名称（ActiveWorksheet 是保留术语） 您只需在循环之前重新调整目标数组一次 不需要设置size = UBound(theRange) 不要忘记在最后重新启用屏幕更新、计算和警报

【讨论】：

非常感谢。太棒了。我猜主要问题是“Activeworksheet”任务。

【参考方案2】：

有一些小错误。这将适用于 ActiveSheet：

Sub marine()
    Dim theRange As Variant
    Dim sArray() As String
    Dim i As Long
    Range("A1:A5").Name = "SecurityID"
    Application.ScreenUpdating = False
    Application.Calculation = -xlCalculationManual

    'Application.DisplayAlerts = False
    'activeworksheet = ("Sheet2")

    theRange = Range("SecurityID").Value
    Size = UBound(theRange, 1)
    ReDim sArray(1 To Size)
    For i = 1 To Size
        sArray(i) = CStr(theRange(i, 1))
        MsgBox sArray(i)
    Next i
End Sub

【参考方案3】：

Dim vSecurityID As Variant
Dim lngCounter As Long

vSecurityID = Range("SecurityID").Value

For lngCounter = LBound(vSecurityID) To UBound(vSecurityID)
    Debug.Print vSecurityID(lngCounter, 1)
Next lngCounter

【讨论】：

欢迎来到 Stack Overflow。请添加一些解释为什么此代码有助于 OP。这将有助于为未来的观众提供一个可以学习的答案。请参阅How to Answer 了解更多信息。

感谢斯维特的回复。这能解决我的问题吗？看起来它正在调试将字符串范围打印到即时窗口，但没有将它们组合成单个合并的字符串数组。我错过了什么吗？