首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA代码:拆分工作簿示例——将工作簿中的每个工作表保存为单独的工作簿

标签:VBA 有时候,我们想将工作簿中的每个工作表都保存为一个单独的工作簿。 你可以使用下面的操作逐个保存工作表: 1.在工作表标签中单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。 图1 这样,有多少工作表,你就要操作上面的步骤多少次。 然而,如果存在很多个工作簿,这样的重复工作使用VBA是最合适的。...下面是代码: Sub SaveWorksheetsToWorkbook() Dim wks As Worksheet Dim strPath As String Dim strFileName...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分的工作簿中运行上述代码...,就可将该工作簿中的所有工作表全部保存为单独的工作簿。

4.1K11
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    问与答93:如何将工作簿中引用的文件全部复制并汇总到指定文件夹中?

    Q:我在做一个非常巨大的数据,一个主工作簿,还有非常多个被引用数据的工作簿散布在计算机的很多位置。...因为很多数据是临时来的,时间一长,我已经搞不清到底引用了哪些工作簿,有没有办法自动把相关工作簿打包在一起? A:这只能使用VBA来解决了。...例如下图1所示,在工作簿的工作表Sheet1中有几个单元格分别引用了不同位置工作簿中的数据,我们要把引用的这几个工作簿复制到该工作簿所在的文件夹中。 ?...图1 可以使用下面的VBA代码: Sub CopyFiles() Dim rng As Range Dim rngFormulas As Range Dim wks As Worksheet...,可以试试看。

    2.5K30

    Excel小技巧78:恢复未保存的Excel工作簿

    图1 这里有3个选项,可供你根据需要进行配置: 将文件保存为此格式:可以选择要将未保存的文件的保存的工作簿格式。 保存自动恢复时间间隔:可以设置自动保存文件的持续时间(以分钟为单位)。...保留上次自动保留的版本:如果没有保存就关闭工作簿,保留最新版本:它会创建文件的备份版本。 注意:确保恢复时间尽可能短以保存更多版本。...除此之外,还有一个“自动恢复例外情况”选项,可以帮助恢复文件的最后未保存版本(保存一次)。 默认情况下,上述选项都已被激活,并将未保存的工作簿连续保存在你的系统上。...图2 将显示一个“打开”对话框,导航到未保存文件的文件夹(其路径见上图1),如下图3所示,找到并选择你要的文件。 ?...图5 此外,在Excel2010及以上的版本中,还可以重新恢复为工作簿以前的某个版本,可以在“文件——信息”下的“管理工作簿”中找到。 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    2.1K00

    一起学Excel专业开发21:Excel工时报表与分析系统开发(3)——自定义用户界面

    Excel 2003及以前的版本的,虽然Excel 2007及以后的版本将用户界面由原来的菜单和工具栏修改成了现在的功能区,但仍能加载原来的自定义用户界面,只是将它们放置在功能区“加载项”选项卡中。...设置背景图片 最简便的方法是将应用程序工作簿中的一个工作表作为其“桌面”,向其中添加背景图片,并将工作簿最大化,设置工作表的显示属性使其显示范围扩大到整个Excel窗口,去除工作簿窗口中的控制框和最大最小化按钮...代码如下: '从加载宏复制背景工作簿到新建工作簿并进行配置 Sub PrepareBackDrop() Dim wkbBook As Workbook '已经有背景对象吗?...自定义命令栏 对于Excel 2003及以前的版本来说,大多数独立式应用程序都包括一套自已的菜单或工具栏,用于调用相应的功能操作。如本示例所示: ?...有兴趣的朋友,可以在完美Excel公众号底部发送消息: 工时分析系统程序 下载示例工作簿研究。

    1.9K10

    一起学Excel专业开发20:Excel工时报表与分析系统开发(3)——启动与关闭

    在关闭时,应用程序删除用户接口并将Excel恢复到该应用程序运行前的原有状态。...版本和独立性检查 Excel各版本之间还是存在差异的,特别是从97版到2000版、从2003版到2007版,因此,在应用程序运行时必须满足其所要求的最低版本。...例如,这里的应用程序要求Excel的最低版本为Excel 2000,故首先应该检查Excel的版本,不允许使用Excel 2000以前版本的用户能够打开应用程序。...2.对于检查是否安装了其他应用程序,可以利用API函数直接查看注册表,或者使用函数CreateObject来创建一个应用程序的进程实例,并判断是否创建成功。...5.关闭任务栏中的窗口。因为可能会处理多个打开的工作簿,此时不允许用户在这些工作簿之间进行跳转。 6.不允许定制命令栏。 7.针对Excel 2002及其以后的版本关闭自动恢复功能。

    1.4K20

    仿Excel的撤销功能

    标签:VBA,工作表事件 这是在www.vbaexpress.com中看到的一个示例,实现了自己以前想做而未做的事情。...也就是,模仿Excel的撤销功能,特别是当VBA代码对工作表进行操作后,使用Excel原始的撤销功能是无法恢复的,但可以使用VBA代码来实现,似乎就像Excel的撤销功能一样。...主要思路是使用一个工作表,来记录对工作表所做的修改,如果要撤销这些修改,就从这个工作表取出原来的值来恢复。注意,本文的示例只针对特定区域,且只能撤销两次。..., "UNDO" End Sub 有兴趣的朋友,可以到原网站搜索并下载该示例工作簿。...或者,在完美Excel微信公众号中发送消息: 仿撤销功能 获取示例工作簿下载链接。 或者,直接到知识星球APP完美Excel社群中下载该工作簿。

    17610

    Excel文件受损基本急救方法四则

    1、转换格式法 这种方法就是将受损的Excel工作簿重新保存,并将保存格式选为SYLK格式;一般情况下,大家要是可以打开受损Excel文件,只是不能对文件进行各种编辑和打印操作的话,那么笔者建议大家首先尝试这种方法...,来将受损的Excel工作簿转换为SYLK格式来保存,通过这种方法可筛选出文档中的损坏部分。...2、直接修复法 最新版本的Excel具有直接修复受损文件的功能,大家可以利用Excel新增的“打开并修复”命令,来直接检查并修复Excel文件中的错误,只要单击该命令,Excel就会打开一个修复对话框,...的提示信息,此时大家可插入Microsoft Office安装盘,来完成该功能的安装任务; (3)接着Word程序会提示大家,是选择整个工作簿还是某个工作表,大家可以根据要恢复的文件的类型来选择; (4...”,在出现的文件保存对话框中输入文件的具体名称;程序在缺省状态下,将文件保存在以前的文件夹中; (3)想要查看文件受损修复信息的话,可以直接单击“显示修复”命令; (4)完成了对所有要保留的文件相关操作后

    1.2K140

    Excel小技巧79:如何跟踪Excel工作簿的修改

    启用跟踪并不意味着你可以通过撤消更改将电子表格及时恢复到以前的状态。它基本上是一个记录一切的日志文件。你可以手动查看删除或添加了哪些数据,但你必须自己对电子表格进行更改。 2....这意味着下次打开它时,你将无法看到45天前所做的更改。 4. 无论何时开启跟踪,工作簿都将成为共享工作簿。这意味着多个用户将对文档进行更改。...单击“修订”按钮左侧的“共享工作簿”按钮。弹出“共享工作簿”对话框,单击“高级”选项卡,如下图5所示。 ? 图5 在这里,你可以将保存更改历史记录的天数更改为30天以外的天数。...查看更改 开启跟踪并进行一些更改后,可以再次单击“修订——突出显示修订”按钮,你将注意到“在新工作表上显示修订”复选框不再是灰色显示,如下图6所示。 ?...单击“确定”,Excel将开始显示所做的每个更改,并为你提供接受或拒绝的选项。如果愿意,还可以全部接受更改或全部拒绝更改,如下图8所示。 ? 图8 如果拒绝更改,将立即恢复到该单元格中原来的内容。

    6.6K30

    《Python for Excel》读书笔记连载1:为什么为Excel选择Python?

    当你每天花费很多时间手动更新Excel工作簿,或者经常处理涉及到财务或者重要任务的工作簿时,你应该学习如何使用编程语言使流程自动化。...与你手工操作Excel电子表格相比,自动化消除了人为错误的风险,并允许你将更多的时间花在更高效的任务上。你可以考虑VBA,也可以考虑Python,特别是对于数据量大和公式多的工作簿。...测试 当告诉Excel开发人员测试他们的工作簿时,他们很可能会执行一些随机检查:单击一个按钮,查看宏是否仍然执行它应该执行的操作,或者更改一些输入,并检查输出是否合理。...版本控制 专业程序员的另一个特点是他们使用系统进行版本控制或源代码控制。版本控制系统(VCS)跟踪源代码随时间的变化,允许你查看谁修改了内容、修改时间和原因,并允许你在任何时间点恢复到旧版本。...PowerQuery连接到多种数据源,包括Excel工作簿、CSV文件和SQL数据库,还提供与Salesforce等平台的连接,甚至可以扩展到与未开箱即用的系统的连接。

    5.3K20

    Excel事件(四)事件顺序

    如果有多个工作簿,则切换工作簿时也将产生该事件 3、workbook_beforesave事件:保存工作簿之前产生该事件 4、workbook_beforeclose事件:关闭工作簿之前产生该事件 5、...workbook_deactivate事件:关闭工作簿时,在beforeclose事件之后产生该事件,如果有多个工作簿,在切换工作簿时,非激活状态的工作簿将产生该事件。...单元格的值会再次更改和弹窗。(值虽然都是“内容已更改“,但可以触发了chang事件),导致形成循环。...所以正确使用方法,就是用户更改单元格触发worksheet_change事件时,在代码中把事件触发关闭。然后运行修改代码后,再恢复事件的触发。代码就正常的运行。...---- 本节主要介绍事件的产生顺序,在涉及多个事件使用时注意下顺序即可,然后了解下事件的关闭和开启的使用情境。 后面两节会介绍几个Excel事件的综合示例,会串联一些以前介绍过的内容。

    2.4K30

    VBA代码库10:强制用户启用宏

    还可以使用Excel的 VeryHidden属性来实现工作表的隐藏,这意味着不能使用Excel的菜单来取消隐藏工作表。但是,这只会影响该工作簿,因此用户可以使用另一个工作簿中的宏取消隐藏所有工作表。...注意:为防止某些事件循环问题,此代码需要覆盖Excel内置的Save事件,并且还需要复制Excel的“工作簿已更改,您要保存”提示和操作,代码负责所有这些工作。...但是,在关闭文件时确实会产生一个非常小的问题。如果用户尝试退出该应用程序,它将关闭工作簿,而不是Excel。再次退出将完全关闭Excel。...newFname = "False"Then ThisWorkbook.SaveAs newFname Else ThisWorkbook.Save End If '恢复文件还原到用户所在的位置...代码放置在ThisWorkbook代码模块中。 2. 工作簿中应该有一个名为“欢迎”的工作表,否则你要将代码前面的常量WelcomePage设置为用户没有启用宏时的提示工作表名称。

    2.5K40

    VBA: 隐藏模块中出现编译错误:的解决对策

    2 更新旧版本的VBA代码 对于在 Office 2010 版本之前(VBA 版本 6 和更早版本)编写的 VBA 代码,需要修改为在 64 位 Office 版本中运行,否则在 64 位平台上运行时会导致错误...在 64 位 Office 中运行旧 VBA 代码的问题在于,将 64 位加载到 32 位数据类型中会截断 64 位数。这会导致内存溢出、代码中出现意外结果,并且可能导致应用程序故障。...下面这种方法可以避开VBA工程的密码验证。具体步骤如下: (1)新建一个工作簿(xlsm格式)(记为工具文件),在工作簿内新建一个模块。将以下代码复制到模块内。..." End Sub (3) 打开需要破解VBA工程密码的工作簿。...(5) 双击刚才要解密的VBA工程窗体,发现已经可以查看之前受保护的模块代码了。

    14K11

    订阅消息失败_无法进入苹果订阅页面

    但如果后台进程在处理极大且非常复杂的仪表板,30 分钟可能就不够。您可以检查非数据提取后台任务管理视图,看看是否出现了这种情况。...恢复挂起的订阅 管理员和订阅所有者可通过以下几种方式恢复订阅: 通过“内容设置”中的“我的订阅”选项卡 通过每个工作簿的“订阅”选项卡 通过“任务”下的“订阅”选项卡(仅限服务器管理员) 订阅恢复之后,...通知失败计数将恢复为零。...下一次订阅评估将在下次计划的评估时进行。 无法将订阅频率设置为“数据刷新时” 如果工作簿使用一个数据提取已发布连接,可以将订阅设置为在数据提取刷新时运行。...例如:http://tableauserver/views/SuperStore/sheet1.png#1 升级到 9.0 后,自定义脚本不工作 在版本 9.0 中,服务器 URL 末尾的会话 ID 由

    3.3K10

    一起学Excel专业开发17:Excel工时报表与分析系统开发(2)——创建特定应用加载宏

    注:所谓特定应用加载宏,是指只能在专门为它所设计的工作簿上工作的一类加载宏。...Excel工时报表与分析系统(PETRAS)加载宏的功能: 1.启动和初始化应用程序 2.为应用程序的各项功能创建工具栏 3.打开和初始化“工时输入”工作簿 4.允许用户将数据输入工作簿中的内容复制到预先设定好的合并区...”工作簿的所有实例进程 在《一起学Excel专业开发16:使用表驱动的方法管理工作表用户接口》中,我们已经创建了表驱动的用于接口工作簿的工作表。...然后,初始化所有全局变量,这里的两个全局变量,一个用于存放加载宏的完整路径,一个用于指明加载宏是否在关闭过程中。接着,查找用户接口工作簿,如果找到则继续运行程序,否则显示错误信息并退出应用程序。...,将已定义好的设置应用到这些工作表中。

    1K20

    Excel实战技巧50: 避免因粘贴破坏数据有效性

    然而,将数据复制粘贴到设置了数据有效性的单元格时,会破坏掉数据有效性设置。 利用VBA代码,可以避免因粘贴数据而破坏单元格数据有效性设置。...我原来的思路是,如果是有数据有效性设置的单元格,在用户粘贴数据前,我保存数据有效性设置,在用户粘贴后,使用工作表事件取消用户粘贴的数据,同时恢复原来的数据有效性设置。...If MsgBox("正常的粘贴操作已被禁用.你将粘贴值(不能撤销),是否继续?"...在工作簿关闭或者非当前工作簿时,恢复相应的设置。...再打开工作簿,试试效果,如下图1所示。 ? 图1 标准模块代码的图片版如下: ? ? ? clsCommandBarCatcher的类模块代码的图片版: ?

    7.3K31

    Excel实战技巧:创建带有自定义功能区的Excel加载宏

    创建的这个带有自定义功能区的Excel加载宏将可以有任意工作簿中使用,下面我们详细讲解其创建过程。...第1 步:创建一个新工作簿,将其保存为启用宏的工作簿(本示例使用名称MyCustomRibbon.xlsm)。 第2步:单击“文件——信息”,选择“属性——高级属性”,如下图1所示。...图5 注:如果使用Office 2010及以后的版本,选择“Office 2010 Custom UI Part”,插入customUI14.xml。...图8 此时,在Excel工作簿功能区中出现了一个新的选项卡,如下图9所示。单击选项卡组中的按钮,会调用相应的宏显示信息。 图9 第7步:修改成中文。...最后,将压缩文件扩展名恢复为正常的加载宏扩展名。打开Excel,可以看到自定义的选项卡已经修改成了中文,如下图11所示。 图11

    3.2K20

    一起学Excel专业开发16:使用表驱动的方法管理工作表用户接口

    对工作簿和工作表进行保护,可以有效防止用户更改接口中不能修改的部分。 3.滚动区。对用户接口工作表设置滚动区,可以有效防止用户游离到工作区之外。 4.设置可用性。...用于接口设置的工作表的工具代码 工具代码完成下面两项任务: 1.读取用于接口设置的工作表,为接口工作簿中的每个工作表添加相应的预定义名称。...代码3:将工作表代码名称转换成工作表标签名的自定义函数 Private Function sSheetTabName(ByRefwkbProject As Workbook, _...代码4:读取接口工作簿中预定义名称的值到用于接口设置的工作表中 '从接口工作簿中读取预定义名称设置值到 '用于接口设置的工作表相应单元格中 Public Sub ReadSettings() '...因为直接在接口工作簿中采取手工方式更新设置非常容易,只需要更新每个工作表的预定义名称值即可。在完成这些调整操作后,将最新的预定义名称值写回到用于接口设置的工作表中,以保持驱动表与接口工作簿设置一致。

    95630

    精通Excel数组公式011:令人惊叹的SUMPRODUCT函数

    在Excel 2007及后续版本中,如果要进行多条件计数或求和,首先考虑是否可以使用SUMIFS函数或COUNTIFS函数,因为它们的计算速度更快。 10....在Excel 2003及以前的版本中,不总是可能去使用D-函数,因为它们需要合适的数据集,并且难以将公式复制到其它单元格。 3....在使用Excel 2007及以后的版本时,可能会碰到在Excel 2007发布以前已经创建的带有SUMPRODUCT函数的公式的工作表。 4....如果使用的是Excel 2003或以前的版本,在数据集和条件区域中带有字段名的合适的数据集,不需要复制公式到其它单元格,那么使用D-函数更有效率,公式的计算时间比SUMPRODUCT函数更快。...当使用工作簿引用,然后关闭这个含有外部数据的工作簿时,该工作簿引用将转换为数组并导致该函数显示#VALUE!错误。而SUMPRODUCT函数则不会受到影响。

    6.2K10

    一起学Excel专业开发14:了解Excel应用程序开发的四个阶段

    开发与维护 主要工作是编写应用程序的代码或者更新代码,构建或修改应用程序。主要有两种用于辅助构建代码的方式: 1.代码模板:直接复制基本函数或过程;第三方的代码生成工具。...启动 在应用程序启动时要完成了一系列任务: 1.检查运行环境是否满足应用程序的要求,包括检查操作系统和Excel的版本是否合适、应用程序所依赖的其他程序或文件是否存在。...3.构建或打开动态用户接口元素,包括特定应用程序的功能区选项卡、Excel应用程序级的设置、工作簿模板,等等。 4.注册用户自定义函数。...根据加载宏的类型以及启动时的环境条件处理某些特殊设置,例如当打开加载宏时,如果应用程序的工作簿已处于打开状态,那么应用程序中的所有功能区选项卡元素和快捷菜单应均设置为可用,反之则应该使大部分的功能区元素和快捷菜单项不可用...3.恢复原来的配置环境。在启动阶段保存Excel最初的配置,在关闭阶段进行恢复。

    1.5K20
    领券