开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

Excel在另一个工作簿中运行宏，引用第一个工作簿中的数据，然后同时关闭这两个工作簿。只有一家会关闭

在Excel中，可以通过运行宏来实现在另一个工作簿中引用数据并关闭两个工作簿的操作。下面是一个完善且全面的答案：

在Excel中，宏是一种自动化操作的方式，可以通过VBA（Visual Basic for Applications）编程语言来创建和运行。宏可以记录和执行一系列的操作，包括数据处理、格式设置、计算等。

要在另一个工作簿中运行宏并引用第一个工作簿中的数据，可以按照以下步骤进行操作：

打开第一个工作簿，确保其中包含需要引用的数据。
按下Alt + F11键，打开VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中编写宏的代码。代码可以使用Excel的对象模型来引用第一个工作簿中的数据。例如，可以使用Workbooks对象来引用工作簿，使用Worksheets对象来引用工作表，使用Range对象来引用单元格范围。具体的代码根据需求而定，可以进行数据复制、计算、格式设置等操作。
编写完宏的代码后，可以按下F5键或点击工具栏上的运行按钮来执行宏。

同时关闭这两个工作簿的操作可以在宏的代码中添加。可以使用Workbooks对象的Close方法来关闭工作簿。例如，可以在代码的最后添加以下语句来关闭两个工作簿：

Workbooks("第一个工作簿的名称").Close
ThisWorkbook.Close

其中，"第一个工作簿的名称"是需要关闭的工作簿的名称。ThisWorkbook代表当前正在运行宏的工作簿。

需要注意的是，如果第一个工作簿中的数据在宏执行完毕后还需要使用，可以在关闭工作簿之前将数据保存到其他位置或变量中。

推荐的腾讯云相关产品和产品介绍链接地址：

腾讯云对象存储（COS）：提供高可靠、低成本的云端存储服务，适用于存储和处理各种非结构化数据。详情请参考：https://cloud.tencent.com/product/cos
腾讯云云服务器（CVM）：提供可扩展的计算容量，支持多种操作系统，适用于各种应用场景。详情请参考：https://cloud.tencent.com/product/cvm
腾讯云数据库（TencentDB）：提供高性能、可扩展的数据库服务，包括关系型数据库和NoSQL数据库。详情请参考：https://cloud.tencent.com/product/cdb

请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求和情况进行。

相关搜索:访问已关闭工作簿中的数据在受保护的工作簿中运行宏删除另一个工作簿中的工作表并关闭使用Excel中的宏超链接大量数据并跨工作簿工作当两个工作簿打开时，引用工作簿中的公式会错误地填写数据在excel中关闭工作簿时，未出现保存/不保存提示 VBA Excel从关闭的文件中获取工作簿对象或通过工作表索引引用Excel SQL表从已关闭的工作簿中复制多个数据区域函数从已关闭的工作簿列表中读取数据(动态)由于溢出错误，无法在整个工作簿中运行Excel宏循环如何在一个工作簿中使用宏来读取和分析多个工作簿中的数据- Excel VBA 将两个工作表作为值复制到新工作簿中，然后保存为今天的日期并关闭工作簿检查另一个已关闭的工作簿中的值在多个已关闭的工作簿中取消隐藏相同名称的工作表如何从用户窗体中的两个不同工作簿中捕获数据到指定的excel工作表(第一个工作簿)？Excel VBA比较两个工作簿中的值，然后复制数据使用宏刷新我的Excel工作簿中的所有数据透视表如何在VBA中引用另一个(打开或关闭)工作簿,并将值拉回？ - Excel 2007 将数据从一个Excel工作簿复制到最后一行中的另一个工作簿如果工作簿是由另一个工作簿的宏打开的，则Workbook_Open中的ExcelAnt加载项将无法运行

相关搜索:

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

从关闭的工作簿中复制数据

标签：VBA 要从关闭的工作簿中复制数据，有很多种方法，下面介绍最基本的一种方法。...假设要将一个工作簿中工作表Sheet2的单元格区域A1:B50的数据复制到当前工作簿的工作表Sheet1相应的单元格区域，可以使用下面的代码： Sub testCopyValueFromClosedWorkbook...wksThis.Range("A1:B50").Value = wksThat.Range("A1:B50").Value wbThat.Close False End If End Sub 代码的思路很简单...：打开选择文件对话框，选择要复制的数据所在的工作簿文件，然后打开该工作簿，将其中数据所在工作表相应单元格区域数据复制到当前工作簿相应工作表区域，然后关闭该工作簿。

1171 0

Python操控Excel：使用Python在主文件中添加其他工作簿中的数据

标签：Python与Excel，合并工作簿本文介绍使用Python向Excel主文件添加新数据的最佳方法。该方法可以保存主数据格式和文件中的所有内容。...在终端使用下面的命令安装： pip install xlwings 示例文件本文用到了两个示例Excel工作簿：主文件.xlsx 新数据.xlsx 可以到知识星球App完美Excel社群下载。...图2 可以看出： 1.主文件包含两个工作表，都含有数据。 2.每个工作表都有其格式。 3.想要在每个工作表的最后一行下面的空行开始添加数据。如图2所示，在“湖北”工作表中，是在第5行开始添加新数据。...那么，我们在Excel中是如何找到最后一个数据行的呢？可以先选择单元格A1，然后按下Ctrl+向下箭头键，则会移至最后一行（对于图2所示的工作表来说是第4行）。...图6 将数据转到主文件下面的代码将新数据工作簿中的数据转移到主文件工作簿中：图7 上述代码运行后，主文件如下图8所示。图8 可以看到，添加了新数据，但格式不一致。

7.9K2 0

Excel编程周末速成班第3课：Excel对象模型

例如，在Sheets集合中，唯一键是工作表的名称，因此： Sheets(1) 引用当前工作簿中的第一个工作表，而： Sheets(“销售数据”) 引用名为“销售数据”的工作表。...如果省略，则Excel会自动添加它。如果你不希望工作簿保存在Excel的默认数据文件夹中，则名称还可以包括驱动器和/或路径信息。...ThisWorkbook，引用正在运行的代码所在的工作簿。活动工作簿的概念很容易理解：它表示活动的并且在屏幕上的工作簿。ActiveWorkbook关键字可能非常有用。...但是，有时一个工作簿中的代码正在处理另一工作簿中的数据，当此类代码需要引用它所在的工作簿而不是要操纵的工作簿时，使用ThisWorkbook关键字。在对加载宏进行编程时，这种情况最经常发生。...要将工作表复制到另一个工作簿，省略After和Before参数。Excel创建一个新的工作簿，然后将工作表复制到其中。提示：无法将工作表直接复制或移动到现有工作簿。

5.1K3 0

Excel宏教程 (宏的介绍与基本使用)

然后再点击”工具”下拉菜单中”宏”下”宏”的”编辑”选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的”帮助”下拉菜单中获得有关的编程帮助。...Basic代码正在运行的工作簿。...需要注意的是：在使用过程中excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。...D3:D5)” 4、引用其它工作簿中的单元格在被引用单元格所在工作表名前加上”[工作簿名]”，即可引用其它工作簿中的单元格。...ActiveSheet.Delete 但在删除前excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭excel的警告提示。

6.5K1 0

一起学Excel专业开发18：Excel工时报表与分析系统开发（2）——创建特定应用加载宏（续）

将工时输入工作簿中的副本保存到预先设定好的合并区图1所示的自定义工具栏中的第一个按钮的作用是将工时输入工作簿的副本保存到合并区，其代码如下： '保存已完成的工时输入工作簿副本到指定的合并位置 Public...首先判断接口工作簿是否处于活动状态，这样可以防止用户单击工具栏中的按钮时，接口工作簿不是当前工作簿而导致的运行时错误。...这是因为在关闭加载宏工作簿时会触发过程Auto_Close，而Auto_Close过程会再次调用ShutdownApplication过程。...ShutdownApplication过程首先删除自定义工具栏，然后关闭工时输入工作簿，如果该工作簿未保存，Excel提示用户要保存工作簿。...在工时输入工作簿关闭后，该过程检查是否还有其他可见工作簿处于打开状态。如果没有，则关闭Excel。如果有可见工作簿处于打开状态，则只关闭该工作簿而不关闭Excel。

1.3K2 0

Excel VBA编程

隐藏活动工作表外的所有工作表批量新建指定名称的工作表批量对数据进行分离，并保存到不同的工作表中将多张工作表中的数据合并到一张工作表中将工作簿中的每张工作表都保存为单独的工作簿文件将多个工作簿中的数据合并到同一张工作表中...标签 on error resume next On Error GoTo 0 如何创建VBA 进入开发工具窗口 2.选择插入模块，然后插入过程，选择子程序 VBA语法规则在Excel中，数据只有文本...语句为： const 常量名称 as 数据类型 = 存储在常量中的数据同定义变量一样，在过程内部使用const语句定义的常量称为本地常量，只可以在声明常量的过程中使用；如果在模块的第一个过程之前使用...excel进行初始化设置，如设置想打开工作簿看到的excel窗口或工作界面，显示我们自定义的用户窗体等 beforeclose事件：在关闭工作簿之前发生 private sub workbook_beforeclose...标签告诉VBA，当程序运行过程中晕倒运行时错误时，跳转到标签所在行的代码继续执行程序，实际上就是让程序跳过出错的代码，从另一个地方重新开始执行程序。

45.7K3 3

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

- 2 - Excel和PQ中的处理为方便实现动态路径，我们先建立一个路径表，类似于我在以前文章（视频）《批量汇总Excel数据的建议解法-1_同一工作簿内多表》里的做法，这里直接在Excel...里处理好数据源的引用路径，既方便Power Query的引用，也方便在VBA里引用：同时将这个表接入到Power Query里：这样，就可以在获取数据源时直接引用已经处理好的路径...：重要技巧：这里如果直接引用带密码的Excel工作簿，后面的数据处理过程将无法进行，所以，应该先把要加密的Excel工作簿解密，处理好后再重新加密。...或者，先复制一份，去掉密码，做好后续处理再修改为对加密Excel工作簿的引用路径。...- 3 - VBA实现解密刷新通过VBA，我们可以用密码打开数据源工作簿，清除密码，然后刷新查询，刷新完毕后再对数据源工作簿重新加密……是不是很像“把大象放进冰箱里”的三个步骤？

4K4 1

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

有时，必须确保用户在打开工作簿时启用宏，否则就不能实现工作簿的效果。由于无法使用宏去打开宏，因此需要一种确保用户启用宏的技术。...下面讲解的方法隐藏除“欢迎”工作表（告诉用户启用宏）之外的所有工作表，并在每次保存工作簿时强制执行该工作表。如果用户在启用了宏的情况下打开工作簿，则宏将不会隐藏所有工作表。...还可以使用Excel的 VeryHidden属性来实现工作表的隐藏，这意味着不能使用Excel的菜单来取消隐藏工作表。但是，这只会影响该工作簿，因此用户可以使用另一个工作簿中的宏取消隐藏所有工作表。...但是，在关闭文件时确实会产生一个非常小的问题。如果用户尝试退出该应用程序，它将关闭工作簿，而不是Excel。再次退出将完全关闭Excel。...代码放置在ThisWorkbook代码模块中。 2. 工作簿中应该有一个名为“欢迎”的工作表，否则你要将代码前面的常量WelcomePage设置为用户没有启用宏时的提示工作表名称。

2.5K4 0

Excel实战技巧78：创建个人宏工作簿

个人宏工作簿是一个文件，可以在应用程序开启时运行其中的VBA代码，就像是运行功能区选项卡中的命令一样。创建个人宏工作簿很简单，如下所示。...步骤1：打开一个Excel工作簿，单击功能区“开发工具”选项卡中的“录制宏”命令，在弹出的“录制宏”对话框中，选取“保存在”下拉列表框中的“个人宏工作簿”，如下图1所示。单击“确定”。 ?...图1 步骤2：在工作表中随便选取一个单元格，然后单击“开发工具”选项卡中的“停止录制”。此时，Excel将自动创建个人宏工作簿文件。...通常，Excel会自动将个人宏工作簿文件保存在默认位置： C:\Users\[insert your username]\AppData\Roaming\Microsoft\Excel\XLSTART...图3 下面，我们将《Excel实战技巧77：实现在当前工作表和前一个使用的工作表之间自由切换》中创建的快捷键功能放到个人宏工作簿中，以便于在所有打开的工作簿中都能使用这个功能。

3K3 0

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

学习Excel技术，关注微信公众号： excelperfect 在文件夹中所有文件上运行宏，或者在Excel工作簿中所有工作表上运行宏，这可能是一种非常好的Excel自动化方案。...例如处理类似的数据工作簿文件并想要提取数据或转换该工作簿。下面给出了适用这种情况的一些VBA程序，这些程序代码整理自analystcave.com，供有兴趣的朋友参考。...2.打开一个单独的Excel进程（应用程序），然后逐个打开每个文件。 3.使用要在每个打开的工作簿上运行的代码替换“在这里放置你的代码”部分。 4.每个打开的工作簿在关闭时不会保存所作的修改。...在子文件夹内所有文件中运行宏当想在文件夹中所有Excel文件上运行宏时，其中的一种情况是遍历所有子文件夹来运行宏。..." End Sub 在工作簿所有工作表中运行宏代码如下： '本程序来自于analystcave.com Sub RunOnAllWorksheets() Dim folderName As String

4.8K1 1

VBA实战技巧32：安装Excel加载宏

这两种方法的操作演示如下图2所示。图2 如果你的加载宏不在“可用加载宏”列表中，则必须单击该对话框右侧的“浏览”按钮，进行查找，然后将其添加到可用加载宏列表中。...所需的值只是加载项的路径及其名称，如下图3所示。图3 选择了哪些加载宏在注册表的另一个位置，Excel会记录选择了哪些加载项（在加载项对话框中检查）。...图4 每个键都包含要打开的加载项的名称（有时还包含一些命令行参数）。如果加载项不在加载项文件夹中，则包含完整路径。注意，这些注册表项在关闭Excel后更新。...Excel可以打开此类文件，但无法安装zip文件夹中的加载项。并且压缩软件会在关闭后立即删除Temp中的该文件夹。然后，会在Excel中得到一个指向已安装加载项的指针，该加载项没有随附的xlam文件。...最后一行关闭加载项打开的所有工作簿。为什么？因为当没有活动工作簿时你无法打开加载项对话框，显然这也会阻止Excel通过VBA将新加载项添加到列表中。

5.3K2 0

EXCEL VBA语句集300

定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示...Application.ScreenUpdating=True ‘打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled ‘禁用Ctrl+Break中止宏运行的功能...) ThisWorkbook.Save ‘保存工作簿 (11) ThisWorkbook.close ‘关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数...对象使 Excel 可见 ExcelSheet.Application.Cells(1, 1).Value = "Data" ‘在表格的第一个单元中输入文本 ExcelSheet.SaveAs...(104) Workbooks.Close ‘关闭所有打开的工作簿 (105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接

2K4 1

VBA专题10-23：使用VBA操控Excel界面之添加动态菜单

下面介绍一个简单的使用动态菜单控件示例，在工作簿中为三个工作表（名为Data，Analysis，Reports）的每个显示不同的菜单。 1. 创建一个新的工作簿，将其保存为启用宏的工作簿。 2....分别重命名工作表为Data、Analysis和Reports。 3. 关闭该工作簿，然后在Custom UIEditor中打开。 4....保存，关闭，然后重新打开该工作簿。...接着，通过在使复选框无效前存储复选框状态的Checkbox1Pressed变量重新赋值该复选框的状态。 5. 保存，关闭，然后重新打开该工作簿。...在VBE中，选择运行|重新设置。当VBE显示标准的错误消息框（因为一个未处理的运行时错误发生），可以单击消息框中的结束按钮。关闭该工作簿文件。

6.2K2 0

xlwings库基本使用

Excel软件 with xw.App(visible=True,add_book=False) as app: # 这样写就不用再写app.kill()了，会自动关闭Excel软件补充：这是我认为比较标准的方式...程序运行的PID，每次启动Excel都不一样可以通过xw.apps.keys()或者任务管理器查看 ---- 工作簿操作（Book）添加工作簿 wb = app.books.add() 或者 wb...') 绑定工作簿如果有多个工作簿同时打开了，想获取活动的工作簿，可以用以下代码： # 第一种方式 wb = xw.books.active # 使用xw接口（可以不用实例化app，但是必须有个excel...如果想获取多个已打开工作簿中的某一个，可以通过索引的方式 wb = xw.books[1] # 第二个工作簿赋给wb变量 # 或者 # wb = app.books[1] 保存工作簿前面三个部分（...wb.save(r'F:\aa.xlsx') # 保存 wb.close() # 关闭 # `wb.close()`要注意一下，关闭的是工作簿，Excel软件没有关闭 ---- 关闭Excel app.kill

7003 0

VBA专题10-6：使用VBA操控Excel界面之执行命令以及激活功能区选项卡的两种方法

“数据”选项卡： Private Sub Workbook_Open() Application.SendKeys "%A%" End Sub 注意，在Excel的有些版本中，在Excel窗口被装载之前...创建新工作簿并将其保存为启用宏的工作簿。 3. 关闭该工作簿并在CustomUI Editor中打开。 4....As IRibbonUI) Set myRibbon = ribbon End Sub 当在Excel中打开该工作簿时，执行Initialize过程，获取功能区对象引用赋值给myRibbon对象变量...使用对功能区的引用，可以接着通过myRibbon对象激活功能区选项卡（以及使功能区中的选项卡和控件无效）。 12. 保存，关闭，然后重新打开该工作簿。...要激活特定的内置功能区选项卡，例如“数据”选项卡，使用下面的代码： myRibbon.ActivateTabMso "TabData" 如果要在打开工作簿时激活“数据”选项卡，在Initialize过程中插入上面的语句

3.9K2 0

ChatGPT与Excel结合_编写VBA宏

你可以在Excel中的"开发者"选项卡中访问VBA编辑器，其中可以编写、修改和运行VBA宏。...案例1 比如我的需求是：写一个基本的Excel vba宏，用于将表格中的第3行到第9行每一行数据转换为一个新的工作簿 VBA宏如下： Sub SplitRowsToNewWorkbooks()...End Sub 请将代码中的"路径\文件名.xlsx"替换为你希望保存的路径和文件名。运行该宏后，会将第3行到第9行的每一行数据复制到一个新的工作簿，并将其保存在指定的路径下。...End Sub 运行该宏后，它会遍历工作薄中的每个工作表，并将每个作表中的图片移动到A1单元格的位置。在移动图片之后，会弹出一个提示框显示操作已完成。...End Sub 运行该宏后，它会遍历当前Excel工作簿中的每个工作表，并删除每个工作表中的所有图片。在删除图片之后，会弹出一个提示框显示操作已完成。

5402 0

ChatGPT与Excel结合_编写VBA宏

你可以在Excel中的"开发者"选项卡中访问VBA编辑器，其中可以编写、修改和运行VBA宏。...案例1 比如我的需求是：写一个基本的Excel vba宏，用于将表格中的第3行到第9行每一行数据转换为一个新的工作簿 VBA宏如下： Sub SplitRowsToNewWorkbooks()...End Sub 请将代码中的"路径\文件名.xlsx"替换为你希望保存的路径和文件名。运行该宏后，会将第3行到第9行的每一行数据复制到一个新的工作簿，并将其保存在指定的路径下。...End Sub 运行该宏后，它会遍历工作薄中的每个工作表，并将每个作表中的图片移动到A1单元格的位置。在移动图片之后，会弹出一个提示框显示操作已完成。...End Sub 运行该宏后，它会遍历当前Excel工作簿中的每个工作表，并删除每个工作表中的所有图片。在删除图片之后，会弹出一个提示框显示操作已完成。

6591 0

Win10：右键新建选项中添加启用宏的工作簿.xlsm

文章背景：工作生活中涉及到VBA，时常要将Excel文件保存为.xlsm格式。而在右键新建的可选项中，一般只有.xlsx文件。下面介绍如何在右键新建选项中添加启用宏的工作簿.xlsm。...（5）在注册表中，找到.xlsx 文件夹，找到Excel.Sheet.12文件夹下的ShellNew文件夹，双击FileName打开，复制其中的数值数据：C:\Program Files\Microsoft...（7）在桌面上新建一个空的启用宏的工作簿，将其重命名为：Excel14M.xlsm，然后将该文件移动到以下路径的文件夹中：C:\Program Files\Microsoft Office\root\vfs...（8）关闭注册表编辑器界面，回到桌面。在桌面上点击右键，选择新建，此时可以看到在可选项中已经有了启用宏的工作簿。...参考资料： [1] 如何在右键中添加“新建启用宏的工作簿.xlsm”(https://jingyan.baidu.com/article/066074d62dca1cc3c21cb099.html)

3.8K1 0

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

设置背景图片最简便的方法是将应用程序工作簿中的一个工作表作为其“桌面”，向其中添加背景图片，并将工作簿最大化，设置工作表的显示属性使其显示范围扩大到整个Excel窗口，去除工作簿窗口中的控制框和最大最小化按钮...： '处理文件->新建菜单项 '关闭任何现有的结果工作簿 '创建一个新的工作簿 '然后启动合并程序 Sub MenuFileNew() '在创建一个新工作簿前,关闭现有的结果工作簿 If...'关闭任何现有的结果工作簿 '询问要打开的新工作簿的名称 '检查它是否是结果工作簿,然后将其打开 Sub MenuFileOpen() Dim vFile As Variant '在创建新工作簿前关闭现有的结果工作簿...专业开发17：Excel工时报表与分析系统开发（2）——创建特定应用加载宏》中，我们使用加载宏和模板创建每周工时表并将它们存储到工作区，ConsolidateWorkbooks过程用来获取这些工时表工作簿并将它们合并和分析...有兴趣的朋友，可以在完美Excel公众号底部发送消息：工时分析系统程序下载示例工作簿研究。

1.9K1 0

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

Excel工时报表与分析系统（PETRAS）加载宏的功能： 1.启动和初始化应用程序 2.为应用程序的各项功能创建工具栏 3.打开和初始化“工时输入”工作簿 4.允许用户将数据输入工作簿中的内容复制到预先设定好的合并区...5.允许用户向“工时输入”工作表中添加更多的数据输入行 6.允许用户清除数据输入区域中的数据，以便重新使用工时输入表 7.允许用户关闭PETRAS程序 8.添加自定义属性，合并程序可据此查找“工时输入...”工作簿的所有实例进程在《一起学Excel专业开发16：使用表驱动的方法管理工作表用户接口》中，我们已经创建了表驱动的用于接口工作簿的工作表。...然后，初始化所有全局变量，这里的两个全局变量，一个用于存放加载宏的完整路径，一个用于指明加载宏是否在关闭过程中。接着，查找用户接口工作簿，如果找到则继续运行程序，否则显示错误信息并退出应用程序。...在接口工作簿初始化完成后，运行过程ResetAppProperties过程，确保Excel应用程序相关的属性均被设置为默认值。

1K2 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭