精华内容
下载资源
问答
  • VBA createobject常用对象

    千次阅读 2015-07-22 21:38:17
    creatobject("adodb.recordset") 数据库记录操作  creatobject("scripting.filesystemobject") 文件操作  creatobject("wscript.shell") SHELL creatobject("wscript....createobject("microsoft.xmlhttp") X

    creatobject("adodb.recordset") 数据库记录操作 

    creatobject("scripting.filesystemobject") 文件操作 

    creatobject("wscript.shell") SHELL creatobject("wscript.network") 网络操作 

    createobject("microsoft.xmlhttp") XMLHTTP ,远程获取文件用的 

    createobject ("msxml2.xmlhttp.4.0") 同上 

    createobject("adodb.stream") 数据流传输 

    createobject("adodb.connection") 数据库连接 

    createobject ("word. application ") WORD 

    createobject ("excel. application ") EXCEL 

    createobject ("mswc.adrotator") 广告 

     createobject("scripting.dictionary") HASH表操作 

    createobject("powerpoint.application") 

    createobject("Microsoft.XMLDOM") XML操作 

    createobject("WScript.Shell") 

    createobject("wscript.network") 

    createobject("MSWC.adRotator") 

    createobject("excel.sheet") 

    createobject("frontpage.application") 

    createobject("access.application") 

    createobject("msgraph.application") 

    createobject("photoshop.application") 


     //关于SQL Server的 

    CreateObject("SQLDMO.SQLServer") 

    CreateObject("SQLDMO.Login") 

    CreateObject("SQLDMO.Backup") 

    CreateObject("SQLDMO.User") 

    CreateObject("SQLDMO.BackupDevice") 

    CreateObject("SQLDMO.Database") 

    CreateObject("SQLDMO.Restore")

    展开全文
  • VBACreateobject函数可以创建并返回一个对ActiveX对象的引用 要创建 ActiveX 对象,只需将 CreateObject 返回的对象赋给一个变量 '声明一个对象变量来存放该对象的引用。Dim 变量 as Object采用后期绑定方式 ...

    在VBA中 Createobject函数可以创建并返回一个对ActiveX对象的引用
    要创建 ActiveX 对象,只需将 CreateObject 返回的对象赋给一个变量
    '声明一个对象变量来存放该对象的引用。Dim 变量 as Object采用后期绑定方式
    例如:

    Dim ExcelSheet As ObjectSet 
    ExcelSheet = CreateObject("Excel.Sheet")

    还可以创建如下对象:
    creatobject("adodb.recordset") 数据库记录操作 

    creatobject("scripting.filesystemobject") 文件操作 

    creatobject("wscript.shell") SHELL creatobject("wscript.network") 网络操作 

    createobject("microsoft.xmlhttp") XMLHTTP ,远程获取文件用的 

    createobject ("msxml2.xmlhttp.4.0") 同上 

    createobject("adodb.stream") 数据流传输 

    createobject("adodb.connection") 数据库连接 

    createobject ("word. application ") WORD 

    createobject ("excel. application ") EXCEL 

    createobject ("mswc.adrotator") 广告 

    createobject("scripting.dictionary") HASH表操作 

    createobject("powerpoint.application") 

    createobject("Microsoft.XMLDOM") XML操作 

    createobject("WScript.Shell") 

    createobject("wscript.network") 

    createobject("MSWC.adRotator") 

    createobject("excel.sheet") 

    createobject("frontpage.application") 

    createobject("access.application") 

    createobject("msgraph.application") 

    createobject("photoshop.application") 

    //关于SQL Server的 

    CreateObject("SQLDMO.SQLServer") 

    CreateObject("SQLDMO.Login") 

    CreateObject("SQLDMO.Backup") 

    CreateObject("SQLDMO.User") 

    CreateObject("SQLDMO.BackupDevice") 

    CreateObject("SQLDMO.Database") 

    CreateObject("SQLDMO.Restore")

    展开全文
  • VBA CreateObject 各种类型文件(transfer)

    千次阅读 2019-02-27 21:15:10
    正则表达式处理 ...Set regex = CreateObject("VBScript.RegExp") endrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 'Change pattern for different requirement Application.Enable...
    1. 正则表达式处理
    2. 文件处理

    1.正则表达式处理

    Set regex = CreateObject("VBScript.RegExp")
    endrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row 'Change pattern for different requirement
    Application.EnableEvents = False
    
    
    With regex
      .Pattern = "(SC2)-[A-Z0-9]{5}-[A-Z]{4}-\d{6}$" 'Change pattern for different requirement
      .Global = True
    End With
    
    
    For i = 2 To endrow
    
    Set matches = regex.Execute(ActiveSheet.Range("A" & i).Value)
    Set Target = Range("A1", Range("A" & Rows.Count).End(xlUp))
    Dup = WorksheetFunction.CountIf(Target, ActiveSheet.Range("A" & i).Value)
    Dept = Mid(ActiveSheet.Range("A" & i).Value, 11, 4)
    BusApp = Mid(ActiveSheet.Range("A" & i).Value, 5, 5)
    BusAppChk = Mid(ActiveSheet.Range("P" & i).Value, 1, 5)
    BRSChk = Mid(ActiveSheet.Range("A" & i).Value, 5, 3)
    
        If matches.Count = 0 Then
                ActiveSheet.Range("A" & i).Interior.ColorIndex = 3

    2.文件处理

    VBA FileSystemObject (FSO) in Excel – Methods and Properties

    https://analystcave.com/vba-filesystemobject-fso-in-excel/

    VBS基础篇 - 对象(3) - FileSystemObject对象

    https://www.cnblogs.com/sirrah/articles/2349034.html

    VBA中的FileSystemObject对象(FSO)和文本流

    https://www.cnblogs.com/zzstone/p/5530707.html

    FileSystemObject对象

    Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFileSystemObject.GetFolder(xFolderName)
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Checklist")
    
    If Len(xFolder.Path) > 0 Then
        Filename = Dir(xFolder.Path & "\" & Filename, 0)
        Debug.Print xFolder.Name
        
        'Get Most Recent File
            Do While Filename <> ""
                Debug.Print "Read:" & Filename
                    If FileDateTime(xFolder.Path & "\" & Filename) > MostRecentDate Then
                        MostRecentFile = Filename
                        MostRecentDate = FileDateTime(xFolder.Path & "\" & Filename)
                    End If
                        Filename = Dir
            Loop
      
        Debug.Print "Selected:" & MostRecentFile
        
        SelectedFile = MostRecentFile
        On Error GoTo ErrHandler

     

    展开全文
  • access vbaCREATEOBJECT 和getobject的区别

    千次阅读 2017-11-27 10:16:16
    我前几天不是搞了个按钮要将报表输出到excel中么, 其中有行代码是需要打开excel这个程序的, ...后来我将代码改成------Set xlApp = CreateObject("Excel.Application")------居然就运行成功了, 这让

    我前几天不是搞了个按钮要将报表输出到excel中么,

    其中有行代码是需要打开excel这个程序的,

    但是总是遇到问题,

    运行到这里(Set xlApp = GetObject(, "Excel.Application") )就不行了,

    后来我将代码改成------Set xlApp = CreateObject("Excel.Application")------居然就运行成功了,

    这让我很奇怪,到底这个GetObject和这个CreateObject到底有什么区别,

    于是我在百度上查------CREATEOBJECT 和getobject的区别

    查到如下代码:

    分别打开和关闭Word后运行下面代码你就知道它们的区别是什么了:
    Sub Macro1()
        Dim MyWord As Object
        On Error Resume Next
        Set MyWord = GetObject(, "word.application")
        If Not MyWord Is Nothing Then
    '        MyWord.Visible = True
            MsgBox "word已经打开"
        Else
            If MsgBox("word没有打开,是否开启?", vbYesNo) = vbYes Then
                Set MyWord = CreateObject("Word.Application")
                MyWord.Visible = True
            End If
        End If
    End Sub

    我的理解是,如果程序打开了,那么直接可以引用程序GetObject,

    如果excel程序没有打开的话,就直接打开,这个时候需要用CreateObject函数.

    展开全文
  • 一切成功后,最后开始在VBA中测试,打开EXCEL: Public lngStatus As Object Sub test() On Error GoTo an_error If lngStatus Is Nothing Then lngStatus = CreateObject("Ranjeet.SimpleCLRHost....
  • VBA

    2019-07-03 10:50:42
    VBA通用vba字典Access Vba连接...Set dict = CreateObject("Scripting.Dictionary") dict.add "a", "你好" Access Vba 连接数据库 连接当前数据库 Set conn = CurrentDb 执行sql 执行select查询 Set rst = conn.Op...
  • VBA改写VBA代码

    2017-04-24 20:28:59
    Sub df() Dim pa As Paragraph, re As Object ActiveDocument.Range.Find.Execute "_^13", , , 2, , , , 0, 0, "", 2 '第一个2决定是否通配,第二个决定是否... Set re = CreateObject("vbscript.regexp") re.Global =
  • VBA说话

    2015-11-05 17:32:13
    VBA实现excel说话代码: CreateObject("SAPI.SpVoice").Speak Range("单元格").Value
  • VBA访问网页获取数据

    万次阅读 2015-11-02 22:08:16
    本文主要介绍VBA访问网页获取数据。 实现效果:将网页中表的数据输出到excel中。 ↓ VBA代码: Sub getResource() Columns("A:E").ClearContents Set HTML = CreateObject("htmlfile") With ...
  • VBA字典

    2018-12-29 18:21:00
    '字典并不存在于VBA中,需要调用 '调用方式1(前期绑定): '工具 --引用 - -浏览 - -找到scrrun.dll - 确定 '调用方式2 (后期绑定): ' Set d = CreateObject("scripting.dictionary") '编写代码时,建议使用前期...
  • vba连接ACESS:SetConn=Server.CreateObject("ADODB.Connection")Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&S...文章技术小大人2017-11-22770浏览量VBA将Excel数据导入...
  • 编写VBA代码,字符‘ 后为注释语句:Private Sub name() ’代码开始语句,name可变更Set conn = CreateObject("adodb.connection") ’无需变更conn.Open "Driver=SQL Server;SERVER=localhost;Database=dbname;uid=...
  • VBA 字典

    2019-05-11 12:14:07
    dim dic as object set dic = createobject("scripting.dictionary")
  • 大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA中字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。...Dim myd As ObjectSet myd = CreateObject("Script...
  • VBA发送email

    2019-11-06 22:05:12
    通过VBA代码发送邮件 Sub SendEmail() Dim App As Object Dim Email As Object Set App = CreateObject("Outlook.Application") Set Email = App.CreateItem(0) With Email .Subject = "M...
  • Function CreateObjectx86(sProgID): Set CreateObjectx86 = CreateObject(sProgID): End Function " , " VBScript " End If Set CreateObjectx86 = oWnd.CreateObjectx86(sProgID) #Else Set CreateObjectx...
  • VBA中使用JAVASCRIPT和VBSCRIPT(1)javascript有许多函数和功能可以弥补VBA不足,如正则,数组,类,等等1)以数组为例,用JAVASCRIPT排序Subfig8()Setx=CreateObject("msscriptcontrol.scriptcontrol")x.Language=...
  • VBA and Access

    2017-11-22 14:17:00
    >>.用vba连接ACESS: SetConn=Server.CreateObject("ADODB.Connection") Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("sample.mdb") C...
  • VBA字典问题

    2020-05-19 17:17:26
    VBA字典问题 可以直接把cells(1,1)加入key, 但问题是这个Key有点特殊, 造成一些理解与取值上的问题如下 Sub Test() Dim d, dK Set d = CreateObject(“scripting.dictionary”) d(Cells(1, 1)) = 0 For Each dK In d...
  • VBA excel 使用SQL

    2020-09-19 13:16:29
    VBA excel 使用SQL Sub 按钮1_Click() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String Set Conn = CreateObject(“ADODB.Connection”) Set Rst...
  • EXCEL VBA PDF 文件

    2015-05-26 08:35:35
    EXCEL VBA PDF 1.使用CreateObject("Wscript.Shell").Run("pdf文件路径") 2.可以使用foxit Activex 或者 adobe 的activex workbookS.open("PDF的路径")
  • 首先,想用就必须有这个东西,如果拥有,这就用到下面这条语句了:Set DicObj=CreateObject("Scripting.Dictionary")'创建字典没错,就是创建字典,其中DicObj是首先申明的一个 Object变量,如:dim D...
  • ExcelVBA利用ADODB访问数据库使用总结Excel VBA利用ADODB访问数据库使用▲连接Oracle数据 Set cnn CreateObject "ADODB.Connection" cnn.Open "Provider msdaora;Data Source dl580;User Id emssxjk;Password ...
  • VBA中使用正则表达式,因为正则表达式不是vba自有的对象, 故此要用它就必须采用两种方式引用它:一种是前期绑定,另外一种是后期绑定。前期绑定:就是手工勾选工具/引用中的Microsoft VBScript Regular ...
  • 常用的VBA代码参考

    2020-06-19 17:55:20
    一些日常经常用到的VBA代码汇总 VBA中调用SQL 在Excel中调用SQL进行数据处理 Sub Query() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String ...
  • 大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA中字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。...Dim myd As ObjectSet myd = CreateObject("Script...
  • vba2

    2012-08-31 01:52:09
    [code="java"] Const adVarChar = 200 Const MaxCharacters = 40000 ...Set DataList = CreateObject("ADOR.Recordset") DataList.Fields.Append ""filed_name"", adV...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 576
精华内容 230
关键字:

createobjectvba