Excel VBA不会关闭我打开的工作簿_VBA关闭工作簿，但以前打开的工作簿除外_Excel VBA无法打开工作簿 - 腾讯云开发者社区

在工作中我们常常会在一个工作簿的一个工作表中输入数据，再另存为一个新的工作簿。如：在文件“自动工具.xlsx”中有一个工作表为“模板”。...我想在“模板”工作表中输入数据，再另存为一个新的文件为“小龙女.xlsx” 【知识点】下面是本个收藏的代码，三种方法，以备用【代码】 '方法一：复制工作表另存为新的工作簿 Sub copySaveAs...Filename:=ThisWorkbook.Path & "\小龙女.xlsx" ActiveWorkbook.Close SaveChanges:=True End Sub '方法二：复制工作表为新的工作表...，写入数据，再移动工作表另存为新的工作簿 Sub MoveSaveAs() wsh_num = Worksheets.Count Worksheets("模板").Copy After:...，再复制工作表到新工作簿中 Sub AddCopySaveAs() Path = ThisWorkbook.Path & "\" Set newwb = Workbooks.Add

9.3K4 0

Excel VBA常用功能加载宏——打开活动工作簿所在文件夹

我们在使用电脑的时候，如果打开的窗口太多，任务栏会比较混乱，一般我们就会关闭一些不需要的窗口，比如文件夹等。...在使用Excel的时候，偶尔我们又需要打开一些工作簿的所在文件夹去操作，这时候找起来可能就有点麻烦了。...在VBA里使用过Workbook对象就能知道，调用Path属性就能获取到工作簿所在的文件夹，所以，使用VBA就可以快速打开活动工作簿所在的文件夹： ?..." imageMso="FileOpen" supertip="打开活动工作簿所在的文件夹。"...所以程序运行会弹出一个黑窗口，那个就cmd的窗口。路径有空格的时候我记得是会出问题的，可能原来是XP系统，我电脑WIN7系统测试没有出问题。

2.3K3 0

您找到你想要的搜索结果了吗？

是的

没有找到

VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程

学习Excel技术，关注微信公众号： excelperfect 有时，我们可能需要知道工作簿中有哪些模块和相应的过程。...Jon Peltier改编了VBA过程，可以列出当前所有已经打开的工作簿中所含有的VBA模块和过程清单。在输出工作表中，前两行为模块所在工作簿名称和工程名称。...并且，代码会绕过受保护的VBA工程，同时如果工作簿中没有代码，也会在输出工作表中说明。...'创建新工作簿用于输出数据 Set wsOutput =app.Workbooks.Add.Worksheets(1) '遍历打开的所有工作簿 For Each vbProj...图2 从图2中可以看出，我当前打开了3个工作簿，其中两个没有保存也没有代码，另外的工作簿就是GetVBAProcedures过程代码所在的工作簿，有2个模块3个过程。

3.9K2 0

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

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

3.7K1 0

Excel VBA批量转换某个文件夹里的xls工作簿为xlsx

xcel VBA批量转换某个文件夹里的xls工作簿为xlsx ---- Sub 批量转换工作簿() Dim oPath As String '原始文件路径 Dim oFName...End With If Path = "" Then Exit Sub oPath = Path dPath = ThisWorkbook.Path & "\转换结果" '打开工作簿时强制禁止宏...'查找xls文件 oFName = Dir(oPath & "*.xls") '当文件被找到则不断循环 Do While oFName "" '打开工作簿...Then '若含有VB工程，则另存为启用宏的工作簿 dFName = oFName & "m" .SaveAs...oFName & "x" .SaveAs dPath & dFName, xlOpenXMLWorkbook End If '关闭工作簿

1.8K2 0

Excel: 使用Windows任务计划程序定时自动打开指定工作簿

文章背景：上文（参见文末的参考资料[1]）提到，通过Application.OnTime定时执行工作簿中的VBA代码，但是它并不是一个可靠的解决方案。...如果Excel文件关闭，则使用 Application.OnTime 安排的过程也会暂停。本文通过Windows任务计划程序，每天早上8点自动打开指定路径的工作簿，然后激活工作表test。...Activate End Sub 这样，当打开工作簿时，程序会自动激活名称为test的工作表。...测试任务：在一切设置完成后，您可以手动运行该任务以测试是否可以成功打开指定的工作簿并激活工作表"test"。...参考资料： [1] VBA: 通过Application.OnTime定时执行程序 [2] 讯飞星火认知大模型 [3] 怎么在每天的某个时刻自动打开特定excel工作簿(https://www.officeapi.cn

1731 0

Excel VBA在一个工作簿内把总表拆分多个工作表

知识点：字典，主要是item中可以是union(),并进行复制 ======代码如下======= Sub 在一个工作簿内把总表拆分多个工作表() Dim title_rng As Range,...scripting.dictionary") With ActiveSheet On Error Resume Next col_rng = Application.InputBox("请输入要拆分的列...) endrow = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算最后一个工作表的非空行号...endCol = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column '计算最后一个工作表的非空列号...s), .Cells(i, 1).Resize(1, endCol)) End If Debug.Print i Next i MsgBox "将拆分出工作表数有

2.3K4 0

VBA实战技巧：正确登录后才能使用Excel工作簿

当你打开这个工作簿时，Excel会弹出一个登录框，如下图1所示。当你输入正确的用户名和密码后，才能使用这个工作簿，否则会退出。...图1 这个工作簿中有一个名为“用户中心”的工作表，用来存放用户名、密码等信息，如下图2所示。图2 打开VBE，插入一个用户窗体，在其中放置标签、文本框、按钮等控件，并将相关控件命名。...= xlDisabled Sheets("数据").Activate Sheets("用户中心").Visible= xlVeryHidden login.Show End Sub 关闭工作簿...，重新打开，会弹出上图1所示的登录窗口。...注：建议你动手按照文中的介绍实现图1所示的效果。当然，如果想下载示例工作簿，请到知识星球完美Excel社群中下载。欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

9952 0

matinal：Excel用VBA代码一键合并汇总多个工作簿

有时候，你需要将几十个工作簿中的内容，快速汇总至合并至一个工作簿，如果手动一个复制粘贴，那心里有苦说不出。。。...今天将大家用VBA一键合并，只需要几秒种，为了测试这段代码，我们新建了4个工作簿在文件夹中，数据都是模拟的，做试验一键合并代码操作如下所示：我们看原始表格数据，其中，第1个工作簿有点特殊，这个工作簿中...，有两个工作表，第1个工作表的内容是：第2个工作表的内容是：第2，3，4个工作簿中都是仅有1个工作表，如下所示：通过代码，我们一键可以合并，得到结果，这个汇总的结果有两个特点 1、最后一列，还会显示这些数据的来源是哪个工作簿...，哪个表名的。...如下所示：在Excel菜单栏中，点击开发工具，打开VBA，输入如下代码：其中代码如下所示： Sub 合并目录所有工作簿全部工作表() Dim MP, MN, AW, Wbn, wn Dim Wb

7274 0

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

有时候，我们打开了一个工作簿，但长时间没有使用，此时，你可能想让Excel自动将其关闭。也就是说，对于某个工作簿，如果用户在指定的时间内没有进行任何操作，那么Excel会保存并关闭该工作簿。...NUM_MINUTES = 10 Public Sub SaveAndClose() ThisWorkbook.CloseSaveChanges:=True End Sub 你可以修改NUM_MINUTES的值...，设置让工作簿在没有操作的情况下保持开启的时间。...在VBE资源管理器窗口，双击ThisWorkbook打开该模块，输入代码： Private Sub Workbook_Open() On Error Resume Next Application.OnTime...如果在指定的时间内都没有操作工作簿，那么该工作簿将自行保存并关闭。注：本文学习整理自www.cpearson.com，供有兴趣的朋友参考。

1.8K3 0

VBA专题10-4：使用VBA操控Excel界面之设置工作簿视图和窗口

下面是设置工作簿视图和窗口的一些VBA代码。工作簿视图可以选择使用普通视图、页面布局视图、分页预览视图来显示工作表。...普通视图示例代码： '以普通视图显示活动窗口中的活动工作表 ActiveWindow.View = xlNormalView 分页预览示例代码： '以分页预览显示活动窗口中的活动工作表 ActiveWindow.View...= xlPageBreakPreview 页面布局视图示例代码： '以页面布局视图显示活动窗口中的活动工作表 ActiveWindow.View = xlPageLayoutView 如果活动工作表不是标准工作表...xlMinimized .WindowState = xlNormal End With '以全屏模式显示活动窗口 Application.DisplayFullScreen = True '关闭全屏模式...属性可能初始化为True .Split = False End With 说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook

3.3K2 0

Excel实战技巧57：标识并使用VBA代码识别特定的工作簿

有时候，需要使用代码确认某个工作簿是否是特定模板创建，或者是否属于某个应用程序，如果是就打开并操作该工作簿或应用程序。如何实现呢？...一种常用的方法是对工作簿文件添加自定义的文档属性，这样让代码在不打开工作簿的情况下判断是否是想要的工作簿。...为工作簿添加自定义文档属性单击“文件——信息——属性——高级属性”，打开工作簿的“属性”对话框。...图1 安装工具库DSOFile.dll 我们要使用名为DSOFile.dll的COM对象从关闭的工作簿中读取文档属性，因此，需要下载并安装该DLL。...，测试工作簿中是否具有名为MyTestBook的属性，如果是，则弹出下图3所示的消息。

1.7K1 0

Excel实战技巧64：从工作簿中获取数据（不使用VBA）

这是在研读《Escape From Excel Hell》时学到的技术，从本工作簿中或者其他工作簿中获取所需要的数据，以便于作进一步的分析或者绘制Excel图表。下图1所示是用于获取数据的工作表。...用于输入的有4个单元格（背景色为橙色），其中单元格A6中输入源数据（即要从哪里获取数据）所在的工作簿名称；单元格A7中为源数据所在的工作表名称；单元格A8中为源数据起始单元格的名称；单元格C5中为数据所在列号...其中，SourceDataLocation为源数据工作表中数据所在区域的起始单元格名称。在本示例工作簿中，该单元格位置如下图2所示。 ?...如果在图1所示的工作表单元格A6中没有输入任何工作簿名（即留空），那么将获取当前工作簿中源数据工作表（如图2）的数据，如下图3所示。 ?...可以在完美Excel微信公众号底部发送消息：获取数据下载示例工作簿研究。

3K1 0

Workbook工作簿对象方法（二）

大家好，上节介绍过部分工作簿对象的常用方法-创建和打开，本节将继续介绍工作簿对象的激活、保存和关闭方法。...三、工作簿对象activate方法在使用时可打开多个excel工作簿文件，但只有一个excel文件是活动状态。...Workbooks("vba.xlsm").Close 是关闭了单个工作簿vba.xlsm，而workbooks.close则是关闭所有打开的工作簿。...；如果此参数值设置为False，则关闭时将不会保存任何对工作簿的修改。...3、参数Filename指定保存修改的工作簿名称。示例保存关闭工作簿下面以保存并关闭vba.xlsm文件为例。

4.3K2 0

VBA: 打开带密码的Excel文件

文章背景：想要通过VBA打开一份带密码的Excel文件，然后在文件内填入信息。前述要求可以借助workbook.open来实现。 1....Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru], [Local], [CorruptLoad]) Filename 要打开的工作簿的文件名...UpdateLinks 数值为0，代表工作簿打开时不更新外部引用（链接）。 ReadOnly 如果为 True，则以只读模式打开工作簿。...Format 如果 Microsoft Excel 打开文本文件，则由此参数指定分隔符。数值为5，表示没有分隔符。 Password 一个字符串，包含打开受保护工作簿所需的密码。...WriteResPassword 一个字符串，包含写入受保护工作簿所需的密码。 2. 示例代码通过VBA实现的功能：打开带密码的Excel文件，并在文件内填入信息。

3.8K2 1

Excel VBA对象模型

这样你关闭了那个唯一打开的Excel文件，但是这时候，Excel这个程序并没有退出，你还可以看到1个界面，这个就是我们安装目录里，那个叫做EXCEL.EXE（我们双击打开这个，会自动创建1个新的工作簿）...打开后的东西，也就是Excel VBA对象模型里的最高级的Application。...工作簿 Workbooks 国的集合所有打开的工作簿 Worksheet 家工作簿里的工作表 Worksheets 家的集合 1个工作簿里所有的工作表 Range...False关闭了唯一的工作簿一样，只有Application，也就是只有天下，还没有国。...3、打开1个工作簿的时候，Excel到底做了些什么我们电脑上的Excel文件，其本质只是硬盘上的一些数据，也就是010101那种东西。

2.2K3 1

工作簿有密码，自动刷新数据，没问题！ | PQ重要技巧

然鹅，偏偏回到Excel本身，如果工作簿设置了密码，Power Query却没有提供输入密码自动刷新的功能，结果，碰到有密码的Excel工作簿时，刷新就会出错，还提示为“文件包含损坏的数据”……如下图所示...当然不会！这个时候，不要忘了还有咱们的老朋友VBA嘛！通过Power Query与VBA的强强联合，咱们就可以刷新对带密码Excel工作簿数据的自动刷新。...：重要技巧：这里如果直接引用带密码的Excel工作簿，后面的数据处理过程将无法进行，所以，应该先把要加密的Excel工作簿解密，处理好后再重新加密。...- 3 - VBA实现解密刷新通过VBA，我们可以用密码打开数据源工作簿，清除密码，然后刷新查询，刷新完毕后再对数据源工作簿重新加密……是不是很像“把大象放进冰箱里”的三个步骤？...'2、刷新数据 ThisWorkbook.Connections("查询 - 表2").Refresh '3、重新打开工作簿，设置密码并保存关闭 Set wb = Workbooks.Open

3.5K4 1

ChatGPT与Excel结合_编写VBA宏

才知道原来excel也可以写代码，打开方式是：在开发工具中选择VB宏那怎么用ChatGPT与Excel结合来编写VBA宏呢？...案例1 比如我的需求是：写一个基本的Excel vba宏，用于将表格中的第3行到第9行每一行数据转换为一个新的工作簿 VBA宏如下： Sub SplitRowsToNewWorkbooks()...newWorkbook.SaveAs "路径\文件名.xlsx" ' 替换为你想要保存的路径和文件名 ' 关闭新工作簿 newWorkbook.Close...5️⃣改完路径就会弹窗(要关闭这个弹窗才可以打开新的excel表格文件哦) 6️⃣执行完，打开刚刚设置的路径文件，程序执行pass~~ 虽然chatGPT没有理解我的命令是“每一行...---- 案例3 我的需求是：编写一个Excel VBA宏，删除当前Excel工作簿里边所有的图片 Sub DeleteAllPictures() Dim ws As Worksheet

4401 0

ChatGPT与Excel结合_编写VBA宏

3932 0

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

excelperfect 我们可能碰到过这样的情形，正在编辑Excel工作簿时，Excel突然崩溃了（例如Excel老半天都没有响应）或者电脑突然断电了，这让我们来不及保存工作簿。...保留上次自动保留的版本：如果没有保存就关闭工作簿，保留最新版本：它会创建文件的备份版本。注意：确保恢复时间尽可能短以保存更多版本。...当你正在处理尚未保存到任何位置的文件时，Excel崩溃了或没有保存就将其关闭了，此时，重新打开Excel，单击Excel左上角“文件——打开”，再单击右侧的“最近”，接着单击右下方的“恢复未保存的工作簿...图3 打开工作簿后，它会显示一条消息，提示你在使用该文件或对其进行任何更改之前先保存该文件。 ? 图4 注意：Excel保存为备份的文件为“xlsb”格式，因此在保存文件时确保使用正确的格式。...图5 此外，在Excel2010及以上的版本中，还可以重新恢复为工作簿以前的某个版本，可以在“文件——信息”下的“管理工作簿”中找到。欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

1.9K0 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

Excel-VBA复制工作表到新工作簿方法

Excel VBA常用功能加载宏——打开活动工作簿所在文件夹

VBA实用小程序49：列出所有打开工作簿中的VBA模块和过程

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

Excel VBA批量转换某个文件夹里的xls工作簿为xlsx

Excel: 使用Windows任务计划程序定时自动打开指定工作簿

Excel VBA在一个工作簿内把总表拆分多个工作表

VBA实战技巧：正确登录后才能使用Excel工作簿

matinal：Excel用VBA代码一键合并汇总多个工作簿

VBA实战技巧28：自动关闭指定时间没有进行操作的工作簿

VBA专题10-4：使用VBA操控Excel界面之设置工作簿视图和窗口

Excel实战技巧57：标识并使用VBA代码识别特定的工作簿

Excel实战技巧64：从工作簿中获取数据（不使用VBA）

Workbook工作簿对象方法（二）

VBA: 打开带密码的Excel文件

Excel VBA对象模型

工作簿有密码，自动刷新数据，没问题！ | PQ重要技巧

ChatGPT与Excel结合_编写VBA宏

ChatGPT与Excel结合_编写VBA宏

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

扫码

相关资讯

热门标签

活动推荐

运营活动

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐