Как импортировать данные из excel в textbox?

Я пытаюсь импортировать данные из Excel в текстовое поле.

Я хочу импортировать данные из Excel, сохраненные на моем диске C:, и я получаю сообщение об ошибке с System.NotImplementedException. Я использую библиотеку для Excel и Office.

Dim ExcelApp As New Excel.Application
Dim ReteilerWorkbook As New WindowsApp1.ExcelApp.Workbooks.Open("C:\Users\TR\1.xlsx")
Dim retailerWorksheet As New RetailerWorkbook.Sheets(1)

Private Sub ZPlikuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZPlikuToolStripMenuItem.Click

    Me.TextBox1.Text = ""
    TextBox1.Text = retailerWorksheet.cells(1, 1).text
End Sub

Я хочу заполнить textbox1 данными из ячейки A1


vb.net excel notimplementedexception
person Daniel Pełka    schedule 08.02.2019    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вот что я делаю на VB.NET для импорта данных из Excel:

Сначала я импортирую Interop в голову моего модуля VB:

Imports Excel = Microsoft.Office.Interop.Excel

Затем я объявляю следующую процедуру INSIDE:

Private Sub ...
    Dim ExcelApp As Excel.Application = New Excel.Application
    Dim ReteilerWorkbook As Excel.Workbook = ExcelApp.Workbooks.Open("C:\Users\TR\1.xlsx")
...

Не могли бы вы попробовать это так?

Чтобы получить содержимое cells(1,1), вам не нужно объявлять файл Worksheet. Это не компенсирует усилий. Итак, вы можете сделать это просто с помощью:

TextBox1.Text = ReteilerWorkbook.Sheets(1).Cells(1,1).Text

И, как всегда, не забудьте закрыть книгу в конце:

ReteilerWorkbook.Close()
person Pspl    schedule 08.02.2019
comment
Это помогает при подключении к моему Excel, сохраненному на диске. Но как я могу скопировать данные из ячейки A1 в textbox1? Мой код: TextBox1.Text = retailerWorksheet.cells(1, 1).text Не работает. Я думаю, что мне нужна другая команда. Привет - person Daniel Pełka; 08.02.2019
comment
Потрясающий! И последнее, я вижу, что VB использует этот Excel после закрытия моей программы. Поэтому я не могу редактировать его (режим только для чтения). Как закрыть excel 1.xlsx кодом? - person Daniel Pełka; 08.02.2019
comment
Хорошо, может быть, вы также знаете, как просматривать локализацию excel вместо постоянной локализации? - person Daniel Pełka; 08.02.2019
comment
Вы можете просмотреть специальные папки с помощью команды Environment.SpecialFolder. Например, если вы ищете на своем рабочем столе, команда Environment.GetFolderPath(Environment.SpecialFolder.Desktop) получит его путь. Может быть, вы подумаете над тем, чтобы задать еще один вопрос для вашего нового задания? - person Pspl; 08.02.2019