如何使用 VISIO 中存在的 VBA 获取 excel 文件的第一列
How to get the first column of an excel file using VBA present in VISIO
我有一个 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
您不需要使用Worksheets方法来访问工作表吗？您显示的 "shorthand" 语法可能在 Excel 内部有效，但在外部无效（不确定）。无论如何，我希望这应该有效：
x = objXLBook.Worksheets("Sheet1").Range("A1:A10")
我有一个 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
您不需要使用Worksheets方法来访问工作表吗？您显示的 "shorthand" 语法可能在 Excel 内部有效，但在外部无效（不确定）。无论如何，我希望这应该有效：
x = objXLBook.Worksheets("Sheet1").Range("A1:A10")