时间戳

首页 > 解决方案 > 如何使用 VISIO 中存在的 VBA 获取 excel 文件的第一列

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

问题描述

我有一个 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

标签： excelvbavisio

解决方案

您不需要使用Worksheets方法来访问工作表吗？您展示的“速记”语法可能在 Excel 内部有效，但在外部无效（不确定）。无论如何，这应该可行，我希望：

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

推荐阅读