开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

VBA尝试指定新创建的工作簿而不是活动工作簿(将一些数据粘贴到新工作簿中)

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。在Excel中，可以使用VBA来自动化各种任务，包括创建新的工作簿并将数据粘贴到其中。

要指定新创建的工作簿而不是活动工作簿，可以使用以下代码：

Sub CreateNewWorkbook()
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add ' 创建新的工作簿
    
    ' 在新工作簿中进行操作
    With newWorkbook
        ' 将数据粘贴到新工作簿中
        .Sheets(1).Range("A1").PasteSpecial xlPasteValues
        ' 其他操作...
    End With
    
    ' 保存并关闭新工作簿
    newWorkbook.SaveAs "C:\路径\文件名.xlsx"
    newWorkbook.Close
End Sub

上述代码首先使用Workbooks.Add方法创建一个新的工作簿，并将其赋值给newWorkbook变量。然后，可以在With语句块中对新工作簿进行操作，例如将数据粘贴到新工作簿的指定单元格中。最后，使用SaveAs方法保存新工作簿，并使用Close方法关闭它。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。如果你想了解更多关于VBA的知识，可以参考腾讯云的Excel VBA开发文档：Excel VBA开发。

相关搜索:Excel 2016 VBA活动工作簿一旦我们切换到此工作簿，活动工作簿上的操作将无法完成 Excel VBA:将其他工作簿中的内容粘贴到活动工作簿Sheet2中 excel vba将多个工作簿中的多个工作表合并到一个工作簿中 VBA:将数据导入工作簿中的新工作表 VBA将数据从用户定义目录中的唯一工作簿复制并粘贴到主工作簿 VBA将第一个工作表从已关闭的工作簿导入到活动工作簿 VBA将筛选的数据从一个工作簿复制粘贴到另一个工作簿 VBA打开多个工作簿，复制特定数据，删除重复行，并将信息粘贴到新工作簿中使用另一个工作簿(活动工作簿除外)中的数据将txt文件中的数据复制/粘贴到新工作簿的宏正在粘贴到个人工作簿中

相关搜索:

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

有帮助

没帮助

相关·内容

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

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

3.8K1 0

VBA: 将多个工作簿的第一张工作表合并到一个工作簿中

文章背景：在工作中，有时需要将多个工作簿进行合并，比如将多份原始数据附在报告之后。...一般的操作方法是打开两个工作簿（目标工作簿和待转移的工作簿），然后选中需要移动的工作表，右键单击以后选择“移动或复制”。接下来在新的对话框里面进行设置。这种方法适合在移动少量工作表的时候使用。...如果有很多的工作簿，都需要进行移动的话，一个一个打开然后再操作比较费时费力。这时就可以使用VBA来批量进行操作。...在目标工作簿内，插入一个模块，然后导入如下的代码： Option Explicit Sub MergeWorkbook() '将多个工作簿的第一张工作表合并到目标工作簿中...转移前：转移后：参考资料： [1] 如何使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中（https://zhuanlan.zhihu.com/p/76786888）

5.3K1 1

VBA代码：将整个工作簿中的所有公式转换为值

标签：VBA 这是不是将工作簿中的每个公式转换为值的最快、最有效的方法，请大家评判。有趣的是，不管工作簿中有多少张表，它都是用一个操作来处理的。...通常情况下，都是试图通过遍历工作表来做到这一点，然而并没有那么有效。...Selection.PasteSpecial Paste:=xlPasteValues ActiveSheet.Select Application.CutCopyMode = False End Sub 如果工作簿中有隐藏的工作表...HiddenSheets() As Boolean Dim Goahead As Integer Dim n As Integer Dim i As Integer Goahead = MsgBox("这将不可逆地将工作簿中的所有公式转换为值...注：本文代码整理自ozgrid.com，供有兴趣的朋友探讨。

7054 0

yhd-VBA从一个工作簿的某工作表中查找符合条件的数据插入到另一个工作簿的某工作表中

今天把学习的源文件共享了出来，供大家学习使用上次想到要学习这个结合网友也提出意见，做一个，如果有用，请下载或复制代码使用【问题】我们在工作中有时要在某个文件（工作簿）中查找一些数据，提取出来...常用的方法是打开文件，来查找，再复制保存起来。如果数据少还是手工可以的，如果数据多了可能就。。。。所以才有这个想法。...想要做好了以后同样的工作就方便了【想法】在一个程序主控文件中设定：数据源文件（要在那里查找的工作簿）设定：目标文件（要保存起来的那个文件）输入你要查找的数据：如：含有：杨过，郭靖的数据。...要复制整行出来主控文件设定如图数据源文件有两个工作表查找到"郭靖"的数据保存到目标文件的【射雕英雄传】工作表查找到"杨过"的数据保存到目标文件的【第一个】工作表【代码】 Sub...从一个工作簿的某工作表中查找符合条件的数据插入到另一个工作簿的某工作表中() Dim outFile As String, inFile As String Dim outWb As

5.1K2 2

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

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

2.4K3 0

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

Sheets集合为工作簿中的每个工作表包含一个Sheet对象。说明：为什么包含工作表的集合称为Sheets而不是Worksheets？...例如，在Sheets集合中，唯一键是工作表的名称，因此： Sheets(1) 引用当前工作簿中的第一个工作表，而： Sheets(“销售数据”) 引用名为“销售数据”的工作表。...最后，VBA提供了一些特殊的关键字，可用于引用工作簿： ActiveWorkbook，引用当前活动工作簿。 ThisWorkbook，引用正在运行的代码所在的工作簿。...但是，有时一个工作簿中的代码正在处理另一工作簿中的数据，当此类代码需要引用它所在的工作簿而不是要操纵的工作簿时，使用ThisWorkbook关键字。在对加载宏进行编程时，这种情况最经常发生。...为此，必须使用Range对象将数据复制到Windows剪贴板，然后将数据粘贴到新位置。有关详细信息，请参见本书后续内容。要点回顾你编写的任何VBA程序都将取决于Excel对象模型。

5K3 0

VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件

下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件，它们与最底层的自定义命令相关。这里的自定义命令是指程序员自已编写的VBA过程。...添加按钮如果要在内置功能区选项卡中添加两个按钮，在单击这些按钮时会调用VBA过程，那么执行下面的步骤： 1. 创建新工作簿并保存为启用宏的工作簿。 2....组元素： group元素中label属性的值指定功能区中组显示的文本。按钮元素：其imageMso属性为按钮指定预定义的图像。...之后，要将其粘贴到工作簿的VBA模块中。 7. 保存并关闭该文件。 8. 在Excel中打开该工作簿文件。 9. 按Alt+F11键打开VBE。 10....在Insert0回调过程中的参数control有3个属性： ID：在XML代码中指定的控件的id。 Context：包含该功能区的活动窗口。

4.9K3 0

Workbook工作簿对象方法（二）

四、工作簿对象save方法保存excel工作簿，在VBA中主要是通过workbook工作簿对象的save方法和saveas方法代码thisworkbook.save 表示保存代码所在的工作簿。...如果想将文件另存为一个新的文件，或者第一次保存一个新建的工作簿，就用saveas方法。...2、参数FileName指定要保存的工作簿的名称。可以提供保存的路径，否则将保存到当前文件夹中。 3、参数FileFormat指定工作簿保存的格式。...Workbooks("vba.xlsm").Close 是关闭了单个工作簿vba.xlsm，而workbooks.close则是关闭所有打开的工作簿。...与之前介绍工作表activesheet属性类似。 thisworkbook是对程序所在的工作簿的引用。而activeworkbook则是当前活动的工作簿的引用。

4.4K2 0

常见的复制粘贴，VBA是怎么做的

本文主要讲解使用VBA复制粘贴单元格区域的几种不同方法。预备下面的所有示例都假设示例工作簿处于活动状态，并且整个操作都发生在活动工作簿上。...例如，通过限定指定目标单元格区域的对象引用，可以将单元格区域复制到其他工作表或工作簿。...更准确地说，它假定复制和粘贴操作发生在活动工作簿中。...因此，无论哪个Excel工作簿处于活动状态，引用都能正常工作。 Excel功能区中的复制命令在使用VBA代码复制单元格区域之前，看看Excel功能区中的“复制”按钮命令。...例如，此参数允许指定仅将值（或公式）粘贴到目标区域中。

11.4K2 0

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

SendKeys方法例如，下面的VBA代码模拟按下ALT、A和ALT键： Application.SendKeys "%A%" 将上面的语句放在Workbook_Open事件中，在打开该工作簿时，将激活...创建新工作簿并将其保存为启用宏的工作簿。 3. 关闭该工作簿并在CustomUI Editor中打开。 4....过程的名称赋给它，本例中的过程命名为Initialize，当打开工作簿时调用此过程。...Sub 复制该回调过程，用于稍后粘贴到工作簿的标准VBA模块中。...要激活特定的内置功能区选项卡，例如“数据”选项卡，使用下面的代码： myRibbon.ActivateTabMso "TabData" 如果要在打开工作簿时激活“数据”选项卡，在Initialize过程中插入上面的语句

3.5K2 0

VBA专题10-15：使用VBA操控Excel界面之在功能区中添加自定义标签控件

excelperfect 如果要在功能区选项卡中添加标签，那么执行下面的步骤： 1. 创建新工作簿并保存为启用宏的工作簿。 2. 关闭该工作簿，然后在CustomUI Editor中打开该工作簿。...getLabel是一个回调属性，赋值VBA过程的名称，本例中为getLabel1回调过程。该过程在首次打开该工作簿时或者在使该控件无效时执行。...一旦使某元素无效，任何与该元素相关的数据就被销毁，并且通过调用所有的在XML代码中声明的该元素的回调属性引用的VBA过程来自动刷新该元素。因此，要提高效率，应仅使必需的元素无效。...之后，要将其粘贴到工作簿的VBA模块中。 7. 保存并关闭该文件。 8. 在Excel中打开该工作簿文件。..., " & Application.UserName End If End Sub 关闭后重新打开工作簿，在自定义选项卡中的标签控件显示如下图： ?

2.2K1 0

Excel VBA编程

方法复制单元格区域 cut方法剪切单元格区域用delete方法删除指定的单元格操作对象的一些例子根据需求创建工作簿判断某个工作簿是否已经打开判断文件夹中是否存在指定名称的工作簿文件向未打开的工作簿中输入数据...隐藏活动工作表外的所有工作表批量新建指定名称的工作表批量对数据进行分离，并保存到不同的工作表中将多张工作表中的数据合并到一张工作表中将工作簿中的每张工作表都保存为单独的工作簿文件将多个工作簿中的数据合并到同一张工作表中...Double # currency @ string $ 声明变量可以不指定变量类型：在VBA中声明变量是，如果不确定会将类型的数据存储在变量中，可以在声明变量时，只定义变量的名字，而不是变量的类型。...——add 创建空白工作簿：如果直接调用workbook对象的add方法，而不设置任何参数，excel将创建一个只含普通工作表的新工作簿指定用来创建工作簿的模板：如果想将某个工作簿文件作为新建工作簿的模板...如想删除B3所在的整行单元格，应将代码写为： range("B3").entirerow.delete 操作对象的一些例子根据需求创建工作簿利用VBA创建一个符合自己需求的工作簿，并将其保存到指定的目录中

45K2 1

Excel数据表分割（实战记录）

End Sub 请按照以下步骤操作（Sheet）：打开Excel，按下ALT + F11打开VBA编辑器。在左侧的“项目资源管理器”窗格中，找到你的工作簿，并双击打开。...在VBA编辑器的窗口中，插入新模块（Insert -> Module）。将上述代码复制粘贴到新模块中。关闭VBA编辑器。...如果每10行数据创建一个新的工作簿而不是新的工作表（Sheet），可以使用以下VBA代码：复制代码 Sub 分割数据() Dim 原始表 As Worksheet Dim 新表 As...End Sub 请注意，此代码将创建新的工作簿，并在每个新工作簿中复制相应的数据。你可以根据需求修改代码中的保存路径和文件名。运行代码后，将显示一个弹出窗口，指示成功分割为多少个新表。...End Sub 这段代码在每个新表中通过将标题行和对应的数据行复制到新工作簿来实现分割。新工作簿中的第一行是标题行，接下来的行是对应的数据行。

2792 0

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

而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。...2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表，即一个excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表...Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。...ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。...例如，如果Range对象有两个区域（areas）A1:B2和 C3:D4，Rows.Count返回2而不是4。

6.3K1 0

Workbook工作簿对象方法（一）

一、工作簿对象add方法创建新的工作簿是通过workbooks集合对象的add方法，新建的工作簿为当前活动工作簿。...代码为workbook.add [Template] 1、参数可省略，add方法不加参数时，excel创建新的空工作簿，自动将工作簿命名为“BookN”，其中N为顺次的数字，（可以通过application...对象的SheetInNewWorkbook属性来调整新建工作簿中工作表的数量。）...（可以用于区别新建的文件的名称）将workbooks.add方法生成的新工作簿赋值给了对象变量wb1，将wb1的文件名更改为VBA示例文件" & i & ".xlsx。...（此处用了with语句，可以方便增加其他属性的更改。）二、工作簿对象open方法在使用EXCLE文件时，在VBA代码中打开工作簿是通过workbooks集合的open方法。

5.8K4 0

Excel VBA对象模型

这样你关闭了那个唯一打开的Excel文件，但是这时候，Excel这个程序并没有退出，你还可以看到1个界面，这个就是我们安装目录里，那个叫做EXCEL.EXE（我们双击打开这个，会自动创建1个新的工作簿）...3、打开1个工作簿的时候，Excel到底做了些什么我们电脑上的Excel文件，其本质只是硬盘上的一些数据，也就是010101那种东西。...然后EXCEL.EXE读取那个文件在硬盘上的数据，并解析数据放到了内存中解析过程也就是去创建1个树形的对象模型解析过程会根据文件的情况创建Workbook、Worksheet对象，其实所谓的创建也只是在内存中按一些规则来组织数据...我们用那些Add等语句新添加对象，Excel VBA都会开辟新的内存空间来存放。所以假如你一直添加新的Workbook、Worksheet对象，内存终将耗尽而无法继续添加。...而修改一些单元格值的时候，有的可能是直接在原来的内存地址修改数据即可，有些仍然要新开辟内存空间存放，然后把原来的空间释放掉。所以很多读取属性的语句是要比赋值语句快很多。

2.2K3 1

告诉你什么是Excel VBA对象模型及如何引用对象

这些VBA对象中的每一个又包含其他对象。例如，Workbook对象中包含的一些VBA对象如下： Charts，包含Chart对象。...Names，包含Name对象 VBProjects，代表打开的项目。 Windows，包含指定Excel工作簿中的Window对象。 Worksheets，包含Worksheet对象。...所以，集合允许同时处理一组完整的VBA对象，而不是处理每个单个的对象。以下是常见集合的示例： Workbooks，当前打开的所有Excel工作簿的集合。....）将每个VBA对象连接到上一个对象（对象的父对象）。...（标准模块中代码所在的工作簿），如果你的目的是处理当前工作簿，则上面的代码可进一步简化为： Worksheets(“Sheet1”).Range(“A1”) 如果你要处理的工作表是当前活动工作表，代码又可简化为

4.3K3 0

VBA专题10-20：使用VBA操控Excel界面之隐藏和取消隐藏控件、组和选项卡

visible是设计时属性，而getVisible是运行时属性。例如，下面的示例XML代码永久隐藏“开始”选项卡中的“字体”组和“对齐方式”组： ?...如果活动工作表不是标准工作表，就隐藏该组，否则该组可见。注意，当打开工作簿时，创建ribbon对象。编辑VBA代码可能销毁这个新创建的对象。...试图使与销毁对象相关的控件无效是不可能的，唯一的办法是重新创建ribbon对象重新打开该工作簿。当激活图表工作表时，“开始”选项卡中的“对齐方式”组被隐藏，如下图所示： ?...在Excel 2007中，Invalidate方法使功能区中所有的控件无效。随后，调用HideHomeTab过程。如果活动工作表不是标准工作表，就隐藏“开始”选项卡，否则该选项卡可见。...下面展示了一个示例，当活动工作表不是标准工作表时隐藏自定义选项卡。示例XML代码： ?

7.7K2 0

使用VBA合并工作表

标签：VBA 从多个Excel工作表（子工作表）中获取信息，并用子工作表中的所有数据填充汇总工作表（父工作表），这是很多朋友会提到的常见要求。...如果部分数据是从添加新工作表到工作簿中而增长的，那么获得这些数据的汇总非常方便，例如，添加单独的工作表，包含新月份的数据。...将新工作表信息添加到汇总工作表的一种非常快速的方法是遍历工作簿中的所有工作表，使用VBA合并数据。...图1 工作表中的结构如下图2所示。图2 数据必须从所有子表输入到上图2中的绿色区域。这里的技巧是过程运行时排除汇总表，以便仅将子表或原始数据复制到汇总表中。...上面的过程首先将清除Summary工作表，但标题保持不变，以便将新数据粘贴到该工作表中。此外，还可以将多个工作表中的数据复制到Summary工作表中某个单元格区域的底部。

1.7K3 0

如何通过VBA代码实现禁止用户打印Excel工作表？保护隐私必备技能

一般情况下，为了保护Microsoft Excel工作簿的安全性，会对工作簿进行加密处理，这是保护工作薄安全性的方法之一。...我们可以通过VBA代码来实现禁止用户打印Microsoft Excel工作簿，接下来一起看一下具体操作流程。以素材文件为例，右键单击工作表列表区域的Sheet1，选中右键菜单中的“查看代码”。...在Visual Basic编辑中，双击左侧工程资源管理器中的ThisWorkbook，将以下代码复制粘贴到代码窗口中。...Cancel = True End Sub 这时打印工作薄中任意工作表，会有提示框提醒用户，并禁止打印。有些小伙伴可能会遇到这样的问题，一个工作簿中怎么设置禁止用户打印部分工作表。...今天的分享到此结束，最后的存储文件环节非常重要，需要将包含VBA代码的Excel工作簿另存为“*.xls”或“*.xlsm”格式，否则VBA代码将失效。

1.6K0 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭