1

請求書を格納するcolumn（ "file as pdf"）で構成されるテーブルがあります。

私の問題は、そのテーブルをExcelシートにエクスポートしたいということです。

出来ますか？

これまで私はこれを試しました。

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

このコードは、blob以外のデータ型の列では機能しますが、blobでは例外が発生します。

例外画像

4

1 に答える 1

4

いいえ。Excelは、ワークシートのセルへのデータBLOBの格納をサポートしていません。

おそらく、これらのPDFをそれぞれ個別のファイルにエクスポートし、エクスポートされたワークシートでファイル名を指定する必要があります。

于 2013-01-18T17:20:30.300 に答える