使用VB调用Excel

Question

现有
1.VB中txtbox1中的文本，如A1 B1
2.Excel表中的数据
A1对应00
B1对应26

现在想使用VB调用Excel中的数据，将txtbox1中的文本替换为00 26

Answer 1

您可以使用VB.NET中的Microsoft Excel对象库来调用Excel数据。首先，您需要在VB.NET中添加对Microsoft Excel应用程序的引用，然后在代码中创建一个Excel应用程序对象，并使用它来打开Excel文件。接下来，您可以使用Excel应用程序对象的方法和属性来访问Excel工作簿和工作表中的数据。以下是一个示例代码，它将txtbox1中的文本替换为00 26：

Dim xlApp As Excel.Application = New Excel.Application()
Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Open("C:\test.xlsx")
Dim xlWorkSheet As Excel.Worksheet = xlWorkBook.Worksheets("Sheet1")
Dim range1 As Excel.Range = xlWorkSheet.Range("A1")
Dim range2 As Excel.Range = xlWorkSheet.Range("B1")
Dim str1 As String = range1.Value.ToString()
Dim str2 As String = range2.Value.ToString()
Dim cellname1 as String = range1.Address
Dim cellname2 as String = range2.Address
xlWorkBook.Close()
xlApp.Quit()

'替换文本
Dim txtboxstr as String= txtbox1.text
txtboxstr = txtboxstr.Replace(cellname1, str1)
txtboxstr = txtboxstr.Replace(cellname2, str2)

'更新文本框
txtbox1.Text = txtboxstr