精华内容
下载资源
问答
  • 各位大神,能否帮忙解答一个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实体。例如:

    TYPEASCIIHTML
    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 ) = ( n − 1 ) ! ∀ n ∈ N \Gamma(n) = (n-1)!\quad\forall n\in\mathbb N Γ(n)=(n1)!nN 是通过欧拉积分

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

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

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

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

    UML 图表

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

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

    这将产生一个流程图。:

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

    FLowchart流程图

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

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

    导出与导入

    导出

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

    导入

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


    1. mermaid语法说明 ↩︎

    2. 注脚的解释 ↩︎

    展开全文
  • Excel application scope标明作业Excel,里面加入invoke VBA,属性里填上路径和方法名,done! Sub Macro1() ' ' Macro1 Macro ' ' On Error Resume Next Application.DisplayAlerts = False For i = 2 To Range("A...

    RPA项目会根据实际情况半自动或全自动的运行某些process,有时几分钟即可完成,有时需要跑一整天。

    作为开发、用户、运维人员不可能盯着RPA运行或者每次都看活动日志(假设大家都很懒,其实实际情况比假设的更懒),RPA需要在运行完当次process后生成report(或者kibana)。复杂的会记录处理了哪些单据,成功率。简单的报告甚至是一封email,告知用户我跑完了,休息去了。

    当前项目遇到用户需要看从数据库导出的当次运行情况表,表格是这样的

    idid2status
    1001000done
    1001001error
    1001002done
    1011003done
    1021004done
    1021005done

    用户想看到的是这样的

    idid2status
    1001000done
    1001error
    1002done
    1011003done
    1021004done
    1005done

    Uipath是不能直接操作Excel界面的,有什么办法呢?

    可以借助其他语言,macro,powershell...

    这里我们选了macro,uipath怎么调用macro呢?invoke code!但invoke code不能像在alt+f11窗口里那样省略定义各种变量的语句。所以invoke code就pass了。

    好在还有别的,我们发现了invoke VBA,把macro写在bas或txt里(更推荐bas)。Excel application scope标明作业Excel,里面加入invoke VBA,属性里填上路径和方法名,done!

    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
    On Error Resume Next
    Application.DisplayAlerts = False
    
    For i = 2 To Range("A65535").End(xlUp).Row //只看A列
    If Range("A" & i) <> Range("A" & (i - 1)) Then
         
         
         If i <> 2 Then
                Range("A" & rangeIndex & ":A" & (i - 1)).Select
                With Selection
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlBottom
                    .WrapText = False
                    .Orientation = 0
                    .AddIndent = False
                    .IndentLevel = 0
                    .ShrinkToFit = False
                    .ReadingOrder = xlContext
                    .MergeCells = False
                End With
                Selection.Merge
         End If
         rangeIndex = i
    End If
    
    Next
    
        Range("A" & rangeIndex & ":A" & Range("A65535").End(xlUp).Row).Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
        Application.DisplayAlerts = True
    ActiveWorkbook.RemovePersonalInformation = False //关闭Excel自动提示内容还是格式有变的弹框
    End Sub
    

    --------------------

    Execute Macro

    需要放在Excel Application Scope里,Macro代码写在Visual Basic for Application里面。

    ------------------------------

    invoke VBScript

     

    展开全文
  • VBA中使用正则表达式受限需要引用Microsoft VBScript Regular Expressions 5.5类库。在VBA界面,“工具”--&gt;“引用”, 定义正则表达式,如下例: Dim reg As New regexp With reg .Global = True  ...

    在VBA中使用正则表达式受限需要引用Microsoft VBScript Regular Expressions 5.5类库。在VBA界面,“工具”-->“引用”,

    定义正则表达式,如下例:

    Dim reg As New regexp

    With reg

    .Global = True  

    .IgnoreCase = True

    .MultiLine = False

    .Pattern = "[^\u4E00-\u9FA50-9A-Za-z]+" ‘匹配所有非汉字、非数字0-9、非字母

    End With

    Content = reg.Replace(Content, ",")           ‘将匹配的内容用英文状态逗号替换

    • 正则表达式的四个属性说明:
    1. Global:设置为true表示查找引擎返回找到的所有符合要求的子字符串,设置为false表示只返回找到的第一个符合要求的子字符串。 
    2. IgnoreCase:设置为true表示查找时忽略大小写,设置为FALSE表示查找时区分大小写。
    3. Pattern:存放正则表达式
    4. MultiLine:如果为false,则通配符可以匹配换行符。

     

    • 正则表达式有3个方法:
    1. Execute方法:语法object. Execute(sourcestring as string) as string, object为你定义的正则表达式对象(如:regEX),参数sourcestring为要对其进行查找的字符串(如例中的"这有一本关于VBA的书,它在第二个书柜里")。Execute方法查找并返回符合要求的字符串的集合,相当于使用“查找”功能。  Test方法:语法object. Execute(sourcestring as string) as string,其结构和用法和Execute方法一样,它和Execute方法唯一不同的是Test方法只进行测试查找,而不会返回符合要求的子字符串集合。一般用它判断是否可以找到符合要求的字符串。 Replace方法:语法object.
    2. Replace(sourcestring as string,Replace) as string, object为你定义的正则表达式对象,参数sourcestring为要对其进行查找的字符串, 参数Replacevar为要替换成的内容(如例中的"book")。
    3. Replace方法查找并返回符合要求的字符串的集合,然后对集合里的字符串进行替换。相当于先使用“查找”功能然后再使用“替换”功能。

     

    • MatchCollection对象与Match对象

    匹配到的所有对象放在MatchCollection集合中,这个集合对象只有两个只读属性:

    Count:匹配到的对象的数目

    Item:集合的又一通用方法,需要传入Index值获取指定的元素。

     

    一般,可以使用For Each语句枚举集合中的对象。集合中对象的类型是Match。

    Match对象有以下几个只读的属性:

    FirstIndex - 匹配字符串在整个字符串中的位置,值从0开始。

    Length - 匹配字符串的长度。

    Value - 匹配的字符串。

    SubMatches - 集合,匹配字符串中每个分组的值。作为集合类型,有Count和Item两个属性。

     

    • 常用正则表达式
    1. 匹配中文字符的正则表达式: [\u4e00-\u9fa5]
    2. 匹配双字节字符(包括汉字在内):[^\x00-\xff]
    3. 匹配空白行的正则表达式:\n\s*\r
    4. 匹配HTML标记的正则表达式:<(\S*?)[^>]*>.*?</\1>|<.*? />
    5. 匹配首尾空白字符的正则表达式:^\s*|\s*$
    6. 匹配Email地址的正则表达式:\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
    7. 匹配网址URL的正则表达式:[a-zA-z]+://[^\s]*
    8. 匹配帐号是否合法(字母开头,允许5-16字节,允许字母数字下划线):^[a-zA-Z][a-zA-Z0-9_]{4,15}$
    9. 匹配国内电话号码:\d{3}-\d{8}|\d{4}-\d{7}
    10. 匹配腾讯QQ号:[1-9][0-9]{4,}
    11. 匹配中国邮政编码:[1-9]\d{5}(?!\d)
    12. 匹配身份证:\d{15}|\d{18}     评注:中国的身份证为15位或18位
    13. 匹配ip地址:\d+\.\d+\.\d+\.\d+
    14. 匹配特定数字:

    ^[1-9]\d*$   //匹配正整数

    ^-[1-9]\d*$   //匹配负整数

    ^-?[1-9]\d*$   //匹配整数

    ^[1-9]\d*|0$  //匹配非负整数(正整数 + 0)

    ^-[1-9]\d*|0$   //匹配非正整数(负整数 + 0)

    ^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$   //匹配正浮点数

    ^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$  //匹配负浮点数

    ^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$  //匹配浮点数

    ^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$   //匹配非负浮点数(正浮点数 + 0)

    ^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$  //匹配非正浮点数(负浮点数 + 0)

    评注:处理大量数据时有用,具体应用时注意修正

    14)匹配特定字符串:

    ^[A-Za-z]+$  //匹配由26个英文字母组成的字符串

    ^[A-Z]+$  //匹配由26个英文字母的大写组成的字符串

    ^[a-z]+$  //匹配由26个英文字母的小写组成的字符串

    ^[A-Za-z0-9]+$  //匹配由数字和26个英文字母组成的字符串

    ^\w+$  //匹配由数字、26个英文字母或者下划线组成的字符串

     

    【例1】匹配一次

    Worksheets("sheet1").Activate

        Content = "张三;李四!王武佳、高寒;陈庆,郑强叁”晓红。赵楼.金三峰"

        Dim reg

        Set reg = CreateObject("VBSCRIPT.REGEXP")

        Dim mc As Match

        reg.Pattern = "[\u4E00-\u9FA50-9A-Za-z]+"

        Dim row As Integer

        row = 1

        If reg.test(Content) Then

            Debug.Print reg.Execute(Content)(0).Value   '输出张三

    End If

     

    【例2】匹配所有满足条件的内容

    Sub test()

        Worksheets("sheet1").Activate

        Content = "张三;李四!王武佳、高寒;陈庆,郑强叁”晓红。赵楼.金三峰"

        Dim reg As New RegExp

        Dim mc As MatchCollection

        With reg

            .Global = True

            .IgnoreCase = True

            .MultiLine = False

            .Pattern = "[\u4E00-\u9FA50-9A-Za-z]+"

        End With

        Dim row As Integer

        row = 1

        If reg.test(Content) Then

            Set mc = reg.Execute(Content)

           For Each mt In mc

                Cells(row, "J").Value = mt.Value

                row = row + 1

           Next

           

        End If

    End Sub

    结果为:

     

    【例三】匹配优先 及非匹配优先

    Sub test()

       Rem 匹配优先(贪婪模式)

       Dim str As String

       str = "abcesfa"

       Set reg = CreateObject("vbscript.regexp")

       Dim mat As Match

       reg.Pattern = "\w+"

       result = reg.Execute(str)(0).value   '结果为abcesfa

       Debug.Print result

      

       Rem 忽略匹配优先(非贪婪模式)

       reg.Pattern = "\w+?"

       result = reg.Execute(str)(0).value   '结果为a

       Debug.Print result

    End Sub

     

    【例四】后向引用:找出所有年份相同的

    Sub test()

       Dim str As String

       str = "张三20120212到20120922;李斯20110101到2020150909;王武2009到2009;金荣2008到2009"

       Set reg = CreateObject("vbscript.regexp")

       Dim mat As Match

       reg.Pattern = "(\d{4})[^;]+\1+([^;]*)"   //\1表示第一个括号匹配的内容

       reg.Global = True

       For Each mat In reg.Execute(str)

        Debug.Print mat.value

       Next

    End Sub

     

    输出结果:

    20120212到20120922

    2009到2009

    【例五】正向环视:找出下面字符串中的所有金额,金额后面有单位“元”或“块”

    Sub test()

       Dim str As String

       str = "张三买了2把扫帚花了22.89元;李斯买了12个水杯花费98.00块钱"

       Set reg = CreateObject("vbscript.regexp")

       Dim mat As Match

       reg.Pattern = "([\d|.]+)(?=[元|块])"

       reg.Global = True

       For Each mat In reg.Execute(str)

           Debug.Print mat.value

       Next

    End Sub

    结果为:

    22.89

    98.00

    【例六】正向否定环视:找出下面字符串中所有的字母组成的字符串

    Sub test()

       Dim str As String

       str = "asdf张三vdajo?asdv李斯n213749fbi王武:"

       Set reg = CreateObject("vbscript.regexp")

       Dim mat As Match

       reg.Pattern = "\w+(?![a-z])"

       reg.Global = True

       For Each mat In reg.Execute(str)

           Debug.Print mat.value

       Next

    End Sub

    结果为:

    asdf

    vdajo

    asdv

    n213749fbi

    【例七】分组的应用

    Sub test()

       Dim str As String

       str = "财务部23人;后勤部32人;外交部20人"

       Set reg = CreateObject("vbscript.regexp")

       Dim mat As MatchCollection

       reg.Pattern = "([\u4e00-\u9fa5]{3,})(\d+人)"

       reg.Global = True

       Set mat = reg.Execute(str)

      For i = 0 To mat.Count - 1

         Debug.Print mat(i).SubMatches(0) & ":" & mat(i).SubMatches(1)

      Next

    End Sub

    结果为:

    财务部:23人

    后勤部:32人

    外交部:20人

    展开全文
  • 如何在VBA中使用正则表达式

    千次阅读 2019-05-26 11:56:56
    VBA中的正则表达式应用  在VBA中使用正则表达式,可以通过下列途径实现: 创建正则表达式对象: 前期绑定: 在VBA代码编辑器的"Tools"菜单,选中"References…",然后引用Microsoft VBScript Regular ...

    VBA中的正则表达式应用
      在VBA中使用正则表达式,可以通过下列途径实现:
    创建正则表达式对象:
    前期绑定: 在VBA代码编辑器中的"Tools"菜单中,选中"References…",然后引用Microsoft VBScript Regular Expressions 5.5类库,如下图1,这种方式的优点是可以有编辑器的Intellisense支持。然后直接定义对象,一句就可以搞定:

    Dim reg As New RegExp
    

    图1 前期绑定
    图1 前期绑定是需要进行的设置

    后期绑定: 使用CreateObject方法定义对象:CreateObject(“VBSCRIPT.REGEXP”)。
    如下面的语句:

    Dim regEx As Object '定义正则表达式对象
    Set regEx = CreateObject("vbscript.regexp")
    

    RegExp对象的属性:
    Global - 设置或返回一个 Boolean 值,该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。如果搜索应用于整个字符串,Global 属性的值应该为 True,否则其值为 False。默认的设置为True。
    Multiline - 返回正则表达式是否具有标志m, 缺省值为False。如果指定的搜索字符串分布在多行,这个属性是要设置为True的。
    IgnoreCase - 设置或返回一个Boolean值,指明模式搜索是否区分大小写。如果搜索是区分大小写的,则 IgnoreCase 属性应该为False;否则应该设为True。缺省值为True。
    Pattern - 设置或返回被搜索的正则表达式模式。 被搜索的正则字符串表达式。它包含各种正则表达式字符。

    RegExp对象的方法:
    Execute - 对指定的字符串执行正则表达式搜索。需要传入要在其上执行正则表达式的文本字符串。正则表达式搜索的设计模式是通过 RegExp对象的Pattern来设置的。Execute方法返回一个Matches集合,其中包含了在string中找到的每一个匹配的Match对 象。如果未找到匹配,Execute将返回空的Matches集合。
    Replace - 替换在正则表达式查找中找到的文本。
    Test - 对指定的字符串执行一个正则表达式搜索,并返回一个 Boolean 值指示是否找到匹配的模式。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式,Test方法返回True;否则返回False。

    MatchCollection对象与Match对象
    匹配到的所有对象放在MatchCollection集合中,这个集合对象只有两个只读属性:
    Count:匹配到的对象的数目
    Item:集合的又一通用方法,需要传入Index值获取指定的元素。

    一般,可以使用For Each语句枚举集合中的对象。集合中对象的类型是Match。
    Match对象有以下几个只读的属性
    FirstIndex - 匹配字符串在整个字符串中的位置,值从0开始。
    Length - 匹配字符串的长度。
    Value - 匹配的字符串。
    SubMatches - 集合,匹配字符串中每个分组的值。作为集合类型,有Count和Item两个属性。

    例如下面的的代码:

     Set Matches = regEx.Execute(strng) ' 执行搜索。
     For Each Match In Matches ' 遍历匹配集合。
        RetStr = RetStr & "Match found at position "
        RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
        RetStr = RetStr & Match.Value & "'." & vbCrLf
        
    Next
    

    参考:https://blog.csdn.net/cactusz/article/details/74562079

    展开全文
  • VBA正则表达式深度解析

    千次阅读 2020-06-26 18:07:14
    先上代码: Function GetStr(ByVal rng As String, str As String, Optional i As Long, Optional s As Boolean) ... '第四个参数s 为文本[True]或数字[False],用于剔除数字的文本内容,默认...
  • VBA之正则表达式(1)-- 基础篇

    万次阅读 多人点赞 2019-03-03 15:06:26
    VBA中并没有直接提供正文表达式对象,需要借助VBScript的正则对象。如果使用前期绑定,那么就需要在VBE引用如下扩展库。 使用如下代码可以利用后期绑定的方式创建正则对象。 Set objRegEx = CreateObject(&amp...
  • 一、问题描述 通过SQL查询EXCEL数据是,执行到Execute后,会报错,弹出错误框二、涉及代码Set conn = CreateObject("adodb.connection") conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended ...
  • Rows As Integer Columns = VBAProject.func_public.GetTotalColumns(SheetName) Rows = VBAProject.func_public.GetTotalRows(SheetName) Set Records = CreateObject(“ADODB.recordset”) "取得结果集并...
  • 日韩地晶上 " With reg .Pattern = "(人民币大写:)(\d+\.[0-9]{1,3})" '正则表达式 .Global = False '非全局匹配,匹配到一个后就结束 .IgnoreCase = False '不忽略大小写 Set mh = .Execute(my_str) '执行匹配 End...
  • 日韩地晶上 " With reg .Pattern = "(人民币大写:)(\d+\.[0-9]{1,3})" '正则表达式 .Global = True '匹配出所有符合条件的字符 .IgnoreCase = False '不忽略大小写 .MultiLine = True '多行模式 Set mh = .Execute...
  • 需求:批量替换word的某个词,例如如果有一百张word,需要批量替换每一张表的相同日期。 代码: Option Explicit Sub 宏1() Dim mypath, myfile mypath = ThisDocument.Path & "\" myfile = Dir(mypath ...
  • vba中的正则表达式

    千次阅读 2014-06-05 08:46:25
    sheet1需要改变的单元格具有“XXXXXX(38popu\d\d)”的特征,其中“\d\d”就是sheet2所对应的行数(后来才发现,应该是 \d\d + 2 = sheet2的行数)。 代码如下 Sub app() Rem my first vba!!! Dim ...
  • 8、VBA使用正则表达式拆分内容

    千次阅读 2018-12-10 15:05:01
    使用regexp对象那个已经设置好的表达式(pattern属性)在字符窜s查找符合t条件的文本 03 替换 regexp.replace(s,r)并未修改原文本是,而是将替换后的节骨作为一个新的字符窜 cells(i,2)=...
  • 在使用Exce模块l完成运行存储过程的操作,发现不管怎么使用rs.open都会报错3704,”对象关闭时,不允许操作“。 代码如下: Sub linkSQL() '定义数据链接对象 ,保存连接数据库信息 Dim CN As Object '定义记录...
  • execute 等返回值

    千次阅读 2018-12-22 19:46:39
    1、boolean execute(String sql); 可执行任何SQL语句,返回一个布尔值,表示是否返回ResultSet 。  2、ResultSet executeQuery(String sql); 执行SQL查询,并返回ResultSet 对象。  3、int executeUpdate...
  • connection对象的execute方法
  • 采用正则表达式的四则运算:在VBA环境,如何使用正则表达式,将正则表达式应用到四则运算的算是分解。 Dim r1 As RegExp Dim m1 As Match Dim mc1 As MatchCollection Dim str As String Dim sstr As String ...
  • vba 时间换算 服务及其功能 (Services and their features) Exchange rates can be obtained from many sources, some free, some paid. 汇率可以从许多来源获得,有的是免费的,有的是付费的。 Hardly two of ...
  • 一个doc文档有大量的特殊样式文本,使用相同的样式黑体,三号(16),红色(RGB:255 0 0),现在需要将这些特殊样式的文本都是使用#符号包围起来,如下图所示: VBA代码实现 Sub batchEdit() ' ' 批量根据样式修改文本内容 ...
  • VBA中查找并选定文字

    千次阅读 2017-09-14 17:39:00
    如果从 Selection 对象访问 Find 对象,当找到搜索条件时,就会更改所选内容。下列示例选定下一个出现的“Hello”...With Selection.Find .Forward = True .Wrap = wdFindStop .Text = "Hello" .ExecuteEnd WithFind...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • ADODB.Connection对象的Execute方法

    千次阅读 2013-08-03 20:50:20
    该方法用于执行SQL语句。根据SQL语句执行后是否返回记录集,...Execute方法调用后,会自动创建记录集对象,并将查询结果存储在该记录对象,通过Set方法,将记录集赋给指定的对象保存,以后对象变量就代表了该记录集对
  • Set rst = cnn.Execute(SQL) '执行SQL语句 Worksheets(2).Select Cells.ClearContents ‘在Excel放置数据 For i = 0 To rst.Fields.Count - 1 Cells(1, i + 1) = rst(i).Name Next Range("a2")....
  • word Find->Execute 0x800706F7

    千次阅读 2013-10-12 20:34:14
    环境:xp sp3,vs2003,word2007 ...问题:有的电脑在执行vba里面替换的时候会报错 VARIANT_BOOL bExec = pSel->Find->Execute(  &FindText, &MatchCase, &MatchWholeWord, &MatchWildcards, &MatchSoundsLike,
  • 在一些其他公司的应用软件也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。  如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用宏来完成。 例一:合并文档。新建一个...
  • VBA进阶-在VBA中使用SQL语句筛选日期

    千次阅读 2018-09-26 00:12:04
    Set rst = cnn.Execute(SQL) Worksheets(2).Select Cells.ClearContents For i = 0 To rst.Fields.Count - 1 Cells(1, i + 1) = rst.Fields(i).Name Next Range("A2").CopyFromRecordset rst rst.Close cnn...
  • Sub 查找文档有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找到字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
  • Word VBA 实现办公自动化排版教程。
  • VBA查询word的字符串

    千次阅读 2019-06-20 22:53:29
    Execute ( FindText : = Text ) = True tim = tim + 1 Loop End With '输出到字符串 result = result + Text + "," + str ( tim ) + ";" tim = 0 Next i '将结果写入到文本文件 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,687
精华内容 1,074
关键字:

vba中execute