VBA_EXECL_SQL测试的例子

最新推荐文章于 2021-04-07 00:41:12 发布
最新推荐文章于 2021-04-07 00:41:12 发布
阅读量903 收藏 1
点赞数
文章标签： vba sql 测试 sql server 工作 date
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jingzhc/article/details/5596669
版权

VBA_EXECL_SQL测试的例子

EXECL是二维表，SQL也是二维表，如果这两个能结合该有多好呀，把SQL数据调到EXECL中之后，你是打印、编辑想做啥就做啥有多方便呀，用VBA就可实现把SQL数据调到EXECL中的想法，用SQL编写存储过程也可以将数据存到EXECL中，如果用VBA执行更简单明了，用SQL语句不能指向EXECL中的行和列，用VBA就可以随意指定行和列，还可以设计表头，包括颜色、字体、框线、预置公式都可以实现。

我试验了几个例子，共大家分享。

'****************在EXECL中用VBA调用一条SQL语句

Sub SQLS1()

  Set cnn = CreateObject("ADODB.Connection")

  cnn.ConnectionString = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=AIS20091223202739"

  cnn.Open

  Set rs = CreateObject("ADODB.recordset")

  rs.Open "select  fnumber,fname  from t_account", cnn, 0

 

  i = 1

  Set sht = ThisWorkbook.Worksheets("sheet1")   '把sht指向当前工作簿的sheet1工作表

  Do While Not rs.EOF              '当数据指针未移到记录集末尾时，循环下列操作

  sht.Cells(i, 1) = rs("fnumber")  '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

  sht.Cells(i, 2) = rs("fname")    '把当前字段2的值保存到sheet1工作表的第i行第2列

  rs.MoveNext                      '把指针移向下一条记录

 

  i = i + 1                        'i加1，准备把下一记录相关字段的值保存到工作表的下一行

  Loop

     

  cnn.Close

  Set cnn = Nothing

  Set rs = Nothing

   

  End Sub

 

  '****************在EXECL中用VBA调用存储过程（不带参数）

 

Sub SQLS2()

Set cn = CreateObject("ADODB.Connection")

Set cmd = CreateObject("ADODB.Command")

cn.ConnectionString = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=AIS20091223202739"

cn.Open

Set rs = CreateObject("ADODB.recordset")

 

 

Dim i As Integer, sht As Worksheet

 

cmd.ActiveConnection = cn

 

cmd.CommandType = 4                   'sqlstoredProc

cmd.CommandText = "JZC_test"

 

Set rs = cmd.Execute

 

 i = 1

  Set sht = ThisWorkbook.Worksheets("sheet2")   '把sht指向当前工作簿的sheet1工作表

  Do While Not rs.EOF                 '当数据指针未移到记录集末尾时，循环下列操作

  sht.Cells(i, 1) = rs("faccountid")  '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

  sht.Cells(i, 2) = rs("fnumber")     '把当前字段2的值保存到sheet1工作表的第i行第2列

  sht.Cells(i, 3) = rs("fname")

  rs.MoveNext                         '把指针移向下一条记录

 

  i = i + 1                           'i加1，准备把下一记录相关字段的值保存到工作表的下一行

  Loop

 

  cn.Close

  Set cn = Nothing

  Set rs = Nothing

   

  End Sub

  

  '****************在EXECL中用VBA调用存储过程（复杂存储过程-不带参数）

 

Sub SQLS3()

Set cn = CreateObject("ADODB.Connection")

Set cmd = CreateObject("ADODB.Command")

cn.ConnectionString = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=AIS20091223202739"

cn.Open

Set rs = CreateObject("ADODB.recordset")

 

 

Dim i As Integer, sht As Worksheet

 

cmd.ActiveConnection = cn

 

cmd.CommandType = 4                   'adCmdStoredProc

cmd.CommandText = "JZC_standardcost"

 

Set rs = cmd.Execute

 

 i = 1

  Set sht = ThisWorkbook.Worksheets("sheet3")   '把sht指向当前工作簿的sheet1工作表

  Do While Not rs.EOF                 '当数据指针未移到记录集末尾时，循环下列操作

  sht.Cells(i, 1) = rs("Fbomnumber")  '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

  sht.Cells(i, 2) = rs("Fitemid")     '把当前字段2的值保存到sheet1工作表的第i行第2列

  sht.Cells(i, 3) = rs("Fnumber")

  rs.MoveNext                         '把指针移向下一条记录

 

  i = i + 1                           'i加1，准备把下一记录相关字段的值保存到工作表的下一行

  Loop

 

  cn.Close

  Set cn = Nothing

  Set rs = Nothing

   

  End Sub

   

  '****************在EXECL中用VBA调用存储过程（复杂存储过程-带参数）

 

Sub SQLS4()

Set cn = CreateObject("ADODB.Connection")

Set cmd = CreateObject("ADODB.Command")

cn.ConnectionString = "Driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=AIS20091223202739"

cn.Open

Set rs = CreateObject("ADODB.recordset")

 

 

Dim i As Integer, sht As Worksheet

 

cmd.ActiveConnection = cn

 

cmd.CommandType = 4                   'adCmdStoredProc

cmd.CommandText = "JZC_standardcost1"

 

'Dim B_Date As Date, E_Date As Date

 'B_Date = "2009-11-01"

' E_Date = "2009-11-30"

 

'cmd.Parameters.Refresh

 

'Set param = cmd.CreateParameter("@B_date", addate, adParamInput, 16, "2009-11-01")  'Trim(txttruename.Text))

Set param = cmd.CreateParameter("@B_date", 135, 1, 16, "2009-11-01")  'Trim(txttruename.Text))

cmd.Parameters.Append param

Set param = cmd.CreateParameter("@E_date", 135, 1, 16, "2009-11-30")  'Trim(txttruename.Text))

cmd.Parameters.Append param

 

'cmd.Parameters("@B_date").Value = Date '存储过程中参数的值(存储过程中只有一个参数)

'cmd.Parameters("@E_dtae").Value = Date '存储过程中参数的值(存储过程中只有一个参数)

 

Set rs = cmd.Execute

 

 i = 1

  Set sht = ThisWorkbook.Worksheets("sheet4")   '把sht指向当前工作簿的sheet1工作表

  Do While Not rs.EOF                 '当数据指针未移到记录集末尾时，循环下列操作

  sht.Cells(i, 1) = rs("Finterid")  '把当前记录的字段1的值保存到sheet1工作表的第i行第1列

  sht.Cells(i, 2) = rs("Fbomnumber")     '把当前字段2的值保存到sheet1工作表的第i行第2列

  sht.Cells(i, 3) = rs("Fitemid")

  sht.Cells(i, 4) = rs("Fnumber")

  sht.Cells(i, 5) = rs("Fmodel")

  sht.Cells(i, 6) = rs("Funitid")

  sht.Cells(i, 7) = rs("Funitname")

  sht.Cells(i, 8) = rs("Fqty")

  sht.Cells(i, 9) = rs("Ftrantype")

  sht.Cells(i, 10) = rs("Fcustid")

  sht.Cells(i, 11) = rs("Fcustname")

  sht.Cells(i, 12) = rs("Fzjcl")

  sht.Cells(i, 13) = rs("Fzjrg")

  sht.Cells(i, 14) = rs("Fbdzzfy")

  sht.Cells(i, 15) = rs("Fgdzzfy")

  sht.Cells(i, 16) = rs("Fwwjgf")

  sht.Cells(i, 17) = rs("Fcost")

 

  rs.MoveNext                         '把指针移向下一条记录

 

  i = i + 1                           'i加1，准备把下一记录相关字段的值保存到工作表的下一行

  Loop

 

  cn.Close

  Set cn = Nothing

  Set rs = Nothing

   

  End Sub

jingzhc
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB SQL 操作通式
钅隼戋 ‘s Bolg
09-24 512
Sub 执行写入和更新操作()     Dim T_SQL As String     Dim T_SQL As String     Dim GetBack As Variant '在执行写入或更新操作时，该变量用于返回SQL执行的错误信息     T_SQL = "Update [master].[dbo].[spt_monitor]   Set [lastrun] = 2 WHERE
VBA中使用SQL
热门推荐
yuanfang1992的博客
08-27 1万+
 取出同文件夹下所有表格中相关信息 Dim Cnn As Object, MyCat As Object, rst As Object, sql$, SheetName$, f$, ph$, r&, strConn$ ph = ThisWorkbook.Path & "\": f = Dir(ph & "*.xls?") '注意写法，创建路径 strConn = "Pr...
execl用宏查询mysql_VBA使用SQL语句检索Excel数据
weixin_42181693的博客
02-06 468
把Excel当做数据库，用ActiveX Data Objects打开连接并使用Select语句来查询数据，效率要比Workbook.Open和Range().Value效率高的多。下面来看以个例子：Sub ExeSQL()' 引用Microsoft ActiveX Data Objects 2.5' 引用Microsoft Scripting RuntimeDim conn As New ADO...
使用sql语法跨多个excel文件进行查询工具
skypig555的专栏
01-20 1万+
起因之前公司的业务人员，经常会拿几个excel给我，希望我帮他们做些过滤。而我一般的操作都是，把excel导入到数据库不同的表中。通过sql进行关联查询，并过滤出结果。再导出excel给他们。因为处理的多了，所以想着做成一个工具，节省导入导出数据库的操作。大家可以体验下 http://kpoda.com:8080/ohw使用说明简介通过下述的例子，用户可以了解如何简单使用该工具。数据准备准备两个e
tableau中SQL语句根据sql还是access数据库是有区别的
bluewater的专栏
04-16 4177
1.IIf函数 根据表达式的值，来返回两部分中的其中一个。语法IIf(expr,truepart,falsepart)IIf函数的语法含有下面这些命名参数：部分描述expr必要参数。用来判断真伪的表达式。truepart必要参数。如果expr为True，则返回这部分的值或表达式。falsepart必要参数。如果expr为False，则返回这部分的值或表达式。说明由于IIf会计算truepart和
excel导入oracle guid,【VBA】 通过VBA脚本将EXCEL的数据导入 ORACLE
weixin_31546795的博客
04-07 481
作者：lianghc描述：最近在使用infamatica 将excel 的数据导入oracle时，遇到意外终止错误，无法将数据导入。于是采用VBA将数据导入数据库，是办公人员一键同步excel的数据导数据库中，这种做法的前提是提供标准的模板。下面是解决问题过程中收集的连接数据库的方法，整理一下供大家参考。1、引用法 引用ADO相关组件：打开VBA编辑器，在菜单中点选“工具”--》“引用”。确保“...
jk.zip_SQL-EXECL_execl
09-24
"jk.zip_SQL-EXECL_execl"这个压缩包文件可能包含了关于如何将SQL与Excel相结合来高效地进行数据操作和分析的相关资料。 首先，让我们深入理解SQL的核心功能。SQL主要支持以下四大操作：SELECT（查询）、INSERT...
execl-Export.rar_c# execl_execl
09-14
本文将深入探讨如何使用C#来导出数据到Excel文件，重点是Excel工作簿（.execl）的创建和操作。我们将涵盖以下几个关键知识点： 1. **Excel Interop库**：在.NET框架中，Microsoft.Office.Interop.Excel库是用于与...
EXECL_Export.zip_execl
09-24
标题中的"EXECL_Export.zip_execl"可能是指一个包含EXCEL数据导出功能的压缩文件，其中可能包含一个或多个程序或脚本，用于自动化处理Excel数据。描述提到"无需EXECL插件，自动导出EXECL数据"，这表明该工具或者代码...
Excel_VBA教程.rar_Excel VBA_VBA excel_VBa_excel_excel vba教程
07-14
VBA开发，VBA的语法，VBA和EXcel的编程及应用
execl导入导出工具类_execl_
10-01
这个“execl导入导出工具类”很可能是为了解决这样的需求而创建的。 在Java开发中，有多种库可以处理Excel文件，例如Apache POI、JExcelAPI和OpenCSV等。Apache POI是最常用的一个，它提供了对Microsoft Office文档...
VBA-数据库查询实例
oyq的博客
07-23 9201
1.首先我们得做一个窗体，其布局和运行效果如下 2.我们要理清思路，首先窗体在运行时就应该将部门加载进去，并且将重复的部门剔除掉 Private Sub UserForm_Initialize() Set con = New ADODB.Connection With con .Provider = "microsoft.ace.oledb.12.0" .ConnectionString...
VBA进阶-在VBA中使用SQL语句生成统计报表
你不要担心
09-25 6677
替代COUNTIFS&SUMIFS函数示例代码数据源前提条件友情提示 示例代码 Sub Select_Group1() Dim cnn As New ADODB.Connection '创建Connection对象，该对象代表了Excel与后面指定数据库的连接 Dim rst As ADODB.Recordset '创建Recordset对象，该对象用来保存执行SQL语...
Excel VBA 的基本使用与代码示例
wf824284257的博客
02-19 1万+
前言 本文整理了 Excel 中 VBA 的常用操作代码示例。 使用了 ms office 2016 。 开始 step.1 新建excel文件 新建excel文件，命名为test.xlsx ,如下图所示。 step.2 启用开发工具 文件->选项->自定义功能区，将【开发工具】全打钩后，点击确定。 step.3 VBA调用Excel函数 使用录制宏功能，实现VBA调用Excel...
'DataFrame' object has no attribute 'to_execl'. Did you mean: 'to_excel'?
最新发布
07-27
Yes, you are correct. The correct method name is `to_excel`, not `to_execl`. If you want to save a DataFrame as an Excel file, you should use the `to_excel` method. Here's an example: ```python import pandas as pd # Create a DataFrame df = pd.DataFrame({'Column1': [1, 2, 3], 'Column2': [4, 5, 6]}) # Save the DataFrame as an Excel file df.to_excel('output.xlsx', index=False) ``` This will save the DataFrame as an Excel file named "output.xlsx" in the current directory.
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值