vba 订阅
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。1993年由微软公司开发的应用程序共享一种通用的自动化语言--------即Visual Basic for Application(VBA),实际上VBA是寄生于VB应用程序的版本。1994年发行的Excel 5.0版本中,即具备了VBA的宏功能。 展开全文
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。1993年由微软公司开发的应用程序共享一种通用的自动化语言--------即Visual Basic for Application(VBA),实际上VBA是寄生于VB应用程序的版本。1994年发行的Excel 5.0版本中,即具备了VBA的宏功能。
信息
启发语言
Visual Basic,QuickBASIC
外文名
Visual Basic for Applications
操作系统
Microsoft Visual,Mac OSX
简    称
VBA
发行时间
1993年
释    义
Visual Basic的一种宏语言
语言属性
应用程序一种通用的自动化语言
中文名
Visual Basic宏语言
功    能
扩展Windows的应用程式功能
具备功能时间
1994
VBA概述
Visual Basic for Applications(简称VBA)是新一代标准宏语言,是基于Visual Basic for Windows 发展而来的。它与传统的宏语言不同,传统的宏语言不具有高级语言的特征,没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法,提供了相当完整的程序设计语言。VBA 易于学习掌握,可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码,使工作自动化。 [1]  VBA是基于 Visual basic发展而来的,与VB具有相似的语言结构。从语言结构上讲,VBA是VB的一个子集,它们的语法结构是一样的。两者的开发环境也几乎相同。但是,VB是独立的开发工具,它不需要依附于任何其他应用程序,它有自己完全独立的工作环境和编译、链接系统。VBA却没有自己独立的工作环境,它必须依附于某一个主应用程序,VBA专门用于Office的各应用程序中,如Word、 Excel、 Access等。在 Access中,可以通过VBA编写模块来满足特定的需要。 [1]  正是由于VBA与主应用程序的这种关系,使得它与主程序之间的通信变得简单而高效。它与 AutoCAD完全共享内存空间,所以执行速度比用C语言开发的ADS应用程序要快很多。 [2]  VBA提供了面向对象的程序设计方法,提供了相当完整的程序设计语言。它的编写是以子过程和函数为单位,在 Access中以模块形式出现。 [1]  Office取得巨大成功的一个重要原因就是VBA,使用VBA可以完成很多事情,基于Excel、Word的VBA小程序不计其数。Office中的应用程序可以共享VBA语言,如果掌握了在 Excel 2016中使用VBA的方法,那么在Word、Power Point中使用VBA自然会变得易如反掌。掌握对VBA语言的使用,可以让复杂的工作简易化,减少不必要的重复性工作,大大提高我们的工作效率。 [3]  VBA程序员很多是业余程序员,正因为业余,解决的却是工作中需要解决的问题;所以,VBA程序大多都是只是在部门内部或个人使用的小工具。集成了VBA的其他应用程序也很多,但真正能为程序增色的不多。 [1]  大多数人看到了VBA可以自动化一个程序,可以扩展已有程序,但没有看到在Office中,VBA代码可以是录制的,而不是写出来的,带来的好处是,学习曲线变得非常缓。如果没有宏录制功能,要熟悉某个Office组件的对象模型,绝非一日之功。 [1]  以ArcGIS为例,ArcGIS扩展必须使用ArcObject,不管是使用VBA也罢,VB也罢,还是C++也罢。但同时,ArcObject的学习不是一天两天可以搞定,对于业余程序员,要使用VBA来扩展ArcGIS,几乎没有可能;专业程序员又不屑使用VBA;而对于公司,如果要基于ArcObject来扩展ArcGIS,选择VBA意味着源码的保护很困难。所以,ArcGIS的VBA就如同鸡肋。 [1]  VBA 是基于Visual Basic 发展而来的,它们具有相似的语言结构。Visual Basic 是Microsoft 的主要图形界面开发工具,VBA 5.0 (亦即VBA 97)则是Visual Basic 5.0 的子集。Visual Basic 是由Basic 发展而来的第四代语言。Visual Basic 作为一套独立的 Windows 系统开发工具,可用于开发Windows 环境下的各类应用程序,是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。VB 的程序语言简单、便捷,利用其事件驱动的编程机制,新颖易用的可视化设计工具,并使用Windows应用程序接口(API)函数,采用动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)以及开放式数据库访问(ODBC)等技术,可以高效、快速地编制出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 [1]  Visual Basic 程序很大一部分以可视(Visual)形式实现,这意味着在设计阶段就可以看到程序运行的屏幕画面,用户可以在设计时能够方便地改动画面图像、大小、颜色等,直到满意为止。VB 的用户可以是缺乏Windows 及C 语言开发经验的专业软件人员,也可以是具有一定Windows开发经验的专业人员,VB 的可视化编程方法使得原来繁琐枯燥、令人生畏的Windows 应用程序设计变得轻松自如、妙趣横生。以往的Windows 应用程序开发工具在设计图形用户界面时,都是采用编程的方法,并伴随大量的计算任务,一个大型应用程序约有90%的程序代码用来处理用户界面,而且在程序设计过程中不能看到界面显示的效果,只有在程序执行时才能观察到,如果界面效果不佳,还需要回到程序中去修改。Visual Basic 提供了新颖的可视化设计工具,巧妙地将Windows界面设计的复杂性封装起来,程序开发人员不必再为界面设计而编写大量程序代码,仅需采用现有工具按设计者要求的布局,在屏幕上画出所需界面,并为各图形对象设置属性即可,VB 自动产生界面设计代码,这样便将事先编制好的控件可视地连接到一起,构成一个随时可调整的界面。 [1]  VBA 不但继承了VB 的开发机制,而且VBA 还具有与VB 相似的语言结构,它们的集成开发环境IDE(Intergrated Development Environment)也几乎相同。但是,经过优化,VBA 专门用于Office 的各应用程序。VB 可运行直接来自Windows 95 或NT 桌面上的应用程序,而VBA 的项目(Project)仅由使用VBA 的Excel、Word、 PowerPoint 等称为宿主(Host)的Office 应用程序(Application)来调用。 [1]  1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化。 [3]  2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序。 [3]  3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的父应用程序,例如EXCEL。 [3]  4.VBA是VB的一个子集。 [3]  尽管存在这些不同,VBA和VB在结构上仍然十分相似。事实上,如果你已经了解了VB,会发现学习VBA非常快。相应的,学完VBA会给学习VB打下坚实的基础。而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO POWERPOINT 中用VBA创建解决方案的大部分知识。 [3]  * VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化。 [3]  * VBA可以称作EXCEL的“遥控器”。 [3] 
收起全文
精华内容
参与话题
问答
  • VBA学习之一:基本知识

    万次阅读 多人点赞 2018-03-17 02:49:19
    Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。也...

    1、简介

    Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言——–Visual Basic For Application(VBA),实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中,即具备了VBA的宏功能。
    2、操作
    我使用的是excel-2016版本,具体版本可以通过excel的 文件----->账户---->关于excel 来查看excel版本
    这里写图片描述
    2.1怎么打开VBE(VBA的编辑环境)
    快捷键:【Alt+F11】
    对于常用的人员需要将该工具打开,为了保护电脑安全,Microsoft默认是将该功能关闭的,打开方法(以2016版为例,其他版本见百度):

        文件----->选项--->自定义功能区----->主选项卡--->(选中)开发工具

    选中后“开发工具”选项就会出现在菜单栏,下次使用就可以直接点击使用。
    这里写图片描述
    2.2权限问题
    仅仅做了以上操作还是不能运行VBA程序的,因为Microsoft限制了其程序执行权限,我们运行该程序需要将该权限打开。
    打开方式:

        文件----->选项--->信任中心--->信任中心设置---->宏设置,选择“启动所有宏”并在“信任对VBA工程对象模型的访问”全面选中(这里会有潜在危险,谨慎使用)

    3、进入VBE
    通过菜单栏 开发工具----->Visivual Basic打开VBA编辑环境,在VBE中通过视图--->代码窗口打开代码窗口
    其他的窗口可通过视图菜单各个都点点看下,熟悉下环境。
    通过工程窗口模块--->插入模块,写VBA程序。
    一个简单的程序如下

    Sub 弹出时间()
    MsgBox  Date
    End Sub

    运行结果:
    这里写图片描述

    这里写图片描述

    好了VBA的简单介绍就到这里,后面会进行一些excel表格数据的处理,敬请期待

    展开全文
  • 宏基础 VBA编程基础 常用语句(分支、循环语句的基础及应用) VBA结合工作表的函数功能的应用等
  • EXCEL VBA编程进阶

    万人学习 2016-02-06 11:14:19
    数组:为了提高VBA的运算速度,特别讲解了数组。以及他的相关应用 图形:这是精彩的部分。讲了图形的各种批量插入方式。通过坐标自动绘制图形。批量制作员工卡等实例。很多实例在工作上都能用到。
  • Excel VBA网抓教程【你学得会】

    万人学习 2016-04-19 15:17:27
    内首套系统化专业化的Excel VBA网抓培训视频。 杨老师通过《Excel VBA网抓教程【你学得会】》的课程教你如何进行网抓。包括web控件,QueryTable,公式,系统组件等方法去抓取数据,以实例带动,逐步深入。 此网抓...
  • (1)对所有客户的订单详细信息共享管理,相关部门可快速修改、查询订单信息。 (2)月初可自动根据PO生成月度出货计划,为生产计划的制作提供根据。 (3)每次打出货单后系统将自动统一保存出货单,方便相关人员...
  • VBA汇总

    千次阅读 多人点赞 2019-05-13 16:34:48
    第一、将多张工作表中的数据合并到一张工作表中 Sub hebing() '把各班成绩表中的记录合并到"成绩表"工作表中 Dim sht As Worksheet Set sht = Worksheets("成绩表") sht.Rows("2:65536").Clear '删除成绩表中的...

    第一、将多张工作表中的数据合并到一张工作表中

    Sub hebing()  '把各班成绩表中的记录合并到"成绩表"工作表中
        Dim sht As Worksheet
        Set sht = Worksheets("成绩表")
        
        sht.Rows("2:65536").Clear      '删除成绩表中的原有记录
        
        Dim wt As Worksheet, xrow As Integer, rng As range
        
        For Each wt In Worksheets                   '循环处理宏所在工作簿中的每张工作表
        
            If wt.Name <> "成绩表" Then
            '如果要执行的sheet名不为成绩表则执行以下语句,即不是成绩表的工作表顺序执行
            
                Set rng = sht.range("A1048576").End(xlUp).Offset(1, 0)
                '找到成绩表A列第一个空单元格
                'Range("A1048576")代表A列最后一行
                'End(xlUp)代表A列最后一个非空单元格
                'Offset(1, 0)代表最后一个非空单元格向下一行即第一个空单元格
                
                xrow = wt.range("A1").CurrentRegion.Rows.Count - 1
                'xrow等于-选中sheet的A1在内的一个连续的矩形区域的行数-1
                
                wt.range("A2").Resize(xrow, 7).Copy rng
                '然后,将该sheet的A2单元格扩展为xrow行7列的单元格区域,将以上区域复制到rng单元格的位置
                
            End If    
        Next  
    end sub
    

    第二、将多个工作簿中的数据合并到同一张工作表中

    Sub HzWb()
        Dim bt As Range, r As Long, c As Long
        r = 1                                       '1 是表头的行数
        c = 7                                       '7 是表头的列数
        Dim wt As Worksheet
        Set wt = ThisWorkbook.Worksheets(1)         '将汇总表赋给变量wt
        
        wt.Rows(r + 1 & ":1048576").ClearContents   '清除汇总表中原表数据,只保留表头
        
        Application.ScreenUpdating = False
        
        Dim FileName As String, sht As Worksheet, wb As Workbook
        Dim Erow As Long, fn As String, arr As Variant
        FileName = Dir(ThisWorkbook.Path & "\*.xlsx")
        
        Do While FileName <> ""
        
            If FileName <> ThisWorkbook.Name Then                  ' 判断文件是否是汇总数据的工作簿
                Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1 ' 取得汇总表中第一条空行行号
                fn = ThisWorkbook.Path & "\" & FileName            ' 将第1个要汇总的工作簿名称赋给变量fn
                Set wb = GetObject(fn)                             ' 将变量fn 代表的工作簿对象赋给变量wb
                Set sht = wb.Worksheets(1)                         ' 将要汇总的工作表赋给变量sht
                                                                   ' 将工作表中要汇总的记录保存在数组arr里
                arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 5)) ' 将数组arr 中的数据写入工作表
                wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
                wb.Close False
            End If
            
            FileName = Dir                            ' 用Dir 函数取得其他文件名,并赋给变量
            
        Loop
        
        Application.ScreenUpdating = True
        
    End Sub
    
    
    

    第三、将工作簿中的每张工作表都保存为单独的工作簿文件

    Sub HzWb()
        Dim bt As Range, r As Long, c As Long
        r = 1                                       '1 是表头的行数
        c = 7                                       '7 是表头的列数
        Dim wt As Worksheet
        Set wt = ThisWorkbook.Worksheets(1)         '将汇总表赋给变量wt
        
        wt.Rows(r + 1 & ":1048576").ClearContents   '清除汇总表中原表数据,只保留表头
        
        Application.ScreenUpdating = False
        
        Dim FileName As String, sht As Worksheet, wb As Workbook
        Dim Erow As Long, fn As String, arr As Variant
        FileName = Dir(ThisWorkbook.Path & "\*.xlsx")
        
        Do While FileName <> ""
        
            If FileName <> ThisWorkbook.Name Then                  ' 判断文件是否是汇总数据的工作簿
                Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1 ' 取得汇总表中第一条空行行号
                fn = ThisWorkbook.Path & "\" & FileName            ' 将第1个要汇总的工作簿名称赋给变量fn
                Set wb = GetObject(fn)                             ' 将变量fn 代表的工作簿对象赋给变量wb
                Set sht = wb.Worksheets(1)                         ' 将要汇总的工作表赋给变量sht
                                                                   ' 将工作表中要汇总的记录保存在数组arr里
                arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 5)) ' 将数组arr 中的数据写入工作表
                wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
                wb.Close False
            End If
            
            FileName = Dir                            ' 用Dir 函数取得其他文件名,并赋给变量
            
        Loop
        
        Application.ScreenUpdating = True
        
    End Sub
    
    
    
    展开全文
  • 本课程属性Excel VBA中比较高阶的课程,主要讲解关于各种事件的应用,各种控件的应用,如果使用类模块,如果在VBA用调用SQL语句去处理数据库中的数据等操作。学习完成本课后,你可以在Excel中开发各种小型应用系统...
  • vba,

    2016-02-23 17:24:38
    vba,
  • VBA

    2020-06-18 16:24:55
    标星★置顶公众号 爱你们♥ ——仅此纪念那些年使用VBA的日子!——2020进度:▓▓▓▓▓▓▓░░░░░░░░ 46%今天正好在看StackOverflow的最新报告...


    标星★置顶公众号     爱你们♥   

    ——  仅此纪念那些年使用VBA的日子!——

    2020进度:▓▓▓▓▓▓▓░░░░░░░░ 46% 

    今天正好在看StackOverflow的最新报告:

    https://insights.stackoverflow.com/survey/2020#community-visiting-stack-overflow

    其中报道了开发人员最喜爱的编程语言,前十是:Rust、Typescript、Python、Kotlin、Go、Julia、

    最让他们头皮发麻的前十编程语言是:

    VBA排第一!

    公众号今天特别想说说这门当年叱咤风云的编程语言(我们也曾用过),没有广告!

    现在的情况是,除了Python之外,很多金融机构,像投行(这个会多一些)、对冲基金等金融机构现在已经很少使用VBA了。

    下面的图表说明了这个问题。在美国顶尖的投行中(代表性样本),目前几乎没有关于Kotlin的招聘广告,也没有Julia的招聘广告,Typescript就更别说了。相比之下,被 StackOverflow列为最头皮发麻的VBA招聘信息则相当多。

    不知道公众号的读者们是否有用过它。我们来做个调查:

    具公众号了解,还是有一部分人热衷于VBA,对于非计算机相关专业的人来说,VBA是一种最简单的程序语言了。它可以实现高效的自动化办公。

    网上也有很多呼声说:VBA已经过时了吗?VBA是不是很快就要被淘汰了?

    我们先给答案:

    VBA在未来10年仍然会被广泛使用

    VBA虽然老,但不会完全消失

    它还可以学,还可以学很久

    根据微软社区的一个投票可以看出,微软正考虑添加Python为官方的一种Excel脚本语言,如果获得批准,Excel用户将能够像目前使用VBA脚本一样,使用Python脚本与Excel文档、数据以及一些Excel核心函数进行交互。

     

    目前为止,有6551人赞同将Python集成到Excel中。从15年到现在也少的可怜······

    从上面的截图,我们可以看到2个事情:

    • 微软有在考虑这个事情

    • 这个事情进展非常缓慢

    所以大家也能看到,直到目前为止,最新的Office 365版本仍然是支持使用VBA语言。

    其实远在07年,Office2007版刚推出的时候,就有大神发声说VBA要死了,他们认为VBA严重阻碍了Excel结构化革新,阻碍了Excel开源,在下一个版本,微软肯定不会再支持VBA。然后十几年过去了,VBA还活得好好的。

    不知道从什么时候开始,微软市场部也有了谁火就蹭谁热点的尿性,JS火的时候,它就跳出来说我们Excel要支持JS了,R火的时候,它就跳出来说我们Excel要全面支持R了,后来Python火的一塌糊涂,它“理所当然”又跳出来说我们Excel要全面深入支持Python了。甚至当时有传言微软将在最后一个单机版本2019版中彻底放弃VBA,全面支持Python……

    后来呢,2020年了,你懂得。

    在计算机专业的眼里VBA一直都没地位,许多高级程序员瞧不上VBA,因为程序员的鄙视链是:

    汇编 > C > C++ > Python > Java及C#及PHP(这三者相互撕)> VB > HTML

    在这长长的鄙视链中甚至都没有VBA的位置。

    但在金融、财务等诸多其他领域,VBA也是一枚神器。基本任何企业的绝大多数部门都会用到Excel,都会需要处理数据。当处理大型运算、重复操作、机械性的工作时,Excel VBA的自动化就成为了提升工作效率的完美工具。

    最后引用杨博士的话说:这些争论永远存在,但其实都没有任何实际意义,最后也都是不了了之。道理很简单:工具技术各有特色,适用于不同场合,没有任何一种技术可以自称是“万灵丹”。所以互相之间无所谓优劣,只有适用性的不同。

    工具万千,实用为王。不必把自己拘泥于某一个技术上,而是根据工作需要,什么方便用什么。在可以预见的几年里,VBA不会被替代;即使有一天VBA会被替代,你也可以通过学习VBA所积累的经验也会帮助你迅速转到新工具中。

    Quant们,你还再用VBA吗?如果有,欢迎留言!

    量化投资与机器学习微信公众号,是业内垂直于Quant、MFE、Fintech、AI、ML等领域的量化类主流自媒体。公众号拥有来自公募、私募、券商、期货、银行、保险资管、海外等众多圈内18W+关注者。每日发布行业前沿研究成果和最新量化资讯。

    你点的每个“在看”,都是对我们最大的鼓励

    展开全文
  • 一小时搞定 简单VBA编程 Excel宏编程快速扫盲

    万次阅读 多人点赞 2018-01-19 09:45:19
    1. Excel VBA编辑界面 (进入路径: sheet名称 --> 鼠标右键菜单 --> 查看代码) 2. 输入代码方法: 在VBE编辑器的代码模块中输入VBA代码,通常有以下几种方法: ■手工键盘输入; ■使用...

    Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。下面是我的学习笔记。

     

    1. Excel VBA编辑界面

    (进入路径: sheet名称 --> 鼠标右键菜单 --> 查看代码)

     

    2. 输入代码方法:

    在VBE编辑器的代码模块中输入VBA代码,通常有以下几种方法: 

    ■ 手工键盘输入; 

    ■ 使用宏录制器,即选择菜单“工具——宏——录制新宏”命令,将所进行的操作自动录制成宏代码; 

    ■ 复制/粘贴代码,即将现有的代码复制后,粘贴到相应的代码模块中; 

    ■ 导入代码模块:文件-->导入文件 **不用的模块可以:文件-->移出模块

     

    3. VB代码阅读扫盲

    (1) 模块声明:

    Sub sName() ... End Sub
    Sub xxxxx()
    XXXXXXXXX
    End Sub

    (2) 变量声明:

    Dim sPara As sType
    Dim para1, para2, para3
    Dim para4 As workbook, para5 As String
    Dim G As Long

    (3) 选择结构:

    With ... End With
    If condition Then ... End If
    
    # 举个例子:遍历每个Sheet把表粘贴成一个大表的语句,使用For Next With End With语句
    
    With Workbooks(1).ActiveSheet
    For G = 1 To Sheets.Count
    Wb.Sheets(G).UsedRange.Copy       .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
    Next
    WbN = WbN & Chr(13) & Wb.Name
    Wb.Close False
    End With

    (4) 循环结构

    Do While condition ... Loop
    For i = 0 to 100 ... Next

    (5) 输出Log:

    MsgBox sString

    案例解析:解析拷贝路径下所有Excel到一个工作表下的示例:

    ************************************************************************************************************************************

    Sub 合并当前目录下所有工作簿的全部工作表()  #模块名称
    Dim MyPath, MyName, AWbName	  		#变量声明
    Dim Wb As workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Application.ScreenUpdating = False			#停止屏幕刷新
    MyPath = ActiveWorkbook.Path				#获取当前工作文件路径
    MyName = Dir(MyPath & "\" & "*.xls")		#获取当前文件名(截取字符串)
    AWbName = ActiveWorkbook.Name			#获取当前BookName
    Num = 0								#准备进入循环处理
    Do While MyName <> ""					#第一个循环体:遍历所有文件 终止条件是 文件名为空
    If MyName <> AWbName Then				#条件:文件名当前激活文件不同
    Set Wb = Workbooks.Open(MyPath & "\" & MyName)		# 设置工作表的名称(当前Sheet Name)
    Num = Num + 1						#计数用于输出
    With Workbooks(1).ActiveSheet
    .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
    #赋值语句:激活Sheet的A列最后一个单元格赋值为MyName去掉‘.xls’的部分
    #Left 截取字符串 去掉了'.xls'
    #workbooks(n) 为取工作簿 的写法
    #A65535(一个极大数)单元格向上,最后一个非空的单元格的行号
    For G = 1 To Sheets.Count					#嵌套循环体:遍历文件的所有Sheets
    Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)	
      	#赋值所有内容到以结束内容空一行开始的表格中
    Next									#且套循环体结束							
    WbN = WbN & Chr(13) & Wb.Name			# & 为合并字符串的符号		
    Wb.Close False							#对于文件操作结束,关闭Excel文件
    End With								#退出第二个判断
    End If								#退出第一个判断
    MyName = Dir		 					#怎么拿到第二个bookName
    Loop									#循环体结束
    Range("B1").Select						#选中B1
    Application.ScreenUpdating = True			#允许Excel屏幕刷新
    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
    End Sub

     

    ************************************************************************************************************************************

    常用模块:

    1. 把一个workBook的一块表格拷贝到另一个WorkBook中的一般化方法:

    上面的代码中是一种简单的实现:拷贝所有内容到空行区域

    需要将拷贝的内容和粘贴的位置控制更加精准控制:

     

    拷贝指定位置到指定位置:

    Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")

    2. 找到粘贴位置:

    b=sheet2.[BI].end(xlToLeft).row+1 获取最后一次编辑的各自的列号!
    
    .Range("B65536").End(xlUp).Row + 2 最后一次编辑的格子的行号

    A1 直接编辑

    .Cells(nRowNo, nColNo)

    ...

     

     

    实战案例分析:一个将多个相同格式表格合并生成横表的例子:

    Sub 合并当前目录下所有工作簿的全部工作表()
    
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Dim HasTitil As Boolean
    Dim LastRange As String
    Dim CurRowNo As Long
    
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
    HasTitil = False
    
    With Workbooks(1).ActiveSheet
    .Cells(1, 2) = "Cor.Name"
    Do While MyName <> ""
    If MyName <> AWbName Then
    Set Wb = Workbooks.Open(MyPath & "\" & MyName)
    Num = Num + 1
    .Cells(1, Num + 2) = Left(MyName, Len(MyName) - 4)
    
    If HasTitil <> True Then
    
    Wb.Sheets(1).Range("A4:B43").Copy .Cells(2, 1)
    Wb.Sheets(1).Range("E4:F43").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(2).Range("A5:B73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(2).Range("E5:F73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(3).Range("A4:B32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(3).Range("E4:F32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    Wb.Sheets(4).Range("A5:B100").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
    
    HasTitil = True
    End If
    
    CurRowNo = 2
    Wb.Sheets(1).Range("D4:D43").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 40
    Wb.Sheets(1).Range("H4:H43").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 40
    Wb.Sheets(2).Range("D5:D73").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 69
    Wb.Sheets(2).Range("H5:H73").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 69
    Wb.Sheets(3).Range("D4:D32").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 29
    Wb.Sheets(3).Range("H4:H32").Copy .Cells(CurRowNo, Num + 2)
    CurRowNo = CurRowNo + 29
    Wb.Sheets(4).Range("D5:D100").Copy .Cells(CurRowNo, Num + 2)
    
    Wb.Close False
    End If
    MyName = Dir
    Loop
    
    End With
    
    Range("B1").Select
    Application.ScreenUpdating = True
    End Sub

     

    展开全文
  • VBA基本语法整理

    万次阅读 多人点赞 2018-08-11 10:18:52
    1. VBA 局部变量和全局变量 1. 局部变量 在Sub或者Function结构中定义的变量 通常使用Dim关键词来声明,但是可以不声明使用(不报错) 2. 全局变量 在Sub或者Function外部(尽量在整个代码顶部),使用Public...
  • VBA基础知识整理

    万次阅读 多人点赞 2017-12-16 17:05:54
    最近由于项目的需要,需要在Excel自定义一些函数,来完成特殊的处理,为了完成工作,就囫囵吞枣的写了一些代码,现在闲暇下来,就好好的学习一下,VBA的基础知识。1.变量 1.Dim <<variable_name>> As ...
  • VBA常用对象

    千次阅读 2018-01-21 17:36:31
    VBA中有四个最基本的概念:对象、属性、方法与事件。  工作簿、工作表、单元格、批注、透视表、自选图形、名称等等都是对象,VBA正是用于处理这些对象的语言。 第一,excel vba对象基本概念介绍  excel vba对象...
  • vba

    千次阅读 2007-10-29 19:32:00
    vba處理資料的經驗談
  • 作者:iamlaosong 我常用下面方式取得有效行数: maxrow=sheets(1).[A65536].End(xlUp).Row 实际使用中发现这种方法存在2个问题: 1、高低版本不兼容,2007版最大行数增加以后,就不能用65536了,而要用1048576,即 ...
  • VBA SPLIT函数详解

    万次阅读 多人点赞 2019-01-31 13:25:26
    VBA编程是经常会用到字符串拆分函数SPLIT,用法也不复杂,但是大家对于这个函数的参数未必完全了解,下面结合示例讲解一下参数的用法。 SPLIT函数的语法格式如下: Split(expression, [ delimiter, [ limit, [ ...
  • 一键解决WPS中的VBA支持库安装问题

    万次阅读 多人点赞 2019-06-06 11:01:28
    解决 WPS中的VBA问题 在网上看了好多基本都是垃圾文件 ,用不了 话不多说 ,自己亲身经历 直接用 链接:https://pan.baidu.com/s/1uma1TOQy_wdDbG--HH-VWg 提取码:j4r2 完美 ...
  • VBA编程实现不重复随机数输出。VBA里的随机函数是RND,在工作表中随机函数是RAND,一字之差,可要记好了。RND取值范围是[0,1),意思是0和1之间的一个随机数,包含0,但不包含1。 1、用法 语法:Rnd[(number)]  如果...
  • 很详细的VBA语法介绍: 一、VBA入门知识 。。。 二、了解对象、属性、方法和事件 1、了解对象、属性、方法和事件 2、Application 对象 3、Workbook 对象 4、Workbooks 属性 5、Range 对象 6、Range 属性 7、Cells ...
  • > 以前用的wps是需要自己单独再安装vba插件的,现在更新的wps都是自带vba的,在菜单栏>开发工具可以看到,因而这里简单给出wps版本的说明 > 此次更新将在wps2019教育版上重新做一遍,耗时巨大; 时隔两年,已经做了...

空空如也

1 2 3 4 5 ... 20
收藏数 50,159
精华内容 20,063
关键字:

vba