Как получить первый столбец файла Excel, используя VBA, присутствующий в VISIO - PullRequest
Новая
       36

Как получить первый столбец файла Excel, используя VBA, присутствующий в VISIO

0 голосов
/ 26 марта 2020

У меня есть файл 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

1 Ответ

0 голосов
/ 26 марта 2020

Вам не нужно использовать Worksheets метод для доступа к рабочему листу? Синтаксис «стенографии», который вы показали, может работать внутри Excel, но не снаружи (не уверен). В любом случае, это должно работать, я надеюсь: 

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