如何使用Excel.Workbook处理Excel工作簿

所以，我找不到在Excel.Workbook或Excel.Application打开文件的任何方法，我想知道为什么。

我有一个Excel文件的path，我想操纵它。 我知道我必须使用Excel.Application ， Excel.Workbook和Excel.Worksheet 。 Excel文件的文件是ExcelFilePath ，我该怎么做才能使它成为可能？

Answer 1

您首先需要将对Microsoft.Office.Interop.Excel的引用添加到您的项目中，以便使用Excel API，然后填写variables：

 Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWS As Excel.Worksheet xlApp = New Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Open(sFilePath) xlWS = CType(xlWorkBook.Worksheets(sheetNameOrIndex), Excel.Worksheet) 

然后你只需要使用他们的方法。 例如：

 Dim sVar as String = xlWS.Range("C5").Value.ToString() 

Answer 2

试试这个：从我的项目

 Dim xapp As New Microsoft.Office.Interop.Excel.Application Dim wb As Workbook = xapp.Workbooks.Add Dim ws As Worksheet = wb.Worksheets(1) ws.Activate() 'Fill header of the sheet---------------------------------- For i As Integer = 1 To dgvcustomer.Columns.Count ws.Cells(1, i) = dgvcustomer.Columns(i - 1).HeaderText Next 'End header------------------------------------------------ Dim Dgrow, Dgcell, Dgcol As Integer Dgrow = 1 Dgcell = 1 'Fill Sheet ------------------------------------------------------------------------------------------------ While (Dgrow <= dgvcustomer.Rows.Count) Dgcol = 1 While (Dgcol <= ws.UsedRange.Columns().Count) ws.Cells(Dgrow + 1, Dgcol).value = dgvcustomer.Rows(Dgrow - 1).Cells(ws.Cells(1, Dgcol).value).Value Dgcol += 1 End While Dgrow += 1 End While 'End fill sheet--------------------------------------------------------------------------------------------- wb.SaveAs(dlgSaveFile.FileName) wb.Close() xapp.Quit()