广汽三菱劲炫怎么样:VB 快速导入EXCEL 函数

来源：百度文库编辑：偶看新闻时间：2024/04/29 06:10:13

VB 快速导入EXCEL函数

Public Function ToExcel()
On Error GoTo ErrorHandler
Dim exlapp As Excel.Application
Dim exlbook As Excel.Workbook
Set exlapp = CreateObject("Excel.Application")
Set exlbook = exlapp.Workbooks.Add
exlapp.Caption = "数据正在导出......"
exlapp.Visible = True
exlapp.DisplayAlerts = False
   Dim exlsheet As Excel.Worksheet
   Set exlsheet = exlbook.Worksheets.Add
   exlsheet.Activate
   Set exlsheet = exlsheet
   exlsheet.Name = "我导出的数据"
   '设置列宽
   exlapp.ActiveSheet.Columns(1).ColumnWidth = 10
   exlapp.ActiveSheet.Columns(2).ColumnWidth = 20
   StrSql = "你的SQL语句"
   Set exl_rs = PubSysCn.Execute(StrSql)
   exlsheet.Range("A2").CopyFromRecordset exl_rs
   exl_rs.Close
   Set exl_rs = Nothing
   exlapp.Worksheets("sheet1").Delete
   exlapp.Worksheets("sheet2").Delete
   exlapp.Worksheets("sheet3").Delete
   exlapp.DisplayAlerts = True
   exlapp.Caption = "数据导出完毕！！"
   exlapp.Visible = True
   Set exlapp = Nothing
   Set exlbook = Nothing
   Set exlsheet = Nothing
   Exit Function
ErrorHandler:
       MsgBox "EXCEL : " & err.Number & " : " & err.Description
End Function

怎样利用VB将EXCEL中的数据导入ACCESS VB中Listview中的数据如何导入excel? 用VB将access导入excel中的问题？ excel 函数 excel函数 excel 函数 Excel函数 EXCEL函数 Excel函数 excel函数 excel函数 EXCEL函数: excel函数怎样利用VB将EXCEL中的数据导入ACCESS 这里给20分用C#或VB.net如何将Excel中的sheet导入Access中？ WORD 导入 EXCEL数据用Java导入Excel Excel 导入汽配管理软件 excel导入导出问题 EXCEL如何导入COREDRAW??? excel导入sql excel 数据导入 Excel表导入access 如何把Excel导入VFP?