遲綁定錯誤

Question

所以我最近在我當前的項目中將選項嚴格打開，修復了所有選項拋出的小錯誤後，我碰到了這個。

Public Sub ExportarExcel(ByVal grilla As DataGridView) 

    Dim excelApp As Excel.Application 
    Dim workbook As Excel.Workbook 
    Dim sheet As Excel.Worksheet 
    Dim i As Integer = 1 
    Dim j As Integer = 1 
    excelApp = CType(CreateObject("Excel.Application"), Excel.Application) 
    workbook = excelApp.Workbooks.Add 
    sheet = CType(workbook.Worksheets.Add, Excel.Worksheet) 

    For Each col As DataGridViewColumn In grilla.Columns 
     sheet.Cells(1, i).Borders.LineStyle = Excel.XlLineStyle.xlContinuous 'Problematic line 
     sheet.Cells(1, i) = col.HeaderText 
     i = i + 1 
    Next 
    i = 2 

    For Each row As DataGridViewRow In grilla.Rows 
     j = 1 
     For Each cell As DataGridViewCell In row.Cells 
      sheet.Cells(i, j).Borders.LineStyle = Excel.XlLineStyle.xlContinuous 'Problematic line 
      sheet.Cells(i, j) = cell.Value 
      j = j + 1 
     Next 
     i = i + 1 
    Next 

    sheet.Columns.AutoFit() 
    excelApp.Visible = True 
End Sub 

這兩行（從開始到「邊框」）都扔後期綁定錯誤，我不知道這是正確的澆鑄或修復這些線路。

Answer 1

根據我找到的文件（這裏：http://msdn.microsoft.com/en-us/library/office/aa612949(v=office.10).aspx：http://msdn.microsoft.com/en-us/library/office/ff822605.aspx，和這裏）表示，該Borders屬性返回一個集合，由恆索引你想要的邊框（上，下，左，右等）

你行也許應該是這樣的，

sheet.Cells(1, i).Borders(xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous 

Answer 2

您可以使用sheet.Cells(i, j).Text = cell.Value或sheet.Cells(i, j).Value = cell.Value（這可能是值2）