0

我正在尝试将数据从 Excel 导入文本框。

我想从保存在 C: 磁盘上的 Excel 导入数据，但 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

我想用单元格 A1 中的数据填充 textbox1

4

1 回答 1

0

这是我从以下位置VB.NET导入数据的操作Excel：

Interop首先，我在模块的头部导入VB：

Imports Excel = Microsoft.Office.Interop.Excel

然后我在例程中声明以下内容：

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()
于 2019-02-08T14:43:36.763 回答