精华内容
下载资源
问答
  • VBA-新建工作簿

    2020-02-26 12:09:43
    这节内容介绍如何应用VBA自动创建工作簿修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子: Sub addnewbook() Dim i As Integer Dim shtname As Variant ...

    新建工作簿

    这节内容介绍如何应用VBA自动创建工作簿,并修改部分内容后保存关闭。和创建工作表类似,创建工作簿仍然使用add方法。下面是一个较为完整的创建例子:

    Sub addnewbook()
        Dim i As Integer
        Dim shtname As Variant
        Dim newbook As Workbook
        Dim arr As Variant
        Dim sht As Worksheet
        
        shtname = Array("a", "b", "c", "d") '新建工作簿中工作表名称
        arr = Array("1", "2", "3", "4", "5", "6") '工作表中内容
        
        Set newbook = Workbooks.Add '创建工作簿
        With newbook
            .ActiveSheet.Name = shtname(0)
            For i = 2 To 4
                .Sheets.Add after:=.Sheets(newbook.Sheets.Count) '创建工作表
                .ActiveSheet.Name = shtname(i - 1) '更改工作表名字
            Next
            
            For Each sht In .Worksheets
                sht.Range("a1").Resize(1, 6) = arr '修改工作表中内容
            Next
            .SaveAs Filename:="D:\data\1.xlsx" '设置保存路径
            .Close savechanges = True '确定可以更改
        End With
    End Sub
    
    展开全文
  • NO.139-NO.142内容是:NO.139:如何做到显示工作簿的路径NO.140:如何做到显示工作簿的名称和完全路径NO.141:关闭当前宏代码运行的工作簿,不保存工作簿的任何更改NO.142:建立新的工作簿并对新建工作簿进行操作...

    8cb7b4a56751d45192bdba6fc2082b9b.png

    分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容多是取至我的“VBA代码解决方案”教程中内容。NO.139-NO.142内容是:

    NO.139:如何做到显示工作簿的路径

    NO.140:如何做到显示工作簿的名称和完全路径

    NO.141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改

    NO.142:建立新的工作簿并对新建工作簿进行操作。

    a56e2c6b6101571d69f55e0bd7d1f361.png

    VBA过程代码139:如何做到显示工作簿的路径。

    Sub mynz()

    MsgBox "名称为:" & Workbooks("book21.xlsm").Path

    End Sub

    代码的解析说明:上述过程过程显示工作簿“book21”的路径。

    cabc3ed2bbf7128eb17bf24a1d8047b7.png

    VBA过程代码140:如何做到显示工作簿的名称和完全路径

    Sub mynz()

    MsgBox "第一个打开的工作簿名字为:" & Workbooks(1).Name

    MsgBox "包括完整路径的工作簿名称为:" & Workbooks(1).FullName

    End Sub

    代码的解析说明:上述过程过程用 MsgBox 对话框显示"第一个打开的工作簿名字。

    68714892d82609bf020d4ebfddb03f3a.png

    VBA过程代码141:关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改

    Sub mynz()

    ThisWorkbook.Close SaveChanges:=False

    End Sub

    代码的解析说明:上述过程过程使用Close方法关闭当前宏代码运行的工作簿,不保存对工作簿的任何更改。

    注意 本属性仅可在 Microsoft Excel内使用。不能使用此属性访问任何其他应用程序的工作

    VBA过程代码142:建立新的工作簿并对新建工作簿进行操作

    Sub mynz()

    Dim Nowbook As Workbook

    Dim ShName As Variant

    Dim Arr As Variant

    Dim i As Integer

    Dim myNewWorkbook As Integer

    myNewWorkbook = Application.SheetsInNewWorkbook

    ShName = Array("余额数", "单价数", "数量", "金额数")

    Arr = Array("1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")

    Application.SheetsInNewWorkbook = 4

    Set Nowbook = Workbooks.Add

    With Nowbook

    For i = 1 To 4

    With .Sheets(i)

    .Name = ShName(i - 1)

    .Range("B1").Resize(1, UBound(Arr) + 1) = Arr

    .Range("A2") = "品名"

    End With

    Next

    .SaveAs Filename:=ThisWorkbook.Path & "" & "库存.xlsx"

    .Close Savechanges:=True

    End With

    Set Nowbook = Nothing

    Application.SheetsInNewWorkbook = myNewWorkbook

    End Sub

    代码的解析说明:上述过程使用Add方法建立新的工作簿并对新建工作簿进行操作。

    代码将Application对象的SheetsInNewWorkbook属性设置为4,在新建工作簿时插入4张工作表。使用Add方法建立新的工作簿,应用于Workbooks对象的Add方法新建工作簿,新建的工作簿将成为活动工作簿。代码使用SaveAs方法将新建工作簿重命名为“库存.xls”保存在同一目录中。代码使用Close方法关闭工作簿。

    VBA实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。

    1. 第一套“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备。
    2. 第二套“VBA数据库解决方案”PDF教程。数据库是数据处理的利器,对于中级人员应该掌握这个内容了。
    3. 第三套“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。
    4. 第四套“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第二册的84讲,第二级阶段的优惠期即将结束。
    展开全文
  • MsgBox "关闭其他工作簿!": Exit Sub '----------设置父文件夹路径----- mPath = "D:\Project overview 2015" fA = Dir(mPath & "\*", vbDirectory) '开始收集子目录名称 k = 0 Do While fA <> "" If fA <> "." ...
  • 学习Excel技术,关注微信公众号:excelperfect下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件,它们与最底层的自定义... 创建新工作簿并保存为启用宏的工作簿。2. 关闭工作簿,然后在CustomUI...

    学习Excel技术,关注微信公众号:

    excelperfect

    下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件,它们与最底层的自定义命令相关。这里的自定义命令是指程序员自已编写的VBA过程。

    添加按钮

    如果要在内置功能区选项卡中添加两个按钮,在单击这些按钮时会调用VBA过程,那么执行下面的步骤:

    1. 创建新工作簿并保存为启用宏的工作簿。

    2. 关闭该工作簿,然后在CustomUI Editor中打开该工作簿。

    3. CustomUI Editor中,单击“插入”并选择“Office 2007 Custom UI Part”。

    4. 选择“Insert | Sample XML | Custom Tab”,作一些修改,或者复制并粘贴下面的XML代码,在功能区“插入”选项卡中添加包含两个按钮(标记为Insert 0Insert 1,带有Mso图像01)的标记为Attn Sh的组。

    b6684f9d37f8b1d647cf44d8fc49c4da.png

    选项卡元素:

    idMso属性的值是内置选项卡的名称。本例中,TabInsert是“插入”选项卡的idMso。如果要在其他内置选项卡中插入按钮,那就使用其他选项卡的idMso替换掉TabInsert

    组元素:

    group元素中label属性的值指定功能区中组显示的文本。

    按钮元素:

    imageMso属性为按钮指定预定义的图像。如果要使用自已设计的图像,只需使用image属性替换掉imageMso属性。

    onAction属性是一个回调属性。该属性的值是在单击按钮时要执行的VBA过程的名称。

    5. 单击工具栏中的Validation按钮来检查是否有错误。

    6. 单击Generate Callbacks按钮。

    由于XML代码中有两个回调属性(每个按钮一个),因此生成两个回调:

    'Callback for BtnInsert0onAction

    SubInsert0(control As IRibbonControl)

    End Sub

    'Callback for BtnInsert1onAction

    SubInsert1(control As IRibbonControl)

    End Sub

    复制回调代码。之后,要将其粘贴到工作簿的VBA模块中。

    7. 保存并关闭该文件。

    8. Excel中打开该工作簿文件。

    9. Alt+F11键打开VBE

    10. 插入一个标准VBA模块并粘贴刚才复制的回调代码。

    11. 添加一些代码来测试这两个按钮:

    'Callbackfor BtnInsert0 onAction

    Sub Insert0(control AsIRibbonControl)

        With control

            MsgBox "单击了" & .Context.Caption &"中的" & .ID

        End With

    End Sub

    'Callbackfor BtnInsert1 onAction

    Sub Insert1(control AsIRibbonControl)

        With control

            MsgBox "单击了" & .Context.Caption &"中的" & .ID

        End With

    End Sub

    单击按钮时会显示:

    fab289c4fc928696a737eca39e4d396e.png

    Insert0回调过程中的参数control3个属性:

    IDXML代码中指定的控件的id

    Context包含该功能区的活动窗口。Context.Caption是出现在该窗口标题栏中的名称,本例中,为该工作簿的名称。

    TagXML代码中元素(本例中是按钮元素)的tag属性的值。通常,标签用于识别控件执行的操作。

    下图展示在功能区的“插入”选项卡出现了含有两个按钮的Attn Sh组。

    5bb9fa9848e497c9b5653a5cdcaf1f7f.png

    说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 HoursChangingworkbook appearance》,仅供学习研究。

    欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料。

    f2a89b8d285054e3a90a5522db84e500.png

    展开全文
  • 学习Excel技术,关注微信公众号:excelperfect本文重点讲解如何在功能区中添加不同类型的内置...2. 创建新工作簿并保存为启用宏的工作簿。3. 关闭工作簿,然后在CustomUI Editor中打开该工作簿。4. 在CustomUI Ed...

    学习Excel技术,关注微信公众号:

    excelperfect

    本文重点讲解如何在功能区中添加不同类型的内置控件。

    添加普通按钮和切换按钮

    按下面的步骤来添加普通按钮和切换按钮(例如,拼写和删除线控件):

    1. 下载并安装Custom UI Editor

    2. 创建新工作簿并保存为启用宏的工作簿。

    3. 关闭该工作簿,然后在CustomUI Editor中打开该工作簿。

    4. CustomUI Editor中,单击“插入”并选择“Office 2007 Custom UI Part”。之所以选择这个选项,是使工作簿与Excel 2007及以后的版本兼容。

    对于Office 2010-2016xmlns属性的命名空间如下:

    xmlns=http://schemas.microsoft.com/office/2009/07/customui

    5.选择“Insert | Sample XML | Custom Tab”,作一些修改,或者复制并粘贴下列XML代码,在功能区“开始”选项卡中的“剪贴板”组之后添加包含两个内置控件的一组标签Fav

    <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

        <ribbon>

           <tabs>

               <tab idMso="TabHome">

                  <group id="Group1label="FavinsertAfterMso="GroupClipboard">

                      <button idMso="Spelling" />

                      <toggleButton idMso="Strikethrough" />

                  group>

               tab>

           tabs>

        ribbon>

    customUI>

    选项卡元素:

    idMso属性的值是内置选项卡的名称。本例中,TabHome是“开始”选项卡的idMso。如果要在其他内置选项卡中插入按钮,那就使用其他选项卡的idMso替换掉TabHome。前面的文章中已经介绍过如何获取识别内置选项卡的idMso的文件。

    组元素:

    13a356ddd74d3aaaa9a9eb50faed0445.png

    按钮元素:

    这个idMso属性的值指定内置控件的名字,本例中,为拼写控件。

    切换按钮元素:

    删除线控件是一个切换按钮。应确定内置控件正确的类型,包括按钮、切换按钮、拆分按钮、组合框、菜单、库、复选框、标签、通用控件或其他类型。

    注意:XML代码区分大小写。例如,idMsoIdMso不相同。

    6. 单击工具栏中的Validation按钮来检查是否有错误。

    7. 保存并关闭文件。

    8. Excel中打开该工作簿文件。

    下图展示在功能区的“开始”选项卡出现了含两个内置控件的名为Fav的组。

    61e3016415b485cedec02880c1f2ed09.png

    注意到,这是对特定文档进行功能区定制,即仅包含XML代码的工作簿显示定制的功能区,当关闭该工作簿时,自动移除功能区中的定制。

    要在其他工作簿中显示定制的功能区,应将工作簿保存为加载宏(Excel加载宏(*.xlam)),并执行下列步骤在Excel启动时装载加载宏文件:

    1. Excel 2010-2019中,选择“文件 | 选项 | 加载项”,Excel选项对话框中显示加载项选项卡。

    Excel 2007中,选择Microsoft按钮|Excel选项|加载项。

    2. 从“管理”下拉控件中选择“Excel加载项”,单击“转到”。

    3. 如果在可用的加载项列表中没有你的加载项,单击“浏览”按钮查找到你保存该加载项的文件夹中的文件。

    4. 在可用的加载项列表中选中该加载项前的复选框。

    5. 单击“确定”安装加载项。

    如果要卸载该加载项,简单地重复上述步骤并取消选中该加载项前的复选框。

    添加不同类型的控件

    在本例中,你将学习如何在自定义选项卡中添加8个按钮(其中3个水平排列且没有标签)、2个切换按钮、1个拆分按钮、4个对话框启动器、2个组合框、2个菜单、2个库、1个标签控件、1个编辑框、2个复选框、1个通用控件和1个内置控件组。

    重复上文介绍的自定义功能区的5个步骤,但在第5步中输入下面的XML代码:

    0c7254eeb56be9cca1cfe228023e9f26.png

    2cd7631d24fa8325616944213bb837ec.png

    buttonGroup元素用于水平地排列一组按钮。如果要水平排列一组组合框、菜单、库、复选框、标签或者普通控件,应使用box元素。

    下图展示了上述XML代码的效果:

    fa6fd9f25622d24c89e32136f798bb0d.png

    添加通用控件

    当在功能区中添加内置控件时,也可以使用控件元素而不是指定其类型。这样可以用于所有内置控件而不管其实际类型。如下面的XML代码所示:

    b0347a40b0d829b7ac6c2a1861f6f0a3.png

    052ba4f1b35a79d5820e1330465aec8e.png

    下图展示了上述XML代码的效果:

    3cb50121ed72ceda3efd66f21df86393.png

    说明:本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 HoursChangingworkbook appearance》,仅供学习研究。

    欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料。

    7d60450ffa739ccc92490ef1abae5662.png

    提示:本系列的电子版图书已在完美Excel社群提供下载。

    展开全文
  • VBA程序集(第1辑)

    千次阅读 2011-07-17 22:13:36
    VBA程序集 (第1辑) ****************************************************** 程序1(对工作簿的操作) [程序功能] 关闭工作簿 [情形一] 关闭并保存所有工作簿 Option Explicit  Sub
  • Excel_VBA教程

    2014-09-22 11:36:34
    2.3.2 使用编辑个人宏工作簿中的宏 5 2.4 将宏指定给按钮 6 2.5 将宏指定给图片或其他对象 6 2.6 小结 7 第三课 学习控件 7 3.1 EXCEL开发过程简介 7 3.2 认识不同的控件 7 3.3 向工作表添加控件 7 3.4 设置控件的...
  • 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 02046关闭所有打开的工作簿,保存所有更改 02047删除工作簿中所有定义的名称 02048引用当前工作簿窗口 02049引用新建的工作簿窗口 02050引用特定工作...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    2.3.2 使用编辑个人宏工作簿中的宏 13 2.4 将宏指定给按钮 14 2.5 将宏指定给图片或其他对象 14 2.6 小结 14 第三课 学习控件 15 3.1 EXCEL开发过程简介 15 3.2 认识不同的控件 15 3.3 向工作表添加控件 15 3.4 ...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    2.3.2 使用编辑个人宏工作簿中的宏 13 2.4 将宏指定给按钮 14 2.5 将宏指定给图片或其他对象 14 2.6 小结 14 第三课 学习控件 15 3.1 EXCEL开发过程简介 15 3.2 认识不同的控件 15 3.3 向工作表添加控件 15 3.4 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    2.3.2 使用编辑个人宏工作簿中的宏 5 2.4 将宏指定给按钮 6 2.5 将宏指定给图片或其他对象 6 2.6 小结 7 第三课 学习控件 7 3.1 EXCEL开发过程简介 7 3.2 认识不同的控件 7 3.3 向工作表添加控件 7 3.4 设置控件的...
  • End If ...X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then ...ActiveSheet.Protect Password:=641112 ' 保护工作表设置...'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿并保存其更改内容
  • Excel-VBA文件操作5

    2010-07-14 08:11:00
     示例  本示例关闭 Book1.xls,放弃所有对此工作簿的更改。  Workbooks("BOOK1.XLS").Close SaveChanges:=False  本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变,Microsoft ...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • 2.3.2 使用编辑个人宏工作簿中的宏 5 2.4 将宏指定给按钮 6 2.5 将宏指定给图片或其他对象 6 2.6 小结 6 第三课 学习控件 7 3.1 EXCEL开发过程简介 7 3.2 认识不同的控件 7 3.3 向工作表添加控件 7 3.4 设置控件的...
  • 2.宏会自动复制Sheet2到新工作簿插入你所选文件夹中的全部JPG图片到B列,对应的图片名自动填到C列; 3.图片的大小会自动适应Sheet2的B3单元格,因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     11.2.2 保存关闭所有工作簿  11.2.3 隐藏除选区之外的区域  11.2.4 同步工作表  11.3 VBA技巧  11.3.1 切换布尔类型的属性值  11.3.2 确定打印页面的数量  11.3.3 显示日期和时间  11.3.4 获得字体列表 ...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
     11.2.2 保存关闭所有工作簿  11.2.3 隐藏除选区之外的区域  11.2.4 同步工作表  11.3 VBA技巧  11.3.1 切换布尔类型的属性值  11.3.2 确定打印页面的数量  11.3.3 显示日期和时间  11.3.4 获得字体...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    关闭........................................................................7 其他文件函数................................................................7 二、VISUALBASIC程序设计网络教学...............
  • RobustExcelOle RobustExcelOle帮助控制Excel。...标准任务,例如打开,阅读,编写,保存关闭工作簿 处理同时发生的用户交互 处理各种Excel和用户行为 在打开工作簿时管理冲突(例如,阻止或未保存的工作簿) E
  • python操作excel进阶

    2021-04-07 18:35:49
    xlwings使用xlwings的介绍xlwings的基本操作建立excel表的连接获取工作表更改数据保存工作簿并关闭工作表 xlwings的介绍 xlwings是python的一个第三方库,使用python调用它可以进行excel的操作,使我们的工作效率...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单关闭工作簿 【取文本】:提取混合字符串中的文本 【去文本】:删除混合字符串中的文本 【取字母】:提取混合字符串中的字母 【去字母】:删除混合字符串中的字母 ...
  • Excel百宝箱

    2012-10-27 17:09:21
    可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单关闭工作簿 【取文本】:提取混合字符串中的文本 【去文本】:删除混合字符串中的文本 【取字母】:提取混合字符串中的字母 【去字母】:删除混合字符串中的字母 ...
  • 可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单关闭工作簿 【取文本】:提取混合字符串中的文本 【去文本】:删除混合字符串中的文本 【取字母】:提取混合字符串中的字母 【去字母】:删除混合字符串中的...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】...
  • 第六步: 关闭工作簿MyCustomUI.xlsm。 第七步: 在MyCustomUI.xlsm图标上单击右键,选择“重命名”,在文件名后添加“.zip”扩展名,使其变为一个压缩文件 第八步: 双击该压缩文件,打开压缩包,将customUI...
  • 可通过Ctrl+Shift+T切换显示状态,可以通过右键菜单关闭工作簿 【取文本】:提取混合字符串中的文本 【去文本】:删除混合字符串中的文本 【取字母】:提取混合字符串中的字母 【去字母】:删除混合字符串中的字母 ...

空空如也

空空如也

1 2 3
收藏数 45
精华内容 18
关键字:

vba保存并关闭工作簿