[.Net]如何向DataGrid导入Excel文件？

charles_gao

因为Excel文档已经确定下来，不可能变更，所以oledb行不通！
按照道理，得到Excel的对象，然后得到某些cell的值应该可行啊！

赵宇

刚做完测试:
First, the Excel assembly must be added to the project. To do this you must add a reference to the Excel 10 Object Library (Excel XP) by going to the Project -> Add Reference  menu item. Go to the COM tab of the dialog box that pops up and scroll down the Excel 10 Object Library. Double click on it and press OK. This adds the reference to your project. In the "using" section of your code, type
[PHP]
using Excel;
.....


private void button1_Click(object sender, System.EventArgs e)
{
  Excel.Application excelApp = new Excel.ApplicationClass();
  excelApp.Visible = true;
  Excel.Workbook newWorkbook = excelApp.Workbooks.Add (XlWBATemplate.xlWBATWorksheet);
  string workbookPath = "d:/zy.xls";
  Excel.Workbook excelWorkbook = excelApp.Workbooks.Open(workbookPath,0, false, 5, "", "", false, Excel.XlPlatform.xlWindows, "",
  true, false, 0, true, false, false);
Excel.Sheets excelSheets = excelWorkbook.Worksheets;
string currentSheet = "Sheet2";
Excel.Worksheet excelWorksheet = (Excel.Worksheet)excelSheets.get_Item(currentSheet);
Excel.Range excelCell = (Excel.Range)excelWorksheet.get_Range("A1", "A1";
MessageBox.Show(excelCell.Text.ToString());
}
[/PHP]
你直接把代码考过去就明白了

这里有一些英文文档，你看一下


http://www.codeproject.com/csharp/csharp_excel.asp

charles_gao

非常感谢！
我试一下！

赵宇

最初由 charles_gao 发布
[B]非常感谢！
我试一下！ [/B]

互相交流,希望我们一起把版块带起来

charles_gao

问题已解决！

赵宇，非常感谢！

charles_gao

原因在于
以前用xlSheet.Cells(I, J)来定位一个单元格，
但到了.net中，好象不行了，得采用你的那种方式：excelWorksheet.get_Range("A1", "A1".Text;
为了便于调用，我改成了：xlSheet.Range(xlSheet.Cells(I, J), xlSheet.Cells(I, J)).Text,也可以使用！

charles_gao

最初由 赵宇 发布
[B]


互相交流,希望我们一起把版块带起来 [/B]

是的，大家一起努力！

charles_gao

我现在把整个Excel导入程序公布如下，已经通过测试，有不当的地方请指正：（用的是vb.net2005）

    '导入Excel数据
    Private Sub mImport_Excel_Data(ByVal p_FileName As String, _
                            ByVal p_First_Row As Integer, _
                            ByVal p_First_Col As Integer, _
                            ByVal p_Total_Cols As Integer, _
                            ByVal p_DataGrid As DataGridView)
        'p_FileName     导入数据的文件名
        'p_First_Row    导入的起始行
        'p_First_Col    导入的起始列
        'p_Total_Cols   欲导入的总列数

        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet

        Dim I As Integer
        Dim J As Integer
        Dim intRows As Integer = 0

        Dim strRange As String = ""

        xlApp = New Excel.Application
        xlBook = xlApp.Workbooks.Add
        xlBook = xlApp.Workbooks.Open(p_FileName)
        'xlSheet = xlBook.Worksheets("Sheet1"
        xlSheet = xlBook.ActiveSheet

        I = 0
        intRows = 0

        '得到总的有效行数
    '第1列为序号(凡是有序号的都视为有效列)
        While Not (CInt(Val(Trim(xlSheet.Range(xlSheet.Cells(p_First_Row + 1 + intRows, 1), xlSheet.Cells(p_First_Row + 1 + intRows, 1)).Text))) = 0)
            intRows = intRows + 1
        End While

        If intRows = 0 Then Return

        dgView1.Rows.Clear()

        With tspProgress
            .Minimum = 0
            .Maximum = p_First_Row + intRows + 2
        End With

        With xlSheet
            For I = p_First_Row To p_First_Row + intRows
                tspProgress.Value = I

                p_DataGrid.Rows.Add()
                p_DataGrid.Rows(I - p_First_Row).Cells(0).Value = I - p_First_Row + 1

                For J = p_First_Col To p_Total_Cols
                    'strRange = Chr(64 + J) & I
                    'p_DataGrid.Rows(I - p_First_Row).Cells(J - 1).Value = xlSheet.Range(strRange, strRange).Text
                    p_DataGrid.Rows(I - p_First_Row).Cells(J - 1).Value = xlSheet.Range(.Cells(I, J), .Cells(I, J)).Text
                Next J
            Next I

        End With

        tspProgress.Value = 0

        xlSheet = Nothing
        xlBook.Close()
        xlApp.Quit()
        xlBook = Nothing
        xlApp = Nothing
    End Sub

charles_gao

以上看到，可以采用2种方式得到Excel单元格的数据：
1〉
strRange = Chr(64 + J) & I
p_DataGrid.Rows(I - p_First_Row).Cells(J - 1).Value = xlSheet.Range(strRange, strRange).Text

2〉
p_DataGrid.Rows(I - p_First_Row).Cells(J - 1).Value = xlSheet.Range(.Cells(I, J), .Cells(I, J)).Text

赵宇

真不错,需要的就是这种研究