1

我的表格由存储账单的列(“文件为 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 回答