select excel 工作表使用 vb.net 添加数据到

Question

我正在尝试使用 excel 作为 WinFormsApp 的数据库，在 VS 2022 中使用 vb.net

所以我用了：（部分代码）

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
    Dim app As New Excel.Application
    Dim wk As Excel.Workbook = app.Workbooks.Open("file directory", [ReadOnly]:=False)
    Dim wt As Excel.Worksheet = app.Worksheets("Sheet2") 'i also used 2 instead of "sheet2"
        app.Range(TextBox2.Text).Activate()
        app.ActiveCell.Value = TextBox1.Text


 

代码将数据添加到所需的单元格（textbox2）中，但由于某种原因它没有在提供的工作表中注册

就像它总是在我上次编辑 excel 文件时使用的工作表中添加数据一样。 它基本上忽略了我提供的工作表，并且在运行时没有显示任何错误。

ps：我在运行时导入这些（编码页面的最顶部）

Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Runtime.ConstrainedExecution
Imports System.Text
Imports System.Threading
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.VisualBasic.ApplicationServices 

如果您仍然无法理解这个问题，那只是因为程序混淆了从哪个工作表获取/添加数据\到。 但它总是让细胞正确

Answer 1

Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet

xlApp.Workbooks.Open("D:\excel.xlsx")
xlWorkBook = xlApp.ActiveWorkbook
xlWorkSheet = xlWorkBook.ActiveSheet

'This is to fill excel from the source you want
xlWorkSheet.Cells(1, 1).Value = TextBox1.Text

xlWorkBook.RefreshAll()
xlWorkBook.Save()
xlApp.Workbooks.Close()
xlApp.Quit()

试试那个