共 81 篇文章 |
|
阅2983 转14 评0 公众公开 15-02-15 23:48 |
Private Sub ExportToExcel(sql As String, conStr As String)On Error GoTo EXPORT_ERR Dim rs As Object Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim xlQuery As Object Set rs = CreateObject("Adodb.Recordset") rs. 阅399 转14 评0 公众公开 15-02-15 23:44 |
Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() "存字段长度值 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = ... 阅207 转5 评0 公众公开 15-02-13 22:17 |
VB中将ACCESS、FlexGird和DataGrid中数据快速导出至EXCEL Excel是一个非常优秀的报表制作软件,用VBA可以控制其生成优秀的报表,本文通过添加查询语句的方法,即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往每个CELL里写数据的方法提高许多倍。 阅850 转31 评0 公众公开 15-02-13 21:49 |
dim conn as adodb.connectionDim rs1 As New ADODB.Recordsetdim sql as string.''导出xls表Dim xlApp As New Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim xlQuery As Excel.QueryTable''On Error GoTo OutPutErrSet xlBook = xlApp.Workbooks().AddSet xlSheet = xlBo... 阅1280 转28 评0 公众公开 15-02-13 21:40 |
vb编程把excel中的数据导入SQL SERVER数据库。把excel中的数据导入SQL SERVER数据库(access数据类似):'' 设置连接SQL 数据库的连接字符串strtemp = "[odbc;Driver= {SQL Server} ;Server=(local);Database=Afws;UID=sa;PWD=sa]"'' 设置Excel 数据连接strconn = "Provider =Microsoft.Jet.OLEDB.4.0;Data Sou... 阅4131 转98 评0 公众公开 15-02-13 21:40 |
发现一个现象,当Application.Calculation为自动计算状态时,如果工作表中存有公式,2003版似乎并不降低VBA的运行速度,但2007版则影响很大,速度降低的特别明显,尤其是数据量大时,速度降低的令人难以忍受。VBA通常在程序开始加两句:Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 在结尾处再恢复:App... 阅832 转7 评0 公众公开 15-02-12 19:35 |
Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() "存字段长度值 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = ... 阅41 转4 评0 公众公开 15-02-12 00:25 |
在VB中用DAO打开Excel文件给大家介绍一种不用DATA元件,如何OPEN一个XLS文档的方法。set db=OpenDatabase("资料库")只能开mdb,*.xls档要如何开启呢?Set Db = OpenDatabase("c:\temp\book1.xls", False, False, "Excel 8.0;")Set Rs = Db.这是最简单的办法,详细的使用方法及限制请参看 VB OnLineHelp ,资料存取... 阅519 转6 评0 公众公开 15-02-11 23:20 |
VB中后台打开Excel文件 ?阅微堂。原理:New Excel.Application新建了一个Excel实例,这个实例默认不可见。'' 获取Excel实例,如果当前已经有excel窗口,则直接获取当前实例,否则新建实例Function GetExcelApp() As Excel.Application On Error Resume Next Set GetExcelApp = GetObject(, "Excel.Application") If Err.Numb... 阅580 转12 评0 公众公开 15-02-11 23:17 |