精华内容
下载资源
问答
  • 具体操作为: 1.EXCEL打开TXT文本; 2.选择分隔符什么的(已经录制操作); 3.另存为同名EXCEL文件不关闭; ...4.执行一系列操作后(已经录制);...5.保存excel关闭; 6.再打开下一个txt,重复操作~~~~~
  • True '保存修改并关闭该工作簿 End If Next End Sub Rem 判断已打开的工作簿文件后缀名 Function FileExt ( FileName As String ) As String On Error Resume Next If ...

    扩展名也可以是其它的xlsx之类的,自己修改扩展名就行了

    Sub SaveAllAndCloseXls()
        Dim FileName As String
        Dim extensionName As String
        For Each wbk In Workbooks
            FileName = wbk.Name	'获取文件的名字,带扩展名的那种,长这样:report.xls
            extensionName = FileExt(FileName)	'调用FileExt方法,获取文件扩展名,FileName 就是文件的名字啦
            If extensionName = "xls" Then
                wbk.Close Savechanges:=True		'保存修改并关闭该工作簿
            End If
        Next
    End Sub
    
    Rem 判断已打开的工作簿文件后缀名
    Function FileExt(FileName As String) As String
        On Error Resume Next
        If InStrRev(FileName, ".") > 0 Then
            FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
        End If
        If Err <> 0 Then
            MsgBox Err.Description, vbCritical, "Kutools for Excel"
        End If
    End Function
    
    展开全文
  • 学习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社群提供下载。

    展开全文
  • Excel_VBA教程

    2014-09-22 11:36:34
    三、学习微软 EXCEL 2002 VBA 编程和XML,ASP技术 22 第一章 电子表格自动化简介和了解宏命令 22 1了解宏 22 2宏命令的普通应用 22 3写宏之前的计划 23 4录制宏 24 5运行宏 26 6修改宏代码 26 7添加注释 29 8分析宏...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    .................................................................................................................1 1.1 VBA是什么...........................................................................
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    三、学习微软 EXCEL 2002 VBA 编程和XML,ASP技术 22 第一章 电子表格自动化简介和了解宏命令 22 1了解宏 22 2宏命令的普通应用 22 3写宏之前的计划 23 4录制宏 24 5运行宏 26 6修改宏代码 26 7添加注释 29 8分析宏...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    1.2EXCEL环境中基于应用程序自动化的优点................................................................................1 1.3录制简单的宏....................................................................
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    Excel VBA程序设计.doc 目 录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 ...
  • 我正在Linux上运行一些产生某些CSV的任务 ....以下是我尝试的内容:我编写了一个VBScript,它接收CSV文件和其他所需的输入文件,打开excel文件,将CSV复制到excel中,运行一些VBA宏,然后保存并关闭结果 . 在Wi...

    我正在Linux上运行一些产生某些CSV的任务 . 一旦它们生成,我需要将它们复制到excel文件的不同表中,然后运行一些VBA宏来生成报告 . 由于这必须每天多次完成(没有预先定义/固定的时间表),我想自动化它 .

    以下是我尝试的内容:我编写了一个VBScript,它接收CSV文件和其他所需的输入文件,打开excel文件,将CSV复制到excel中,运行一些VBA宏,然后保存并关闭结果 . 在Windows服务器上本地触发时,此VBScript工作正常 .

    我上传了一个更简单的文件版本here,这有点澄清了我的要求(注意我需要运行的宏比这里的宏要复杂得多(~500行)) . 存档中有四个文件:

    Template.xlsm:要将数据粘贴到的报告的Excel模板

    Input_Sheet2.csv:要粘贴到模板中的输入数据到表2中

    Input_Sheet3.csv:要粘贴到模板中的输入数据到表3中

    Run.vbs:触发Excel模板中存在的“复制 - 粘贴”宏的vbscript .

    运行VBScript的命令是:'cscript // Nologo Run.vbs / NoCancel'

    现在,为了自动完成整个任务,我想通过ssh从Linux远程触发这个VBScript . 我在windows框中安装了cygwin ssh守护进程,并促进了Linux机器的ssh连接 . 这个来自Linux的cygwin ssh连接允许运行多个Windows命令,但无法运行VBScript并且不会产生任何excel输出 .

    我无法弄清楚哪个组件有局限性 . 是不是cygwin ssh不能促进VBScript的执行?是VBScript无法远程创建文件吗?是不是Linux上的ssh客户端不允许在GUI格式中打开excel?或者还有另一种从Linux自动执行此任务的方法 .

    谢谢,

    Shubham

    展开全文
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    非常详尽的Excel_VBA程序设计,好不容易才整理搜索到的。 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第...
  • 2.再另外打开你自己需要操作的另一个Excel文件,保持你要操作的工作表做为当前活动工作表; 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏,然后选择本EXCEL文件中的宏InsertPic3); 4.然后会出现文件夹选择...
  • 在使用EXCEL作数据模板的时候,经常会碰到有些字段要求必须输入,但EXCEL没有控制必输的有效机制,使用数据有效性只能在编辑状态下检查数据的有效性,效果往往不理想所以,我使用VBA在数据保存和表格关闭时检查必输...
  • Excel-VBA文件操作5

    2010-07-14 08:11:00
     示例  本示例关闭 Book1.xls,放弃所有对此工作簿的更改。  Workbooks("BOOK1.XLS").Close SaveChanges:=False  本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变,Microsoft ...
  • 02042通过对话框指定文件名和保存位置并保存工作簿(之二) 02043关闭工作簿,不保存 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 02046关闭所有打开的工作簿,保存所有更改 02047删除工作簿中...
  • Excel VBA程序设计》 CHM电子书目录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书的前两个版本均已获得巨大成功,在前两版的基础上,本书升华了已有的精华,结合Excel 2007 的全新特性,是一部技术含量高、实践性强的经典著作。 本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA ...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    本书的前两个版本均已获得巨大成功,在前两版的基础上,本书升华了已有的精华,结合Excel 2007 的全新特性,是一部技术含量高、实践性强的经典著作。 本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA ...
  • '这个代码就是进行二次后处理生成建立新的excel Dim str As String '这个vba代码是后处理的代码,加载阶段未接触上进行修正 Dim wb As Workbook str = Dir("C:\Users\DELL\Desktop\保存\*.*") ' ActiveWindow....
  • End If ...X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then ...ActiveSheet.Protect Password:=641112 ' 保护工作表设置...'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容
  • 1、将需要拆分的EXCEL文件放在一个单独的文件夹,打开这个EXCEL文件,并关闭其他打开的EXCEL文件; 2、excel表格保留一行标题行,并把第一列数据填写为拆分项(文件拆分时将按第一列的内容进行归类合并为一个文件)...
  • 将目标表格保存并关闭 End With End Sub </code></pre> 因为我刚接触VBA不久,目前还是菜鸟在慢慢学习,但最近工作中急需运用VBA实现,所以上网找了相关的代码,自己按照所需进行修改。...
  • body,将复制的内容粘贴到 body 标签所在行的关闭符>之后: <body ...> ◀ ◀ ◀ 将「插件内容」粘贴于此! ... </body> 保存,大吉大利。 选择合适的浏览器 强烈建议使用以下浏览器进行访问...
  • RobustExcelOle处理各种情况下的Excel(和用户)行为,提供一些Excel和JRuby错误的解决方法。 它通过跟踪工作簿和实例来支持跨Excel实例处理工作簿。 在Excel发出通知之前先处理冲突。 支持库引用。 ...
  • python操作excel进阶

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

    2012-10-27 17:09:21
    【提取Flash文件】:将嵌入Excel或者Word中的Flash文件提取出来,保存为Swf文件 【播放Flash文件】:不用专业的播放器,直接选择Flash动画即可播放,且具有自动透明播放功能 【提取选区唯一值】:将选择区域的数据,...
  • excel自动插入目录下的图片

    千次阅读 2013-09-22 20:35:52
    以下是参照百度文库中的描述自己试验成功的步骤...2、将如下信息拷贝到里面,保存并关闭。 Sub insertPic() ' Dir函数批量获取指定目录下所有文件名和内容 On Error Resume Next Application.ScreenUpdating =
  • Excel终极伴侣1.287

    2008-10-24 16:41:04
    当我们需要临时离开电脑而又不想关闭Excel文档时(不局限于Excel文档,也可以是其它,但前提是要运行Excel),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。...

空空如也

空空如也

1 2 3 4
收藏数 61
精华内容 24
关键字:

vba保存excel并关闭