如何使用VISIO中的VBA获取excel文件的第一列

Question

我有一个Visio文件，其中编写了VBA代码。之前我是手动输入的。现在，我想使用Excel文件进​​行输入。输入出现在excel文件的第一列中。以下代码未提供期望的结果。

Sub OpenSaveExcel()

    Dim objXLApp As Object
    Dim objXLBook As Object
    Dim strArray As Variant
    Dim TotalRows As Long

    Set objXLApp = CreateObject("Excel.Application")
    Set objXLBook = objXLApp.Workbooks.Open("File location")
    Dim x As Variant

    x = objXLBook.Sheet1.Range("A1:A10")
    Debug.Print x(1, 1)
End Sub

Answer 1

x = objXLBook.Worksheets("Sheet1").Range("A1:A10")