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

Question

因此，我找不到任何方法在Excel.Workbook或Excel.Application或Excel.Application中打開文件，我想知道爲什麼。

我有一個Excel文件的路徑，我想操縱它。我知道我必須使用Excel.Application，Excel.Workbook和Excel.Worksheet。該文件的Excel文件是ExcelFilePath，我應該怎麼做才能使它成爲可能？

Answer 1

首先需要提及Microsoft.Office.Interop.Excel添加到您的項目，以使用Excel API，然後填寫變量：

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()