时间戳

首页 > 解决方案 > 使用列表框显示excel文件？

vb.net - 使用列表框显示excel文件？

问题描述

因此，经过一些更改，我使用了以下代码：

Dim XlApp = New Microsoft.Office.Interop.Excel.Application
Dim oBook As Object = XlApp.Workbooks.Open("C:\file.xlsx")
Dim oSheet As Object = oBook.Worksheets(1)

Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim StartedRow As Integer
    Dim TotalRows As Integer

    TotalRows = XlApp.ActiveWorkbook.Sheets(1).Range("a1").CurrentRegion.Rows.Count

    For StartedRow = 1 To TotalRows
        Me.ListBox1.Items.Add(oSheet.Cells(StartedRow, 1).text)
        Me.ListBox1.Items.Add(oSheet.Cells(StartedRow, 2).text)
    Next

    MessageBox.Show("Succesful")

这一个有效，但只显示了两行，顺序不正确，我需要显示整个文件。抱歉，由于我是 Stack Overflow 的新手，我现在觉得它有点令人困惑 :)

标签： vb.netvisual-studio

解决方案

@Wakashio1234 这将遍历所有单元格..

TotalRows = XlApp.ActiveWorkbook.Sheets(1).Range("a1").CurrentRegion.Rows.Count
Totalcolumns = XlApp.ActiveWorkbook.Sheets(1).Range("a1").CurrentRegion.columns.Count
For StartedRow = 1 To TotalRows
   For Startedcolumn = 1 To Totalcolumns
       Me.ListBox1.Items.Add(oSheet.Cells(StartedRow, Startedcolumn).text)
   Next
Next
MessageBox.Show("Successful")

推荐阅读