Question

我正在尝试将数据从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

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

Answer 1

这是我在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()

如何将数据从Excel导入文本框？

1 个答案: