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

     

    展开全文
  • VBA学习(2) Createobject使用

    千次阅读 2020-11-07 20:50:39
    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调用浏览器打开指定网页的几种方法下面的几段VBA代码都可以打开浏览器并打开指定的网页:方法一:用API打开默认的浏览器Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal ...

    VBA调用浏览器打开指定网页的几种方法

    下面的几段VBA代码都可以打开浏览器并打开指定的网页:

    方法一:用API打开默认的浏览器

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Sub OpenWebPage1()

    ShellExecute 0&, vbNullString, "http://www.doczj.com/doc/f9c42ac777232f60dccca141.html", vbNullString, vbNullString, vbNormalFocus

    End Sub

    方法二:用“FollowHyperlink”方法:

    Sub OpenWebPage2()

    ActiveWorkbook.FollowHyperlink

    Address:="http://www.doczj.com/doc/f9c42ac777232f60dccca141.html", NewWindow:=True

    End Sub

    注意网址中要包含“http://”。

    方法三:用“InternetExplorer”对象

    Sub OpenWebPage3()

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    IE.Navigate ("http://www.doczj.com/doc/f9c42ac777232f60dccca141.html")

    End Sub

    方法四:用Shell语句

    这个方法可以用指定的浏览器打开某个网页。例如调用IE打开网址“http://www.doczj.com/doc/f9c42ac777232f60dccca141.html”

    Sub OpenWebPage4()

    Dim url As String

    url = "http://www.doczj.com/doc/f9c42ac777232f60dccca141.html"

    展开全文
  • 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-网络抓取(get,post)

    万次阅读 2018-07-21 10:20:21
    1.网络抓取有很多种方法,处理也有很多种方法,以下提供一些代码,仅供参考 (1)GET获取数据 Option Explicit '以快递一百查询快递单号为例 '用fiddler 来查看自己想要的... Set xmlhttp = CreateObject("M...
  • I am getting the an automation error while invoking the following objectSet IE = CreateObject("InternetExplorer.Application")The error is showingRun-time error '-2147467259 (80004005)'Automation error...
  • VBA createobject常用对象

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

    2020-05-30 18:26:18
    Sub test() ... url = " " Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") With Http .Open "GET", url, False .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64;
  • excel vba 读取 word 指定字符Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject("Word.Application")Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '...
  • Here is another topic that comes up every... MS Excel via VBA? I’ll try to give an introduction into that subject in this document. I will only discuss the basics, but I’m open for suggestions about wh
  • @VBA Dictionary常用方法 如何插入一段漂亮的代码片 代码片. Sub test() Dim t1 as Object ''定义类型 Set t1 = CreateObject("Scripting.Dictionary") ''字典增加数据不允许重复key t1.Add 1, "A": t1.Add 2...
  • 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的路径")
  • step1:进入VBA中,“工具”----”引用“----“Microsoft XML, v3.0”选中,----“确定” 第1种方式:直接引用 Public Sub g() '第一种 Dim xh As xmlHttp xh.Open "" End Sub 引用“Microsoft ...
  • ExcelVBA调用Outlook对象

    2021-01-17 00:47:09
    本帖最后由 爱疯 于 2012-7-17 10:32 编辑为了自动化Outlook,使Excel的VBA能调用Outlook对象,我们必须先访问Outlook的对象模型。也就是说,在Excel里操纵Outlook的对象,你必须首先能够让Excel“看到”它们。 通常...
  • VBA学习笔记3-数据结构类型SortedList

    千次阅读 2019-12-29 11:00:02
    VBA学习笔记3-数据结构类型SortedList一、SortedList是干什么的?二、创建方法1,前期绑定2,后期绑定三、常用方法和属性1,Add添加方法2,item的添加办法3,得到集合的大小4,判断key键和Item是否存在4.1,Contains...
  • VBA获取网页表格数据

    2021-06-12 16:17:41
    Dim IE As Object Dim DocX, TableX, Row, TdGroup Dim i%, j% '定义为IE Set IE = CreateObject("InternetExplorer.Application") With IE '调试时可设为显示 .Visible = True .navigate Url Do ...
  • osknows..5这是一种方法Option ExplicitSub test()Dim oFSO As ObjectDim oFS As Object, sText As StringSet oFSO = CreateObject("Scripting.FileSystemObject")Set oFS = oFSO.OpenTextFile("C:\Users\osknows\...
  • VBA调用javascript(一)

    2021-01-17 03:20:18
    函数接口Function execJSFunc(filePath, funcName)Dim codeOpen filePath For Input As #1Do While Not EOF(1)Line Input #1, tmpCodecode = code &... Chr(13)LoopClose #1Set JS = CreateObject("Scrip...
  • VBA Dictionary引用

    千次阅读 2018-06-04 15:55:23
    添加库引用 Microsoft Scripting Runtime定义变量 dim dic as Dictionary set dic = CreateObject("scripting.dictionary") Sub 统计林权证() On Error Resume Next Dim huZhu As String Dim yb As...
  • Excel VBA 利用FileSystemObject处理文件

    千次阅读 2020-10-01 11:18:20
    Excel VBA 利用FileSystemObject类处理文件 FileSystemObject介绍 FileSystemObject是Windows Script Host Object Model对象模型的成员,能够对文件进行方便的基本操作,读取,写入,提取关键字等操作。若与...
  • vba之网抓详细事例

    2018-05-27 22:38:01
    VBA抓取网页数据详细教程,举例抓取网页中的表格数据 Sub test() Dim ie, dmt, tbs, i&, tb Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象 With ie .Visible = True '显示它 ....
  • 问题:最近老婆让我给上二年级的孩子做一份生字拼音表(带声调),这样孩子每天就可以读拼音默写词语,也就不需要家长陪在身边朗读了。...方案:既然拼音也是要录入到Excel的,那么用VBA来操作网页,把输入汉字-...
  • 大家好,我是赤道上的小熊,使用 VBA调用外部EXE程序时分两种情况,一种是异步调用(不管外部EXE程序是否执行完,继续执行后续代码),另一种是同步调用(外部EXE程序执行完后,再执行后续代码),大家可以根据自己...
  • VBA初试

    2021-01-15 16:36:53
    为了爬取基金数据做下研究,就研究了一下如何用VBA爬取数据并展示在表格里,以下是成果: Sub zq() Dim url As String, tt As String, bondcode As String, n As Integer ' If Not IsEmpty(ActiveSheet....
  • Set x = CreateObject("ADODB.Connection") x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=" & ActiveWorkbook.FullName sql = "select f6,f2,f3,f4,f5,f7,f13...
  • vba操作ie关闭窗口

    千次阅读 2018-07-19 20:56:12
    现在我们一般的默认浏览器都不是IE,所以一般在vba操作IE使用microsoft Internet controls里面的IE.quit没什么用。下面使用js关闭IE,我试了下,可行的。顺便做下记录。。 Sub x() Dim ie As Object Set ie = ...
  • VBA调用SAP RFC出错

    2019-06-12 18:41:39
    Sub sapMARC() Dim iData As Integer Dim nField As Integer Dim nData As Integer Dim Result As Boolean Dim vRow As Variant ...Set R3 = CreateObject(“SAP.Functions”) R3.Connection.Sys...
  • VBA调用Shell

    千次阅读 2021-08-28 15:32:59
    VBA中执行Shell介绍,打开应用,执行python、bat、mysql;
  • VBA两种打开文件窗口的方式

    千次阅读 2020-10-20 10:32:33
    VBA两种打开文件窗口的方式第一种第二种结语 第一种 获取文件夹路径,返回完整路径 Dim Fso, Fld '定义文件路径 Set Fso = CreateObject("Scripting.FileSystemObject") Set Fld = Fso.getfolder(CreateObject(...
  • CreateObject("Scripting.FileSystemObject") If fso.FolderExists("d:/GDS_HUB_Report_Used_by_Rita") Then '判断是否存在这个文件夹 fso.DeleteFolder ("d:/GDS_HUB_Report_Used_by_Rita") Else MsgBox ...

空空如也

空空如也

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

createobjectvba