错误HRESULT 0x800a03ec试图将值分配给Excel单元格

Question

我想要一个DataGridView到Excel工作表的内容通过使用下面的代码

Dim xlApp As New Microsoft.Office.Interop.Excel.Application 
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add 
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet = CType(xlBook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet) 
xlSheet.Name = "MySheet" 
xlApp.Visible = True 
With xlSheet 
    For C As Integer = 0 To DGV_IntCalc.Columns.Count - 1 
     .Range(.Cells(1, C + 1)).Value = DGV_IntCalc.Columns(C).HeaderText 
     For R As Integer = 0 To DGV_IntCalc.RowCount - 1 
      .Range(.Cells(R + 2, C + 1)).Value = DGV_IntCalc.Rows(R).Cells(C).Value 
     Next 
    Next 
End With 

我得到错误的.Range(.Cells(1, C + 1)).Value = DGV_IntCalc.Columns(C).HeaderText

我出口有Option Strict On所以我不能使用.Cells(1, C + 1).Value = DGV_IntCalc.Columns(C).HeaderText，因为后期绑定

我在哪里错了？

Answer 1

即使范围只有一个单元格，也需要插入范围的开始和结束单元格。

的解决办法是改变：

.Range(.Cells(1, C + 1)).Value = DGV_IntCalc.Columns(C).HeaderText 

有：

.Range(.Cells(1, C + 1), .Cells(1, C + 1)).Value = DGV_IntCalc.Columns(C).HeaderText