精华内容
下载资源
问答
  • 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")

    展开全文
  • strTableName, strWhere, objConn) 参考Access VBA 中的Dlookup函数 由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.CreateObject("ad

    Function dlookup(strFieldName, strTableName, strWhere, objConn)
        '参考Access VBA 中的Dlookup函数
        '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来
        Dim strsql
        Dim rs
        Set rs = server.CreateObject("adodb.recordset")
        '下面要调用外部的一个自定义函数 checksql()
        strFieldName = checksql(strFieldName)
        If strWhere <> "" Then
            strWhere = " where " & strWhere
        End If
        strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
        'debugstop strsql
        On Error Resume Next
        rs.Open strsql, objConn, 1, 1
        If Err <> 0 Then
            response.write Err.Description
            response.end()
        End If
       
        If rs.EOF And rs.BOF Then
            dlookup = ""
        Else
            '要调用一个自定义函数 NZ
            '详细内容请参考 ACCESS VBA 帮助中的资料
            dlookup = Nz(rs(strFieldName), "")
        End If
        rs.Close
    End Function

    展开全文
  • 经常看见vba的IsFileExists显示出函数或子过程未定义,我的问题就是IsFileExists函数没写所以出问题,在相应的模块下加如下代码即可: Function IsFileExists(ByVal strFileName As String) As Boolean Dim ...

    经常看见vba的IsFileExists显示出函数或子过程未定义,我的问题就是IsFileExists函数没写所以出问题,在相应的模块下加如下代码即可:

    Function IsFileExists(ByVal strFileName As String) As Boolean
        Dim objFileSystem As Object
     
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       If objFileSystem.fileExists(strFileName) = True Then
          IsFileExists = True
        Else
            IsFileExists = False
        End If
    End Function

    展开全文
  • VBA的inputBox函数的JScript模拟

    千次阅读 2014-11-21 02:38:49
    示例WScript.CreateObject的事件前缀绑定事件处理过程示例InternetExplorer.Application在JScript下来模仿inputBox函数示例JScript脚本宿主运行时访问页面内容、脚本的方法。 估计这文章一发表就注定被转抄的命运了...


    本文要点:

    1. 示例WScript.CreateObject的事件前缀绑定事件处理过程
    2. 示例InternetExplorer.Application在JScript下来模仿inputBox函数
    3. 示例JScript脚本宿主运行时访问页面内容、脚本的方法。

    估计这文章一发表就注定被转抄的命运了,标记一下源地址:http://blog.csdn.net/winsenjiansbomber/article/details/41338243

    /* Tips: an alert emulator for Wscript host */
    function alert(msg){
        WScript.Echo(msg+"");
    }
    
    // Binding event handler prefix: ONIE_
    var IE = WScript.CreateObject("InternetExplorer.Application","ONIE_");
    IE.left=50;
    IE.top = 100;
    IE.height = 200;
    IE.width = 350;
    IE.menubar = false;
    IE.toolbar = false;
    IE.statusbar = false;
    IE.resizable = false;
    IE.navigate("c:\\temp\\readme.html");
    IE.visible = true;
    
    while(!IE.Document.Script.GetValue){ // break when page load and run
        WScript.Sleep( 300 );
    }
    
    alert("Please click OK");
    
    //alert(IE.Document.Script);
    //alert(IE.Document.body);
    //alert(IE.Document.Script.GetValue);
    alert("GetValue()="+IE.Document.Script.GetValue());
    
    WScript.DisconnectObject( IE );
    IE.Quit()
    
    alert("Disconnected");
    
    function ONIE_WindowStateChanged(state){
        alert("Event: Window State Changed to "+state);
    }
    
    // Raised from loading a document in Internet Explorer
    function ONIE_DownloadBegin(){
        alert("Event: Download begins");
    }
    
    /* Raised from quitting Internet Explorer, but we're
     * disconnecting from the object before calling
     * the Quit method to terminate Internet Explorer, so 
     * the dialog box isn't shown. */
    function ONIE_OnQuit(){
        alert("Event: Quit Internet Explorer");
    }
    




    readme.html:

    <!DOCTYPE html>
    <html>
     <head>
      <meta charset="utf-8" />
      <title> Test </title>
     </head>
    
    
     <body>
      <label>请输入:<input id="box" style="width:120px;" /></label>
      <script type="text/javascript">
        function GetValue(){
          return document.getElementById("box").value;
        }
      </script>
     </body>
    </html>



    关于Windows Scripting Host这个很实用的古董编程技术,Jimbowhy 收集了大量收藏级的资料,请到云盤免费下载:

    http://pan.baidu.com/s/1i3Br5OD

    包括:

    Advanced VBSript for Microsoft Windows Administrators.pdf
    Advanced Windows Script Host Developers Guide (2003) .pdf
    IVIEWERS.DLL
    Microsoft VBScript Step by Step.pdf
    Microsoft Windows脚本技术.CHM
    OLEVIEW.EXE
    scd56chs.exe JScript & VBScript 官方参考手册 5.6中文版
    script56.chm JScript & VBScript 官方参考手册 5.6 e文版
    scripten.5.7.0.16535.win2k.exe  JScript & VBScript 安装程序
    scripten.5.7.0.16535.win2k3 .exe
    scripthost20dev.chm  Microsoft Windows Script Host 2.0 Developer’s Guide / Günter Born.<
    script_repository10.chm System Administration Scripting Guide Script RepositoryVersion 1.0, May 2002
    VBScript Programmer's Reference, 3rd Edition.pdf
    VBScript程序员参考手册.pdf
    VBS_常用脚本.docx

    sct10en.exe    Microsoft Script Control 1.0

    MSSCRIPT-CHS.chm  Microsoft Script Control 1.0 英文手册的CHM格式

    MSSCRIPT-CHS.chm  Microsoft Script Control 1.0 中文手册的CHM格式


    InternetExplorer对象参考:http://msdn.microsoft.com/en-us/library/aa752084

     

    展开全文
  • '自定义函数 NTDX 将数字金额转换为财务要求的大写... Set Excel = CreateObject("excel.Application") '在 Word 中引用 Excel 程序, 然后可使用 Excel 程序中的工作表函数 If A = "" Or No...
  • 1.复制文件到指定文件夹 FileCopy path &amp; Range("D" &amp; j) &amp; ".msg", newPath &amp; Range("D"... 2.... Set fso = CreateObject("Scri
  • VBA用字典来替代函数的Vlookup

    万次阅读 2010-08-07 11:05:00
    Excel里有Vlookup函数,查找匹配数据非常方便,在VBA里,也可以用worksheetfunction.vlookup方法来调用,今天我介绍一个另一种使用字典(dictionary)+数组的方法,速度也非常快。   数据源图片:...
  • Function RemoveNarrow(str As String) As String Set regEx = CreateObject("vbscript.regexp") With regEx .Global = 1 .Pattern = "[\x01-\x7f]+" RemoveNarrow = .Rep...
  • Function aa(sr As Range)Set reg = CreateObject("vbscript.regexp")With reg.Global = True.Pattern = "\d+"End Withaa = reg.Replace(sr, "") End Function 转载于:https://www.cnblogs.com/susuye...
  • VBA SQL连接

    2016-11-04 20:00:06
    直接使用CreateObject函数创建ADO对象
  • 前面和小伙伴们分享了,用office软件自带的邮件合并功能来进行Word与Excel交互,这个邮件合并生成的只有一个Word文档,要想...在Excel要使用Word对象需要用createobject函数创建一个Word对象,这个就是你启动Word...
  • VBA中使用JAVASCRIPT和VBSCRIPT(1)javascript有许多函数和功能可以弥补VBA不足,如正则,数组,类,等等1)以数组为例,用JAVASCRIPT排序Subfig8()Setx=CreateObject("msscriptcontrol.scriptcontrol")x.Language=...
  • Excel_VBA教程

    2014-09-22 11:36:34
    14.使用CREATEOBJECT函数 184 15.使用自动控制创建一个新的WORD文档 185 16.使用GETOBJECT函数 185 17.打开存在的WORD文档 186 18.使用关键字NEW 187 19.使用自动控制访问MICROSOFT OUTLOOK 188 20.接下来…… 189 ...
  • 函数接口Function execJSFunc(filePath, funcName)Dim codeOpen filePath For Input As #1Do While Not EOF(1)Line Input #1, tmpCodecode = code & tmpCode & Chr(13)LoopClose #1Set JS = CreateObject(...
  • VBA与数据库

    2015-11-19 18:07:38
    •实例6-2 打开数据库和数据表(createobject函数) 145 •实例6-3 删除数据表(ADO) 145 •实例6-4 删除数据表(ADOX) 146 •实例6-5 删除数据表(DAO+DELETE) 147 •实例6-6 删除数据表(DAO+SQL) 147 •实例6...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    14.使用CREATEOBJECT函数 184 15.使用自动控制创建一个新的WORD文档 185 16.使用GETOBJECT函数 185 17.打开存在的WORD文档 186 18.使用关键字NEW 187 19.使用自动控制访问MICROSOFT OUTLOOK 188 20.接下来…… 189 ...
  • VBA常用操作

    2013-06-16 10:32:39
    删除文件夹 假设我在C区建立一个...Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("c:\aaaa") f.Delete End Sub ----------- 可以通过api函数来取得文件夹的位置,再进行删除. D
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • set dic = CreateObject(“scripting.dictionary”) 函数如何返回字典? Sub mySub() dim myDict as Dictionary set myDict = myFunc() End Sub Function myFunc() as Dictionary dim myDict2 as Dictionary set ...
  • Excel VBA 代替Sumproduct实现多条件求和

    万次阅读 2013-08-26 15:11:57
    因为用函数公式,如果数据量大的话,会影响效率,而且会增加文件本身大小,所以想用vba代码替代。 以下代码用来实现函数公式sumproduct的功能,实现多条件求和。 Private Sub 多条件求和()  Dim d, ar, arr, s$, t...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    一、VBA语言基础...................................................................................................................1 第一节标识符...........................................................
  • EXCEL技术VBA一键获取SAP系统数据

    千次阅读 2020-02-24 17:15:00
    1.第一步 在SAP系统建立一个可远程调用的函数RFC 2.第二步 就是在EXCEL里面的操作了 找到开发工具 点击Visual Basic (切记EXCEL要启用宏 在信任中心里面) 3.第三步 在EXCEL里面写代码 格式差不多大同小异 Sub ...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    实例6-2 打开数据库和数据表(CreateObject函数) 实例6-3 删除数据表(ADO) 实例6-4 删除数据表(ADOX) 实例6-5 删除数据表(DAO+DELETE) 实例6-6 删除数据表(DAO+SQL) 实例6-7 删除数据表(Access) ...
  • 在用vba编写打印发票的小程序时,发现①~⑩ ⑴~⒇ ⒈~⒛ 等序号显示没问题,而⒜~⒵ Ⓐ~Ⓩ ⓐ~ⓩ ⓪ ⓫~⓴ ⓵~⓾等字符在代码编辑器里是显示不出来的,显示一个? 刚开始把字符藏在sheet的某个单元格里到要用时再去...
  • 实例6-2 打开数据库和数据表(CreateObject函数) 实例6-3 删除数据表(ADO) 实例6-4 删除数据表(ADOX) 实例6-5 删除数据表(DAO+DELETE) 实例6-6 删除数据表(DAO+SQL) 实例6-7 删除数据表(Access) ...
  • 1、代码目的:把相同ID的数据,合并到...transpose函数有65536的限制,当同一ID行数超过限制时,跳“类型不匹配”的错误,求大佬指点? ![图片说明](https://img-ask.csdn.net/upload/201809/19/1537336643_641881.png)
  • MATLAB与SPSS接口

    2019-11-22 11:46:53
    【课程介绍】 介绍MATLAB与SPSS接口的技巧和示例。 【课程收益】 SPSS通过自动化调用MATLAB SPSS调用MATLAB代码编译的组件 ... 后期绑定-CreateObject函数和GetObject函数 9:52 3. 前期绑定...
  • 2020-12-14

    2020-12-14 21:45:49
    利用Navigate方法用IE访问某URL的流程本教程首先说明一下将要实现怎样的处理。个人认为,在把握了整体的处理内容的基础... ■关于VBA函数、方法、属性这次需要使用的函数、方法、属性如下:CreateObject函数 CreateObj
  • 可以使用COM技术,在VB中...VB连接到AutoCAD主要用到CreateObject和GetObject函数,创建或者获得对ActiveX对象的引用。 连接到AutoCAD之后,就可以使用acadApp对象对AutoCAD进行操作,语法和操作方法与VBA完全一致。...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符串子类型的变体的表达式。 日期和时间常数 在日期和时间运算中用来...

空空如也

空空如也

1 2
收藏数 37
精华内容 14
关键字:

createobject函数vba