vb6 - 如何将 fpspread 导出到 Excel vb6？

Question

我尝试使用 fpsread 插件导出到 Excel，但确实没有关于如何的信息，我已经搜索了手册，但他们只告诉我如何使用 .net

有人会有想法吗？

标签： vb6

Answer 1

我设法做到了这很简单，但是想要导入标题是最繁重的，但是在这里我留下代码以防万一

Private Sub CmdImportar_Click()
    Call Export_Excel(cdgExcel, sprFacturas)
    Call HacerBusqueda
End Sub

Public Sub Export_Excel(cdgExcel As CommonDialog, Spread As fpSpread)
Dim Header() As String
Dim I As Integer
Dim j As Integer
Dim x As Integer

With cdgExcel
 .CancelError = False
 .InitDir = "C:/:"
 .Filter = "Excel(*.xls)|*.xls"
 .ShowSave

     If .filename <> "" Then
        Spread.Redraw = False
        For I = 1 To Spread.ColHeaderRows

            ReDim Header(Spread.MaxCols) As String
                Spread.Row = SpreadHeader + (I - 1)
            For j = 1 To Spread.MaxCols
              Spread.Col = j
              Header(j) = Spread.Text & ""
            Next j

            Spread.MaxRows = Spread.MaxRows + 1
            Spread.Row = I
            Spread.Action = ActionInsertRow
            For j = 1 To Spread.MaxCols
                Spread.Col = j
                Spread.CellType = Spread.CellType
                Spread.TypeHAlign = Spread.TypeHAlign
                Spread.TypeVAlign = Spread.TypeVAlign
                Spread.Text = Header(j) & ""
            Next j
        Next I

    x = Spread.ExportToExcel(.filename, "Sheet1", "")

     For I = 1 To Spread.ColHeaderRows
        Spread.Row = 1
        Spread.Action = ActionDeleteRow
     Next I


    If x = True Then
        MsgBox .filename & vbNewLine & "Se ha Importado el archivo", vbInformation, "Resultado"
    Else
        MsgBox "No se ha podido exportar el archivo", vbCritical, "Error"
    End If
  End If
End With
End Sub