Ожидаемая функция или переменная VBA - PullRequest
0 голосов
/ 12 марта 2020

Я унаследовал код для платформы, которой никогда не пользовался до сегодняшнего дня.

У нас есть текстовый документ с информацией, и нам нужна эта информация для go в наших таблицах Excel. Одна из вещей, которые мы просим, ​​- это регистрационный номер LI. Регистрационный номер LI - цифра c.

Sub workDocument(objDoc As Document, labDatabase As Excel.Workbook, wrongPatient As Boolean, providerName As String)

    Dim ExcelApp As New Excel.Application
    Dim PatientName As String
    Dim registryNum As Integer
    Dim registryNumString As String
    Dim nameCC As ContentControls
    Dim regCC As ContentControls
    Dim embedTable As InlineShape
    Dim oWb As Excel.Workbook
    Dim sheet1 As Worksheet
    Dim entry1 As Excel.Range
    Dim usedRows As Integer
    Dim usedColumns As Integer


    Set ExcelApp = CreateObject("Excel.Application")

    'obtain patient name and LI registry number by accessing content control set
    Set nameCC = ActiveDocument.SelectContentControlsByTitle("Patient Name")
    Set regCC = ActiveDocument.SelectContentControlsByTitle("LI Registry number")

    PatientName = nameCC(1).Range.Text
    registryNumString = regCC(1).Range.Text

Последняя строка возвращается с ошибкой «Ожидаемая функция переменной», но когда я смотрю на функции, я думаю, что работает только «текст».

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...