vb6导出excel加速

转载 2015年07月10日 14:49:02

'*********************************************************
'* 名称:ExporToExcel'* 功能:导出数据到EXCEL'* 用法:ExporToExcel(sql查询字符串)
'*********************************************************

Public Function ExporToExcel(strOpen As String)


Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable

With Rs_Data
    If .State = adStateOpen Then
    .Close
    End If
    .ActiveConnection = adoConn
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockReadOnly
    .Source = strOpen
    .Open
End With

With Rs_Data
    If .RecordCount < 1 Then
    MsgBox ("没有记录!")
    Exit Function
    End If        '记录总数
    
    Irowcount = .RecordCount        '字段总数
    Icolcount = .Fields.count
End With

Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("sheet1")
xlApp.Visible = True        '添加查询语句,导入EXCEL数据
Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))

With xlQuery
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
End With

xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh

With xlSheet
    .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体"        '设标题为黑体字
    .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True        '标题字体加粗
    .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous '设表格边框样式
    
End With

With xlSheet.PageSetup
    .LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称:"   ' & Gsmc
    .CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) & "&""楷体_GB2312,常规""&10日 期:"
    .RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位:"
    .LeftFooter = "&""楷体_GB2312,常规""&10制表人:"
    .CenterFooter = "&""楷体_GB2312,常规""&10制表日期:"
    .RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"
End With

xlApp.Application.Visible = True
Set xlApp = Nothing  '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing

End Function

VB 6.0 Excel操作示例

  • 2015年02月05日 11:02
  • 1KB
  • 下载

DataTable导出Excel 实例(VB+EXCEL)源码

  • 2010年01月06日 10:23
  • 1000KB
  • 下载

VB导出Excel

VB与Excel交互时,如何才能讲
  • u012704843
  • u012704843
  • 2014年08月06日 20:47
  • 2116

VC6.0导出内容到excel的简单代码例子,具体方法没有记录

// TODO: Add extra validation here _Application app; Workbooks books; _Workbook book; Worksheets...
  • thanklife
  • thanklife
  • 2014年04月09日 17:04
  • 1912

【源代码共享】VB+ADO导出EXCEL

把系统中常用的导出EXCEL的代码贴出来与大家共享Public Sub OutExcel(ByVal Myrestr As ADODB.Recordset, ByVal outFile As Stri...
  • hwmys
  • hwmys
  • 2009年12月12日 16:45
  • 2863

vb6.0操作Excel表格代码

  • 2013年04月09日 17:01
  • 12KB
  • 下载

VB将Listview数据导出到Excel表格的实例

  • 2013年05月16日 01:01
  • 22KB
  • 下载

vb读取写入导出excel

Sub test() '从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000) Dim xlApp As Excel.App...
  • weinianjie1
  • weinianjie1
  • 2010年10月31日 20:51
  • 5406

VB6.0 读写excel表格/dat文件并保存

VB6.0 读写excel表格/dat文件并保存最近偶尔写了点VB - - 1.Excel读写GlobalLists: Dim xlsApp As Object Dim xlsWB1 As Obje...
  • u013828589
  • u013828589
  • 2017年05月03日 10:18
  • 959

VB导出Excel

完成查询充值记录的代码后,对查询+导出有一些感悟。 在学习机房收费系统时,对于查询+导出的困难,个人认为是导出相对于我自己比较难,主要有三点: 1,我写过程不熟练; 2,这是excel与vb的结合...
  • tsj11514oo
  • tsj11514oo
  • 2014年01月26日 20:58
  • 1156
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb6导出excel加速
举报原因:
原因补充:

(最多只允许输入30个字)