Member 2526425 Ответов: 1

Я хочу открыть файл excel и прочитать его в нем VB.NET 2019 год


Я скачал и попробовал кучу кода, но, похоже, большинство опций не поддерживаются в версии 2019 года? Помогите!!!

Что я уже пробовал:

Я уже пробовал этот код
Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        xlApp = GetObject(, "Excel.Application")
        xlApp = GetObject(strPath & "\Transmittals\Current_Transmittal.xlsx")
        xlWorkBook = xlApp.ActiveWorkbook
        xlWorkSheet = xlWorkBook.Worksheets(xlWorkSheet)
но я получаю ошибки??

Я получаю ошибки в строках
xlWorkBook = xlApp.ActiveWorkbook
xlWorkSheet = xlWorkBook.Рабочий лист(xlWorkSheet)

Ошибка заключается в том, что "ActiveWorkbook" не является членом приложения и
"ActiveWorkbook" не является членом workbooks.

OriginalGriff

Какие ошибки?
Какие-нибудь сообщения?
Помните, что мы не можем видеть ваш экран, получить доступ к вашему жесткому диску или прочитать ваши мысли - мы получаем только то, что вы печатаете для работы.
Используйте виджет "улучшить вопрос", чтобы отредактировать свой вопрос и предоставить более подробную информацию.

Maciej Los

Приведенный выше код в порядке и должен отлично работать с MS Excel 2019.

CHill60

Вы вернулись, чтобы отредактировать свой вопрос, но до сих пор не ответили на него...Что Такое Сообщение Об Ошибке?

Richard MacCutchan

Сообщения об ошибках вполне понятны. Объект приложения не содержит метода с именем ActiveWorkbook. Проверьте документацию, чтобы узнать, какие методы доступны.

1 Ответов

Рейтинг:
0

Maciej Los

Попробуй:

Dim strFileName As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Transmittals\Current_Transmittal.xlsx")
Dim xlApp As Excel.Application  = New Excel.Application
Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Open(sFileName)
Dim xlWorkSheet As Excel.Worksheet = xlWorkBook.Worksheets("SheetNameHere")
Dim xlRange As Excel.Range = xlWorkSheet.Range("A100")

xlRange.Value ="Hello!"

'Further instructions here!


Для получения более подробной информации, пожалуйста, смотрите:
Как программно открывать книги - Visual Studio | Microsoft Docs[^]
Как программно ссылаться на диапазоны рабочих листов в коде - Visual Studio | Microsoft Docs[^]