mshflexgrid1如何导出excel表格.docxVIP

MSHFIexGrid控件的导出 CommonDialoglPublic Function FlexExportE(ByV al Flexl As MSHFIexGrid, ByVai CommonDialogl mvarVersion = vbLBV5 Dim SaveFilePath As String Dim EXEString As String Dim i As Integer, j As Integer Dim InsertAmount As Integer Dim WS As DAO. Workspace Dim DB As DAO. Database Dim TABL As DAO.TableDef Dim RS As DAO. Recordset On Error GoTo err_handle On Error Resume Next With CommonDialogl .CancelError = False .Filter = Excel 文件(*.xls)|*.xls .DialogTitle =将数据导出到 ExceI 表(5.0) .ShowOpen If Trim(.FileName) = Then Exit Function End If SaveFilePath = .FileName End With If flexl .ColumnHeaders.Count = 0 Then Exit Sub End If Dim MyFile MyFile = Dir(SaveFilePath) Dim Msg As Integer As CommonDialog) If MyFile Then Msg = MsgBox( 是否要覆盖原文件！ , vbInformation + vbYesNo, 提示 ) If Msg = 7 Then Exit Function Else Kill (MyFile) End If End If Set WS = DBEngine.CreateWorkspace(WS, Admin, , dbUseJet) Dim mdbFile mdbFile = Dir(App.Path \report\FlexToExcel.mdb) If mdbFile Then Kill App.Path \report\FlexToExcel.mdb End If Set DB = WS.CreateDatabase(App.Path \report\FlexToExcel.mdb, dbLangGeneral, dbEncrypt) Set DB = WS.CreateDatabase(App.Path \report\FlexToExcel.mdb, dbLangGeneral, dbEncrypt) Set TABL = DB.CreateTableDef(Excel) For i = 1 To Flex1.Cols - 1 TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, i), dbText, 250) TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, i), dbSingle, 250) Next i TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0,0), dbText, 250) TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 1), dbText, 250) emp_id1 TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 2), dbText, 250) 部门 TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 3), dbText, 250) 工号 TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 4), dbText, 250) 姓名 TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 5), dbText, 250) TABL.Fields.Append TABL.CreateField(Flex1.TextMatrix(0, 6), dbDouble, 250) TABL.Fields.Append TABL.CreateField(Flex1.Text