Question

我一直在搜索SO帖子和Mr.excel以及谷歌给我的其他链接，但我无法弄清楚这一点。

我正在尝试构建我的Excel文档中存在的string值数组，然后通过它们loop来显示它找到的所有值。

我有以下代码，除了我尝试构建此数组然后在数组中显示项目之外，所有这些代码似乎都有用。有人可以帮助我或者让我朝着正确的方向前进。

Sub openExcel()

Dim xlApp As Object
Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim mynewstring As String
Dim i As Integer
Dim MyArray() As Variant
Dim txt As String





Set xlApp = CreateObject("Excel.Application")

With xlApp
.Visible = False
.EnableEvents = True
End With

strFile = "C:\Users\michaelm\Documents\Clients\emails.xlsx"

i = 0
Set sourceWB = Workbooks.Open(strFile)
Set sourceWH = sourceWB.Worksheets("Sheet1")
sourceWB.Activate
mynewstring = sourceWH.Cells(2, 1).Value
LastRow = sourceWH.range("A1").End(xlDown).Row

MyArray = sourceWH.range("A1:A" & LastRow).Value


 For i = 0 To UBound(MyArray)
    MsgBox (MyArray(i))
  Next i


ActiveWorkbook.Close SaveChanges:=True
xlApp.Quit



MsgBox (mynewstring)


End Sub

我似乎大部分时间都会遇到的错误是"Subscript out of range"

我很失落:)任何帮助都将不胜感激，

谢谢！麦克

苦苦挣扎找出这个VBA阵列

0 个答案: