相关疑难解决方法(0)

我想检查空数组.Google给了我各种解决方案,但没有任何效果 也许我没有正确应用它们.

Function GetBoiler(ByVal sFile As String) As String
'Email Signature
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.ReadAll
    ts.Close
End Function

Dim FileNamesList As Variant, i As Integer
' activate the desired startfolder for the filesearch
FileNamesList = CreateFileList("*.*", False) ' Returns File names
' performs the filesearch, includes any subfolders
' present the result
' If there are Signatures then populate SigString
Range("A:A").ClearContents
For i = …

有谁知道如何返回在VBA中传递给它的(Variant)变量的维数？

最终编辑:它确实似乎是一个编译器错误 - 请参阅接受的答案.

在Excel 2007中使用VBA,我在'Class1'中有以下代码:

Option Explicit

Public Function strange(dummy As String, ParamArray pa())
    Debug.Print pa(LBound(pa))
End Function

Public Sub not_strange(dummy As String, ParamArray pa())
    Debug.Print pa(LBound(pa))
End Sub

Public Function also_not_strange(ParamArray pa())
    Debug.Print pa(LBound(pa))
End Function

以及模块中的一些模式代码:

Option Explicit

Public Function not_strange_either(dummy As String, ParamArray pa())
    Debug.Print pa(LBound(pa))
End Function

Public Sub outer(v)
    Dim c As Class1
    Set c = New Class1

    Call c.strange("", v(LBound(v)))
    Call c.not_strange("", v(LBound(v)))
    Call c.also_not_strange(v(LBound(v)))

    Call not_strange_either("", v(LBound(v)))
End Sub

如果从立即窗口调用'outer',如下所示:

call outer(array("a"))

我得到了看起来很奇怪的输出: …

我该如何实现这个功能？

Public Function ArraySlice(arr As Variant, dimension as Long, index as Long) As Variant

    'Implementation here

End Function

假设我想要一个数组切片.我在该维度上指定了一个数组,一个维度和一个索引,我想要切片.

举一个具体的例子,假设我有以下5x4 2D数组

   0  1  2  3  4
  ______________
0| 1  1  2  3  1
1| 3  4  2  1  5
2| 4  5  3  2  6
3| 3  5  2  1  3

如果水平尺寸为1且垂直尺寸为2,则返回值ArraySlice(array, 1, 3)将为1x4 2D阵列.选定的维度2被展平,唯一剩下的值是最初在维度2的索引3处的值:

   0
  ____
0| 3
1| 1
2| 2
3| 1

你会如何在VBA中实现这一点？我能想到的唯一实现将涉及CopyMemory,除非我限制了允许的维度数量并对每种情况进行硬编码.

注意:这是我如何获得数组的尺寸

UPDATE

以下是一些操作示例

对于2D阵列

   0  1  2  3  4
  ______________
0| …

我正在编写一个脚本,它将循环遍历我的电子表格,并查找是否有任何重复的所选单元格.如果有重复,那么该函数将返回一个行是重复的数组,并创建一个注释告诉我哪些行是重复的.我已经能够处理错误0但是现在当我使用UBound函数检查数组中是否存在元素时,我得到错误9.有没有人知道如何验证整数数组,如果它是空的或不是因为我的代码似乎没有完成这项工作.以下是我的代码

Function IsArrayEmpty(anArray As Variant) As Boolean
    Dim i As Integer

    On Error Resume Next
        i = UBound(anArray, 1)
    Select Case (Err.Number)
        Case 0
            IsArrayEmpty = True
        Case 9
            IsArrayEmpty = True
        Case Else
            IsArrayEmpty = False
    End Select
End Function

我不喜欢未初始化的 VBA 数组，因为每次使用之前都需要检查数组是否已初始化UBound()或For Each避免异常，并且没有本机 VBA 函数来检查它。这就是为什么我初始化数组，至少用a = Array(). 这在大多数情况下消除了额外检查的需要，因此一维数组没有问题。

出于同样的原因，我尝试创建一个空的二维数组。不可能简单地做ReDim a(0 To -1, 0 To 0)，转置一维空数组或类似的东西。我偶然遇到的唯一方法是使用MSForms.ComboBox，将空数组分配给.List属性并将其读回。这是在 Excel 和 Word 中工作的示例，您需要插入UserForm到 VBA 项目中，放置ComboBox在其上，并添加以下代码：

Private Sub ComboBox1_Change()

    Dim a()
    ComboBox1.List = Array()
    a = ComboBox1.List
    Debug.Print "1st dimension upper bound = " & UBound(a, 1)
    Debug.Print "2nd dimension upper bound = " & UBound(a, 2)

End Sub

组合更改后的输出为：

1st dimension upper bound = -1
2nd …

我有一个函数，它接受一个字符串数组并将每个字符串映射到一个Date实例。该函数归结为以下代码。

Private Function ParseDates(dates() As String) As Date()
  Dim res() As Date
  Dim i As Integer

  If UBound(dates) >= 0 Then
    ReDim res(UBound(dates)) As Date
  End If


  For i = LBound(dates) To UBound(dates)
    res(i) = #01/01/2000#
  Next i
  ParseDates = res
End Function

只要参数dates为nonempty ，该函数就可以正常工作。当dates为空时res不给定维度。因此，如果在循环中枚举结果，则返回值不可枚举，导致此函数的用户崩溃。

parsedDates = ParseDates(input) 
For i = 1 To UBound(parsedDates) ' Suscription out of range
  ...

当日期为空时，如何实例化并返回一个空数组？

如果你打电话，Split("",".")你会收到一个类型为 的对象String(0 to -1)。我需要我的函数返回一个类型的对象，Date(0 …

摘要

在为某个对象类型声明了一个数组（其中该类型不使用从COM的接口派生的接口（＆因此未正确设置以启用[OLE] Automation的后期绑定技术））后，尝试根据我的期望将数组分配给变量不起作用。IDispatchVariant

具体而言，似乎发生的情况是将指向数组的积分指针分配给了Variant变量，而不是数组的副本。

谁能解释这种行为？这是VBA 7.1语言的标准行为吗？^[EDIT-A1]是VBA的Variant类型不能处理此类数组吗？^[EDIT-A2]

^{[EDIT-A1]- 当前（19年4月6日），看起来像是个错误。
[EDIT-A2]- 否，因为ByRef Variant如果将这样的数组作为此类参数的值传递，则参数的内部过程参数可以正确指向此类数组。}

背景

有关正在发生的事情的更多详细信息

在检查了各种内存地址和指针之后，似乎正在发生的事情是，在将此类数组分配给Variant变量时，实际上是分配了指向数组“ VB安全数组指针”的Long（或LongPtr）指针。这与VBA语言规范中此处记录的预期的行为相反。在查看有关VB数组及其内存布局的VB6文档（存储在此处）之后，我推断出发生了这种指针分配。