农产品Excel文档在vb.net

Question

在我的项目我有我想要的Excel文件中导出汇总数据表，用于这个目的，我已经部署了下面的代码：

Public Shared Function Main() As Integer 
     Dim exc As New Application 

    exc.Visible = True 
     Dim workbooks As Excel.Workbooks = exc.Workbooks 
     Dim workbook As Excel._Workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet) 
     Dim sheets As Sheets = workbook.Worksheets 
     Dim worksheet As _Worksheet = CType(sheets.Item(1), _Worksheet) 
     exc.DataEntryMode = True 
     Dim range1 As Range = worksheet.Range("C1", Missing.Value) 
     Const nCells As Integer = 5 
     Dim args1(1) As [Object] 
     args1(0) = nCells 
     range1.GetType().InvokeMember("Value", BindingFlags.SetProperty, Nothing, range1, args1) 
     Return 100 
    End Function 

当我试图执行行：在这一点上，我不能想出什么问题 Exception has been thrown by the target of an invocation
：

range1.GetType().InvokeMember("Value", BindingFlags.SetProperty, Nothing, range1, args1) 

我得到的错误。有人帮我吗？

Answer 1

不要担心尝试使用invoke成员。

要填充值的范围到一个Excel documant你可以使用这样的事情

dim row as integer = 1 
dim column as integer = 1 


Worksheet.Cells(row,column) = "My value here" 
'or this 
Worksheet.Cells("A1").Value = "my Value Here" 
' or this 
Worksheet.Range("A1") = "My value here" 

尝试从视图做这里面的Excel，然后千篇一律的角度看它。

编辑
对于像Word文本alignement选项包等

dim rng as Range = Worksheet.Range("A1") 
With rng 
     .HorizontalAlignment = xlGeneral 
     .VerticalAlignment = xlTop 
     .WrapText = True 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
end With