Как импортировать данные из Excel в текстовое поле? - PullRequest
Новая
       51

Как импортировать данные из Excel в текстовое поле?

0 голосов
/ 08 февраля 2019

Я пытаюсь импортировать данные из 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

Я хочу заполнить текстовое поле1 данными изячейка А1

1 Ответ

0 голосов
/ 08 февраля 2019

Вот что я делаю на 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()
...