写一段用VB来GET EXCEL文件里第一列和第二列数据在窗口输出的语言
时间: 2023-11-28 16:49:35 浏览: 32
以下是使用 VB 读取 Excel 文件中第一列和第二列数据,并在窗口输出的代码示例:
```
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ExcelApp As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
'打开Excel应用程序
ExcelApp = CreateObject("Excel.Application")
'打开Excel文件
ExcelBook = ExcelApp.Workbooks.Open("C:\example.xlsx")
'选择第一个工作表
ExcelSheet = ExcelBook.Worksheets(1)
'读取第一列和第二列数据并输出到窗口
For i = 1 To ExcelSheet.UsedRange.Rows.Count
Dim cell1 As String = ExcelSheet.Cells(i, 1).Value
Dim cell2 As String = ExcelSheet.Cells(i, 2).Value
TextBox1.AppendText(cell1 & " " & cell2 & vbCrLf)
Next
'关闭Excel文件和应用程序
ExcelBook.Close()
ExcelApp.Quit()
'释放Excel对象
ReleaseObject(ExcelSheet)
ReleaseObject(ExcelBook)
ReleaseObject(ExcelApp)
End Sub
Private Sub ReleaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
```
这个代码示例假设你的 Excel 文件名为 `example.xlsx`,并且该文件的第一列和第二列都包含文本数据。你可以将这段代码复制到一个 VB 窗体中的按钮单击事件中,然后在窗口中运行它,它将会输出第一列和第二列的数据。