1

私のプロジェクトでは、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

行を実行しようとしたとき：

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

次のエラーが表示されます: Exception has been thrown by the target of an invocation
この時点で、何が問題なのかわかりません。私を手伝ってくれる人はいますか？

4

1 に答える 1

2

呼び出しメンバーを使用しようとしても心配しないでください。

値の範囲を Excel ドキュメントに入力するには、次のようなものを使用できます

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 内で実行し、同じパターンに従うという観点から見てみてください。


ワードラップなどのテキスト配置オプションの 編集。

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
于 2011-04-11T06:58:59.343 に答える