精华内容
下载资源
问答
  • 各位大神,能否帮忙解答一个vba的问题 用下面代码在win7系统下可以运行,在win10系统中就出问题, ...不知道是不是vba中execute方法在win10中不兼容的原因 求大神解答,感激不尽! Sub test() Dim rs As New ADOD...

    各位大神,能否帮忙解答一个vba的问题
    用下面代码在win7系统下可以运行,在win10系统中就出问题,
    运行到倒数第三行 Set rs = adocmd.Execute 就报错,
    提示:方法“execute”作用于对象“_command”时失败
    不知道是不是vba中的execute方法在win10中不兼容的原因
    求大神解答,感激不尽!
    Sub test()

    Dim rs As New ADODB.Recordset
    Set adocmd = CreateObject(“ADODB.Command”)
    Dim prm As New ADODB.Parameter
    'Call DB_CONNECT

    Dim x As New ADODB.Connection
    x.ConnectionString = "Provider=msdasql;Data Source=WEBDC;User ID=xxxggg;Password=xxxggg123"
    x.Open
    
    Set adocmd.ActiveConnection = x
    adocmd.CommandText = "PORT_BASIC_INFO"   '存储过程名
    adocmd.CommandType = adCmdStoredProc  '类型
    
    Set prm = adocmd.CreateParameter("parameter" & i + 1, adBSTR, adParamInput, , "260116")
    adocmd.Parameters.Append prm
    Set prm = adocmd.CreateParameter("parameter" & i + 1, adBSTR, adParamInput, , "2050-12-31")
    adocmd.Parameters.Append prm
    Set prm = adocmd.CreateParameter("parameter" & i + 1, adBSTR, adParamInput, , "组合代码")
    adocmd.Parameters.Append prm
    

    Set rs = adocmd.Execute
    Debug.Print rs.fields.Count
    End Sub

    欢迎使用Markdown编辑器

    你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。

    新的改变

    我们对Markdown编辑器进行了一些功能拓展与语法支持,除了标准的Markdown编辑器功能,我们增加了如下几点新功能,帮助你用它写博客:

    1. 全新的界面设计 ,将会带来全新的写作体验;
    2. 在创作中心设置你喜爱的代码高亮样式,Markdown 将代码片显示选择的高亮样式 进行展示;
    3. 增加了 图片拖拽 功能,你可以将本地的图片直接拖拽到编辑区域直接展示;
    4. 全新的 KaTeX数学公式 语法;
    5. 增加了支持甘特图的mermaid语法1 功能;
    6. 增加了 多屏幕编辑 Markdown文章功能;
    7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能,功能按钮位于编辑区域与预览区域中间;
    8. 增加了 检查列表 功能。

    功能快捷键

    撤销:Ctrl/Command + Z
    重做:Ctrl/Command + Y
    加粗:Ctrl/Command + B
    斜体:Ctrl/Command + I
    标题:Ctrl/Command + Shift + H
    无序列表:Ctrl/Command + Shift + U
    有序列表:Ctrl/Command + Shift + O
    检查列表:Ctrl/Command + Shift + C
    插入代码:Ctrl/Command + Shift + K
    插入链接:Ctrl/Command + Shift + L
    插入图片:Ctrl/Command + Shift + G

    合理的创建标题,有助于目录的生成

    直接输入1次#,并按下space后,将生成1级标题。
    输入2次#,并按下space后,将生成2级标题。
    以此类推,我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

    如何改变文本的样式

    强调文本 强调文本

    加粗文本 加粗文本

    标记文本

    删除文本

    引用文本

    H2O is是液体。

    210 运算结果是 1024.

    插入链接与图片

    链接: link.

    图片: Alt

    带尺寸的图片: Alt

    居中的图片: Alt

    居中并且带尺寸的图片: Alt

    当然,我们为了让用户更加便捷,我们增加了图片拖拽功能。

    如何插入一段漂亮的代码片

    博客设置页面,选择一款你喜欢的代码片高亮样式,下面展示同样高亮的 代码片.

    // An highlighted block
    var foo = 'bar';
    

    生成一个适合你的列表

    • 项目
      • 项目
        • 项目
    1. 项目1
    2. 项目2
    3. 项目3
    • 计划任务
    • 完成任务

    创建一个表格

    一个简单的表格是这么创建的:

    项目 Value
    电脑 $1600
    手机 $12
    导管 $1

    设定内容居中、居左、居右

    使用:---------:居中
    使用:----------居左
    使用----------:居右

    第一列 第二列 第三列
    第一列文本居中 第二列文本居右 第三列文本居左

    SmartyPants

    SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如:

    TYPE ASCII HTML
    Single backticks 'Isn't this fun?' ‘Isn’t this fun?’
    Quotes "Isn't this fun?" “Isn’t this fun?”
    Dashes -- is en-dash, --- is em-dash – is en-dash, — is em-dash

    创建一个自定义列表

    Markdown
    Text-to-HTML conversion tool
    Authors
    John
    Luke

    如何创建一个注脚

    一个具有注脚的文本。2

    注释也是必不可少的

    Markdown将文本转换为 HTML

    KaTeX数学公式

    您可以使用渲染LaTeX数学表达式 KaTeX:

    Gamma公式展示 Γ(n)=(n1)!nN\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N 是通过欧拉积分

    Γ(z)=0tz1etdt . \Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.

    你可以找到更多关于的信息 LaTeX 数学表达式here.

    新的甘特图功能,丰富你的文章

    Mon 06Mon 13Mon 20已完成 进行中 计划一 计划二 现有任务Adding GANTT diagram functionality to mermaid
    • 关于 甘特图 语法,参考 这儿,

    UML 图表

    可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图::

    张三李四王五你好!李四, 最近怎么样?你最近怎么样,王五?我很好,谢谢!我很好,谢谢!李四想了很长时间,文字太长了不适合放在一行.打量着王五...很好... 王五, 你怎么样?张三李四王五

    这将产生一个流程图。:

    链接
    长方形
    圆角长方形
    菱形
    • 关于 Mermaid 语法,参考 这儿,

    FLowchart流程图

    我们依旧会支持flowchart的流程图:

    Created with Raphaël 2.2.0开始我的操作确认?结束yesno
    • 关于 Flowchart流程图 语法,参考 这儿.

    导出与导入

    导出

    如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ,生成一个.md文件或者.html文件进行本地保存。

    导入

    如果你想加载一篇你写过的.md文件或者.html文件,在上方工具栏可以选择导入功能进行对应扩展名的文件导入,
    继续你的创作。


    1. mermaid语法说明 ↩︎

    2. 注脚的解释 ↩︎

    展开全文
  • (点击图片查看优惠详情) 要在 Access 中用 VBA 执行操作查询,在不创建查询对象的前提下,一般主要有3种方法:1. Access本身的方法:DoCmd.RunSQL strSQL2. DAO的方法:CurrentDb.Execute strSQL3. ADO的方法:...

    a790c761a38e272aca11ee3047b62989.png

    (点击图片查看优惠详情)

        要在 Access 中用 VBA 中执行操作查询,在不创建查询对象的前提下,一般主要有3种方法:

    1. Access本身的方法:

    DoCmd.RunSQL strSQL2. DAO的方法:

    CurrentDb.Execute strSQL3. ADO的方法:

    CurrentProject.Connection.Execute strSQL

    DoCmd.RunSQL 方法:

        DoCmd.RunSQL 方法是Access本身的方法,理论上它是首先方式,因为它有进度条,还会有确认消息框,在查询对象中使用的“Forms!窗体名!控件名”这样的变量它也能支持。但是当我们用代码去执行的时候,我们都很确定自己是要干什么的,所以这个时候完全不想让它显示确认消息框。那么就只好在执行前关闭确认消息框了,示例代码如下 :

      DoCmd.SetWarnings False
      DoCmd.RunSQL strSQL
      DoCmd.SetWarnings True

        从上面的示例代码中我们可以看出,每次调用 DoCmd.RunSQL 之前,都要用 DoCmd.SetWarnings False 关闭系统确认消息框,执行完之后再用  DoCmd.SetWarnings True 恢复系统确认消息框。使用的地方多了,就显得非常繁琐。

        这里可能有童鞋会问,让系统确认消息框一直处于关闭状态,不就可以不用每次都关闭再开启这么麻烦了吗?理论上是可以这样干,但是,系统确认消息框不单是执行查询语句的时候用,它是全局性的,一直处于关闭状态,意味着如果你不小心误操作删除了某个表、查询、窗体、报表等,不会有提示,你修改设计发现不对想关闭不保存重新来过,没门儿,关闭时自动保存了,不会有确认提示。所以,我是强烈不建议你一直关闭系统确认消息框的。

    CurrentDb.Execute 方法:

        相比来说 DAO 的 CurrentDb.Execute  不支持“Forms!窗体名!控件名”变量,功能上要比 DoCmd.RunSQL 弱很多,但是架不住它简单省事。没有任何提示消息框,代码也相对简短。于是它变成了很多人使用最多的方法了。

    CurrentProject.Connection.Execute 方法:

        ADO 的 CurentProject.Connection.Execute 方法可能用得人就少了,无它,太长了,不够简短。用上一次两次还好,当你要几百几千次的使用时,不知道要多敲多少次键盘,而这种时候你会觉得多敲一个字符都累人。

        但是该方法有一点另外2种方法无法代替:使用SQL语句创建小数类型(decimal)的字段。只有 ADO 的这个方法能正确执行,用另外两种方式会报错:

    1891501cb1bf0d9d827814f66cde825c.png

    8db28f15123f8b8912334c4e03a9ffbb.png

    49d9268db09dd425c01d1f6a258ceac7.png

        这是因为小数类型在早期的Access版本中是没有的,是后期版本才加入的,而DoCmd.RunSQL 和 CurrentDb.Execute 是Access一开始就有的东西,但这里又没有同样更新增加对小数类型的支持。而ADO则是DAO之后新一代的数据接口,它是出现在小数类型之后的,所以它可以支持小数类型。

        综合上面一些信息,我们可以得到这样一个对比结果:

    bfad470402ee7fb3ae52ef904c49df0a.png

        通过上面的对比可以看出,3种方法各自都有其它方法无法代替的有用特性。于是大家在编写VBA代码时,3种方法夹杂使用,一会儿是 DoCmd.RunSQL strSQL, 一会儿又是 CurrentDb.Execute strSQL,看上去就显得很混乱无序。同时也容易给初学者造成困惑,增加学习难度,搞不清为什么一会儿用这个方法,一会儿用那个方法。
        对于这个问题,本公子思考了很久,面壁九九八十一日,终于悟得了此门混元神功。
        法门就是,创建一个通用的自定义函数,自动根据SQL语句,判断用哪种方法。这样就可以在所有执行SQL语句的地方,使用同一个方法,而不必为需要不停变脸而烦恼。
    函数源码如下:

    '======================

    '函数名称: ClientRunSQL

    '功能描述:

    ‘整合执行SQL语句的3种方法: DoCmd.RunSQL、CurrentDb.Execute

    'CurrentProject.Connection.Execute,让代码统一标准化,使用更简单方便。

    '输入参数: SQLStatement 可以是单个SQL语句字串,也可以是包含多个SQL语句的数组或Collection集合。

    '返回参数: 无

    '作  者: 红尘如烟

    '创建时间: 2018-12-21

    '========================

    Public Function ClientRunSQL _

        ( _

              ByVal SQLStatement As Variant _

        )

        On Error GoTo ErrorHandler

        If varType(SQLStatement) = vbString Then

            SQLStatement = Array(SQLStatement)

        End If

        Dim strExecutor As String

        Dim varItem As Variant

        For Each varItem In SQLStatement

            If varItem Like "*Select *INTO *FROM *" Then

                strExecutor = "DoCmd"

            ElseIf varItem Like "*Forms!*!*" Then

                strExecutor = "DoCmd"

            ElseIf varItem Like "* COLUMN * DECIMAL(*,*)*" Then

                strExecutor = "ADO"

            Else

                strExecutor = "DAO"

            End If

        Next

        If strExecutor = "DoCmd" Then

            DoCmd.SetWarnings False

        End If

        For Each varItem In SQLStatement

            Select Case strExecutor

            Case "DoCmd": ClientRunSQL CStr(varItem)

            Case "DAO":   CurrentDb.Execute CStr(varItem)

            Case "ADO":   CurrentProject.Connection.Execute CStr(varItem)

            End Select

        Next

        If strExecutor = "DoCmd" Then

            DoCmd.SetWarnings True

        End If

    ExitHere:

        Exit Function

    ErrorHandler:

        MsgBox Err.Description, vbCritical, "Error #" & Err

        Resume ExitHere

    End Function

    '示例代码1: 执行单个语句

    Sub Test1()

        ClientRunSQL "Delete FROM 表1"

    End Sub

    '示例代码2: 执行多个语句

    Sub Test2()

        Dim colSQLs As New Collection

        With colSQLs

            .Add "Delete FROM 表1"

            .Add "Delete FROM 表2"

            .Add "Delete FROM 表3"

            .Add "Delete FROM 表4"

        End With

        ClientRunSQL colSQLs

        Set colSQLs = Nothing

    End Sub

        好了,少年,这本如来神掌……不好意思,拿错道具了……这本混元神功已经传授给你了。能不能修成正法,就看你的资质了!

        文末彩蛋:这里函数名为什么是 ClientRunSQL 呢?没错,你猜对了,那是因为另外还有一个 ServerRunSQL!但那又是另一个故事了。

    - End -推荐阅读87bfc62ed5720ab682cbc7a22b6f46d2.png快速开发《财务管理系统》 学课程得软件。学员参加本课程学习,可获得财务管理系统源代码,立即投入到实际工作中。【详情>> 660919b97aa3c09b15d681716d612a06.pngAccess专家课堂 是Access数据库爱好者提升技能的专业课堂,由微软最有价值专家张志创办,课堂有不少的免费课程,可通过电脑或微信学习。【详情>> 58973623db8498d9235c0bd4ad23d824.pngAccess软件作品 十二位Access学员对自已开发的软件进行了介绍并分享开发心得,一起来了解Access开发的软件。【详情>> b57f73f93cde6331fd30e95d3e25697b.png从Excel到Access数据库 为广大Excel用户了解、学习Access数据库开设的一个实用课程,侧重于数据统计分析。【详情>> f3813493986a37c6a521e0fe9cde6d2a.pngAccess每天3分钟 视频课程共50集,Access的基础知识并结合示例详细讲解,每集视频只有短短几分钟,学员可以利用碎片化的时间,每天进步一点点【详情>> c2605228c43ba3788b36ae4628c9ca53.png张志,Access数据库培训讲师,『Access软件网』创始人,服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】 

    展开全文
  • 展开全部用英文分号作隔离,将多条语句合并为一句即可实现“ADO中一个Execute中执行多条语句”下面是VB的ADO示例代码PrivateSubCommand1_Click()DimcnAsNewADODB....DataSource=1...

    展开全部

    用英文分号作隔离,将多条语句合并为一句即可实现“ADO中一个Execute中执行多条语句”

    下面是VB中的ADO示例代码Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim cnStr As String

    Dim strSql As String

    cnStr = "Provider=SQLOLEDB;Data Source=196.168.100.42;" _

    & "Initial Catalog=TestDB;User ID=sa;Password=123456;"

    cn.Open cnStr  '打开连接62616964757a686964616fe78988e69d8331333335343266

    '将下列6个SQL语句合并为一句

    '创建学生表

    '创建教师表

    '学生表插入一条记录

    '教师表插入一条记录

    '删除学生表

    '删除教师表

    strSql = "create table students(Sid char(6),Sname varchar(50));" _

    & "create table teachers(Tid char(6),Tname varchar(50));" _

    & "insert into students values('000001','张三');" _

    & "insert into teachers values('000200','李老师');" _

    & "drop table students;" _

    & "drop table teachers;"

    cn.Execute strSql  '一次执行6条语句

    MsgBox "全部语句一次执行成功"

    cn.Close

    Set cn = Nothing

    End Sub

    '其它编程工具使用ADO原理相同

    展开全文
  • VBA中或者VB中用IGeoProcessor接口中的Execute方法可以调用arcgis中所有Toolbox工具。 GP.Execute的命令名称格式如下:“工具名称(toolbox中的名称)”+下划线+所在工具集的假名。如“MosaicToNewRaster_...

    在VBA中或者VB中用IGeoProcessor接口中的Execute方法可以调用arcgis中所有Toolbox工具。
    GP.Execute的命令名称格式如下:“工具名称(toolbox中的名称)”+下划线+所在工具集的假名。如“MosaicToNewRaster_management”
    下面例子中调用了MosaicToNewRaster工具--镶嵌栅格数据
    Set GP = New GeoProcessor
            Set VA = New VarArray
            GP.OverwriteOutput = True
                outputPath = Left(ListBox.List(i), Len(ListBox.List(i)) - 1)
                tmpNum = InStrRev(outputPath, "\", -1, vbTextCompare)
                mytmpname = Right(outputPath, Len(ListBox.List(i)) - tmpNum - 1)

            VA.Add inputPath
            VA.Add outputPath
            VA.Add tifName
            VA.Add "#"
            VA.Add "8_BIT_UNSIGNED"
            VA.Add "#"
            VA.Add "3"
            VA.Add "LAST"
            VA.Add "FIRST"
           
            GP.Execute "MosaicToNewRaster_management", VA, Nothing

    '===初始化GeoProcessor

    Dim GP As IGeoProcessor
    Set GP = New GeoProcessor

    '===输出时覆盖同名文件
    GP.OverwriteOutput = True

    '//Declare 3 variables for input and output parameters
    Dim inputPath As String
    Dim outputPath As String
    Dim tifName As String

    '//定义参数
    inputPath = "D:\TEST\Input1.TIF;D:\TEST\Input2.TIF"
    outputPath = "D:\TEST"
    tifName = "MOS.tif"

    '//设置变量数组
    Dim VA As IVariantArray

    Set VA = New VarArray
        VA.Add inputPath ’==输入的栅格文件
        VA.Add outputPath ’==镶嵌后输出的栅格文件路径
        VA.Add tifName ’==镶嵌后的文件名
        VA.Add "#" ’==定义坐标系统
        VA.Add "8_BIT_UNSIGNED" ’==输出的位数
        VA.Add "#" ’==单元格大小
        VA.Add "3"’===波段
        VA.Add "LAST"   ’ ===重叠区域处理方法
        VA.Add "FIRST" ’ ===色带处理方法

    '=====执行工具

     GP.Execute "MosaicToNewRaster_management", VA, Nothing


    下面是常用的工具名称及假名

    1. Analysis Tools— analysis
    2. Conversion Tools— conversion
    3. Data Management Tools— management
    4. 3D Analyst Tools— 3d
    5. Cartography Tools— cartography
    6. Geocoding Tools— geocoding
    7. Geostatistical Analyst Tools— ga
    8. Linear Referencing Tools— lr
    9. Multidimension Tools— md
    10. Network Analyst Tools— na
    11. Samples— samples
    12. Spatial Analyst Tools— sa
    13. Spatial Statistics Tools— stats
     

    展开全文
  • 要在 Access 中用 VBA 执行操作查询,在不创建查询对象的前提下,一般主要有3种方法: 1. Access本身的方法:DoCmd.RunSQL strSQL 2. DAO的方法:CurrentDb.Execute strSQL 3. ADO的方法:CurrentProject....
  • VBA中查找并选定文字

    2017-09-14 17:39:00
    如果从 Selection 对象访问 Find 对象,当找到搜索条件时,就会更改所选内容。下列示例选定下一个出现的“Hello”...With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "Hello" .ExecuteEnd WithFind...
  • 采用正则表达式的四则运算:在VBA环境,如何使用正则表达式,将正则表达式应用到四则运算的算是分解。 Dim r1 As RegExp Dim m1 As Match Dim mc1 As MatchCollection Dim str As String Dim sstr As String ...
  • vb6.0/vba中 计算公式字符串转化为可执行的计算公式输出结果 vb6.0中 将计算公式字符串转化为可执行的计算公式输出结果方法如下: Private Sub command1_click() Set My_Script = CreateObject(“scriptcontrol”) ...
  • 在Excel VBA中如何能够使用ADODB对象?

    千次阅读 2013-03-11 11:43:10
    首先要在Excel做一下设置: 在Tools菜单选择References菜单项,勾选其中的“Microsoft ActiveX Data Objects ...ADODB.Connection对象的Execute方法 http://eatpockyboy.blog.163.com/blog/static/1167346402011
  • SeleniumBasic的IWebDriver对象的ExecuteScript方法用于执行JavaScript脚本。语法如下Function ExecuteScript(script As String, [arg0], [arg1], [arg2])后面3个是可选参数。调用ExecuteScript大体分为两种情况:...
  • 如何Debug Access VBA

    2009-04-25 15:44:22
    When I click the "... command in the VBA editor I get a macro list. The code doesn't execute. The "Step Into (F8)" command doesnt work either. What am I doing wrong? >On Mar 30...
  • 大家好,我们今天讲解VBA与数据库解决方案第8讲:从创建一个ADO连接,到打开记录集的过程回顾。我们的数据库讲解到本讲,一些基本的概念,以及需要了解的一些基本知识就讲的差不多了,将逐渐过渡到以实际问题的解决...
  • 怎样用VBA语句判断word句号“.”之前的字符是不是数字? Sub fenju() Dim rng As Range Set rng = ActiveDocument.Content '先找到句号 rng.Find.Execute findtext:="." If rng.Find.Found = ...
  • 在一些其他公司的应用软件也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。  如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用宏来完成。 例一:合并文档。新建一个...
  • Sub 查找文档有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
  • vba ado transation

    2016-07-07 06:26:01
    vba关于事务的问题 想要做简单的数据插入的操作 把excel的数据登陆到db 知道下面2种更新数据的方法 方法1: on error goto ErrHandle conn.begintrans '开始事务 conn.execute "insert into ....
  • Sub get_name() Dim reg As Object Dim mc As MatchCollection Dim m As Match Set reg = CreateObject("vbscript.regexp") ActivePath = ActiveWorkbook.Name ... Set mc = reg.Execute(s) Range("a1") = A
  • 【例1】使用Connection的Execute的方法 数据库格式:   Sub test()  Dim conString$, sqlString$  Dim cnn, rst    Set cnn = CreateObject("ADODB.Connection")  Set rst = CreateObject...
  • 【例1】使用Connection对象的Execute方法删除数据 数据库格式: Sub test()  Dim conString$, sqlString$  Dim cnn, rst  Set cnn = CreateObject("ADODB.Connection")  Set rst = ...
  • <p>ACCESS导入EXCEL表数据,没有的数据增加,已有的进行更新,用VBA怎么实现?已有追加记录求代码,求更新原有记录代码  SQL = "insert into [项目明细]([项目批准文号],...
  • 大家好,今日继续讲解VBA与数据库解决方案的第10讲内容,打开一个指定的数据库记录集,把所得的数据显示到工作表的方法。今日的内容是和第8讲,第9讲内容是相连续,在第9讲讲了打开记录集的用的方法是rsADO.Open...
  • VB ExeCuteLine

    千次阅读 2007-07-11 14:44:00
    这段代码是我无意在网上发现的,虽然代码很短,但其所实现的功能却是很强大的.有了这个函数的帮助可以使我们程序的灵活性大大的提升,但编码难度会有一定提高,所以请慎用.Private Declare Function EbExecuteLine...
  • 8、VBA使用正则表达式拆分内容

    千次阅读 2018-12-10 15:05:01
    使用regexp对象那个已经设置好的表达式(pattern属性)在字符窜s查找符合t条件的文本 03 替换 regexp.replace(s,r)并未修改原文本是,而是将替换后的节骨作为一个新的字符窜 cells(i,2)=...
  • EXCEL(VBA)~SQL 经典写法范本汇集(一) 2007-12-10 21:20 编前话:为了更系统的学习sql语句,小爪首次系统的汇集sql 需引用 microsoft activeX Data Objects 2.8 library 1.sql = "select 构件名称,构件代号,横长度,...
  • 想实现题号的标注,就像这样的方式,通过搜索每一行的开头,如果满足“数字+.”的形式,就把它标红 。 ``` ...到第十题就会出现问题,她会把表格的数字和标点 查找到。 不知道问题出在哪里了?
  • 大家好,今日继续讲解VBA与数据库解决方案的第10讲内容,打开一个指定的数据库记录集,把所得的数据显示到工作表的方法。今日的内容是和第8讲,第9讲内容是相连续,在第9讲讲了打开记录集的用的方法是rsADO.Open...
  • 大家好,今日继续讲解VBA与数据库解决方案的第10讲内容,打开一个指定的数据库记录集,把所得的数据显示到工作表的方法。今日的内容是和第8讲,第9讲内容是相连续,在第9讲讲了打开记录集的用的方法是rsADO.Open...

空空如也

空空如也

1 2 3
收藏数 47
精华内容 18
关键字:

vba中execute