0

我想在一个文本框中读取整个 Excel 工作表的数据。

这可能吗?

我知道将单元格数据从 excel 读取到文本框的代码。

PrivateSub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

    Dim xlaTest As Excel.Application = CType(CreateObject("Excel.Application"), Excel.Application)
    xlaTest.Visible = True
    Dim wbkTest As Excel.Workbook = xlaTest.Workbooks.Open("D:\Tests\VBTrials\ExcelTests\TestWorkbook.xls")
    Dim wshTest As Excel.Worksheet = DirectCast(wbkTest.Worksheets("Sheet1"), Excel.Worksheet)
    TextBox1.Text = wshTest.Range("B2").Value
    wbkTest.Close()
    xlaTest.Quit()

EndSub
4

1 回答 1

2
private List<object> Excelvoider()
        {
            Excel.Application xlApp = new Excel.Application();
            Excel.Workbook xlWorkbook = xlApp.Workbooks.Open(@"C:/Temp/Книга1.xlsx");
            Excel._Worksheet xlWorksheet = xlWorkbook.Sheets[1];
            Excel.Range xlRange = xlWorksheet.Range["B3", "Q58"];
            List<object> stroke = new List<object>();
            int rowCount = xlRange.Rows.Count;
            int colCount = xlRange.Columns.Count;
            for (int i = 1; i <= rowCount; i++)
            {
                for (int j = 1; j <= colCount; i++)
                {
                      stroke.Add(xlRange.Value2[i, j]);
                }
            }
            return stroke;
        }

这是从一个单元格到另一个单元格的范围:

Excel.Range xlRange = xlWorksheet.Range["B3", "Q58"];

您也可以使用 xlWorksheet.UsedRange。

于 2013-05-02T21:06:09.587 回答