在类中包含工作簿的Workbooks.Add
是一个用于创建新工作簿的方法。它是Microsoft Office Excel中的一个功能，用于在Excel应用程序中创建新的工作簿。
概念： 工作簿是Excel中的一个术语，它是一个电子表格文件，可以包含多个工作表。每个工作表都由行和列组成，用于存储和组织数据。工作簿可以包含各种类型的数据，如文本、数字、日期、公式等。
分类： 工作簿可以根据其用途和内容进行分类。例如，可以有用于财务报表的工作簿、用于数据分析的工作簿、用于项目管理的工作簿等。
优势：
- 数据组织：工作簿提供了一种结构化的方式来组织和管理数据。通过将数据分布在不同的工作表中，可以更好地组织和浏览大量数据。
- 数据分析：工作簿中的数据可以进行各种计算和分析。Excel提供了丰富的函数和工具，可以对数据进行排序、筛选、汇总、图表化等操作，以便更好地理解和分析数据。
- 数据共享：工作簿可以轻松共享给其他人。通过将工作簿保存为Excel文件或导出为其他格式（如PDF、CSV等），可以与他人共享数据和分析结果。
应用场景：
- 会计和财务：工作簿可用于记录和分析财务数据，如收入、支出、资产负债表等。
- 数据分析：工作簿可用于数据分析和可视化，如销售数据分析、市场调研、业务报告等。
- 项目管理：工作簿可用于跟踪项目进度、任务分配、资源管理等。
- 数据录入和存储：工作簿可用于数据录入和存储，如客户信息、库存管理等。
腾讯云相关产品和产品介绍链接地址： 腾讯云提供了一系列与Excel和数据处理相关的产品和服务，如云数据库 TencentDB、云存储 COS、云函数 SCF 等。这些产品可以与工作簿结合使用，提供更强大的数据处理和存储能力。
- 云数据库 TencentDB：腾讯云的云数据库服务，提供高性能、可扩展的数据库解决方案。可以将工作簿中的数据存储在云数据库中，实现数据的持久化存储和高效访问。了解更多：云数据库 TencentDB
- 云存储 COS：腾讯云的对象存储服务，提供安全、可靠的数据存储和访问。可以将工作簿中的文件和数据存储在云存储 COS 中，实现数据的备份、共享和跨地域访问。了解更多：云存储 COS
- 云函数 SCF：腾讯云的无服务器计算服务，可以在云端运行代码逻辑。可以使用云函数 SCF 来处理工作簿中的数据，如自动化数据处理、数据转换等。了解更多：云函数 SCF
请注意，以上提到的腾讯云产品仅作为示例，其他云计算品牌商也提供类似的产品和服务。
相关·内容
我有多个Excel工作簿，每个工作簿中都包含多个工作表。
我想有一个宏，它可以帮助我创建(合并信息从)所有的工作表到一个管道|分隔的.csv文件。
这些工作表应按这些工作簿在文件夹中的显示顺序和工作表在这些工作簿中的显示顺序合并/附加到.csv文件中。
宏应要求提供特定于我的分隔符/分隔符，以及基于我的选择的输入和输出路径。
如果输出的.csv文件名为"foldername“+ "Output.csv”，那就更好了。
谢谢,
最好的问候- AJ
浏览 4提问于2010-05-04得票数 0
是否有一种方法可以使用workbooks.add函数并立即在指定目录中创建此工作簿？
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.Path & Name2
上面的第二行应该转到Dropbox文件夹中，但是，workbooks.add会自动在我的文档中创建，这会覆盖第二行代码，因为Application.ActiveWorkbook.Path将成为我的文档。当打开包含宏的原始文件时，如果没有workbooks.add，则该代码将获得的文件夹中应该获得正确的路径。
浏览 3提问于2015-02-08得票数 0
回答已采纳
我正在使用以下函数保存工作簿中的工作表，并将其保存到单独的工作簿。然而，它保存了公式，而我宁愿只将值保存在最终的工作簿中。如何修改它才能使生成的工作簿不包含公式而只包含值？
Sub Sheet_SaveAs(FilePath As String, SheetToSave As Worksheet)
Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
With wb
SheetToSave.Copy After:=.Worksheets(.Worksheets.Count)
浏览 2提问于2013-07-29得票数 3
当我尝试在vba中打开一个新的工作簿时--从基于我个人宏工作簿的宏中--使用：
Workbooks.Add
它系统地打开两本工作簿。
当我使用类似的方法进行相同的尝试时：
Workbooks("book1").Activate
它很少起作用，因为单词"book“后面的数字索引很少与"book1”匹配。
我的最终目的是自动命名创建的工作簿。
然而，vba最终命名了第二个空工作簿，而不是第一个理想的工作簿。
我有办公室365的家。
完整的代码是：
********************
Sub ExportNameAndSave()
ActiveWindow.A
浏览 0提问于2017-06-27得票数 2
打开工作簿时，我正在尝试运行宏。宏应该使用Workbooks.Add创建一个新的工作簿，并以新的工作簿活动结束。然而，无论我如何努力，我似乎都无法做到这一点。
我尝试过的最简单的尝试如下(您可以自己尝试)：
Private Sub Workbook_Open()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Activate
End Sub
或者来自模块本身的这个：
Sub Auto_Open()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Activate
浏览 0提问于2019-08-13得票数 1
回答已采纳
1回答
接收运行时错误“9”：下标超出范围
我试图将所有工作表的副本(或者基本上复制整个工作簿)保存为一个新的工作簿(.xlsx文件类型)，其中包含今天的日期。
代码：
Sub Test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
spPath = "C:\Users\mchun\Documents\Reporting Projects\Report Automation\Pop Counts (Monthly Field Population Reports EXCEL)\"
spF
浏览 1提问于2015-10-22得票数 1
回答已采纳
我有一个大约10页的工作簿，我想要一个宏来创建一个新的工作簿与4页的原始。
我有这个：
Sheets("1").Range("A1:xfd200").Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")
但这只会创建一个包含我需要的工作表的新工作簿。
如果有任何帮助，我将不胜感激。
谢谢！！
浏览 3提问于2018-07-12得票数 1
回答已采纳
如何根据特定条件将工作表移动到新工作簿中？
如果工作表的单元格H1 (或单元格(1，8))包含"PI Fin Ops“，我需要将工作表移动到新的工作簿。
我的猜测如下，但它不起作用。任何帮助都是非常感谢的！
Sub NewWb()
For Each Worksheet In ThisWorkbook.Worksheets
If Cells(1, 8).Value = "PI Fin Ops" Then
Worksheet.Move After:=Workbooks.Add
End If
Next
浏览 1提问于2014-10-01得票数 1
(Excel2007)
我有两段代码。
一个创建并保存一个新的Excel工作簿：
Sub NewWorkBook()
Set NewBook = Workbooks.Add
With NewBook
.SaveAs Filename:="NewBook.xlsx"
End With
End Sub
另一个创建工作表：
Public Sub CreateWorksheets()
Dim n As Integer
n = 1
Dim WrkSheet As Worksheet
For n = 1 To 31
If n > Worksheets.Co
浏览 0提问于2017-09-18得票数 0
回答已采纳
尽管我看过许多与我的问题相同的帖子，但没有一个答案能满足我想要的内容。如果你能把我和一个人联系起来，我会很乐意读的。
我有一本有工作表的工作簿。为了简单起见，假设我的工作簿有一个工作表。我的工作表叫做"Sheet1"，在单元格A1到A4中有数据。
我想要我的VBA代码做的是：
将工作簿'A‘的第1行(特别是单元格'myRange'Create到A4)复制到范围变量--一个新的工作簿，让我们将这一本工作簿称为'B‘给B默认的"sheet1“赋予一个新的名称”timestamp“Open Workbook’B‘(尽管我意识到VBA代码"
浏览 3提问于2012-04-19得票数 6
回答已采纳
在我的代码中，我希望提示用户输入自定义工作簿名称，然后将该工作簿保存在桌面上。由于某些原因，当我尝试将工作簿设置为FilePath时，会收到运行时错误9-下标超出范围。我在其他帖子上做了一些调查，我不确定为什么我仍然得到这个错误。有比我更好的方法吗/我的错误在哪里？
Dim WB As Workbook
Dim WS As Worksheet
Dim WorkbookName As String
Dim FilePath As String
WorkbookName = InputBox("What Do you Want to Name the
浏览 3提问于2021-03-24得票数 0
这个问题我已经纠结了很长一段时间了。
我有一个从我构建的Excel外接程序调用的用户表单，然后测试当前活动工作簿是否包含特定结构。如果不是，它将创建一个具有该结构的新工作簿。我将此工作簿以及我打开的另一个工作簿设置为wb1和wb2。
问题是，用户表单最初是在单击功能区按钮时从活动工作簿(可以是任何工作簿)中调用的，并且基本上锁定在该工作簿上。
有没有办法将用户表单从该工作簿中分离出来，并将其更改为在用户表单的背景中显示我的wb2？
我已经尝试了以下代码，但它只是关闭我的用户表单，不起作用。
Option Explicit
Private Declare PtrSafe Function Fi
浏览 9提问于2019-11-01得票数 2
回答已采纳
我希望从Workbook1复制Sheet2并将其粘贴到新工作簿的Sheet1中，然后将新工作簿另存为Sheet2工作簿1中单元格A1的值。我希望在单击已添加的按钮时触发此宏。
下面是我到目前为止所做的工作，但它创建了两个工作簿-一个具有正确的名称，但没有Sheet2，Workbook1的内容-另一个具有Sheet2，Workbook1的内容，但没有正确的工作簿名称
Sub CreateWorkbook()
Dim n As String
n = ThisWorkbook.Path & "\" & Range("A1").Value &
浏览 0提问于2013-03-12得票数 0
回答已采纳
我有工作簿，其中有数据工作表包含颜色，下拉(与下拉选择，单元格改变其颜色)等格式。我试图创建特定工作表的副本，并使用简单的右键单击并创建副本到新的工作簿，该工作簿创建副本，但不带有基于文本值的单元格颜色。到目前为止，我已经尝试使用不同的VB代码来实现它，这些代码产生了相同的结果--创建新的工作簿和粘贴数据，但没有格式化。我尝试使用以下代码：
Sub CopySheetToNewWorkbook1()
Dim wname As String
wname = ActiveCell.Value
Sheets(wname).Cells.Copy
Set nboo
浏览 3提问于2017-05-30得票数 1
1回答
我想知道，是否有可能编写包含在工作簿模板中的函数，特别是在通过Workbooks.Add("template.xlsm")方法创建该工作簿时执行的特定工作表中。同样重要的是，这个例程将只在创建时执行，只执行。
此外，在执行Add时，我需要向上述函数传递一组参数。这有可能吗？
如果没有，我似乎必须在添加工作簿(现在是另一个项目的一部分)之后立即调用函数(Application.Run)，或者直接操作新工作表的内容，这样就不那么优雅了。
如有任何帮助或建议，我们将不胜感激。
浏览 0提问于2018-10-12得票数 0
我不确定这里出了什么问题。 下面的代码用于从当前工作簿中的一个工作表复制我的所有数据，将其粘贴到一个新工作簿中，然后将该工作簿保存在与当前工作簿相同的目录中。 Sub copy_to_new_workbook()
ThisWorkbook.Sheets("summary_data").Copy
' Create new Workbook
Set NewBook = Workbooks.Add
' Name it and paste data
NewBook.Activate
ActiveSheet.Paste
NewBook.SaveAs Filena
浏览 10提问于2020-01-21得票数 0
回答已采纳
我必须在宏中编写一段代码，将一个包含2,000,000行的Excel工作表分成10个不同的工作表，每个工作表包含20,000行。
一开始，我已经尝试创建了10个不同的工作簿。下面是相同的代码：
Sub AddNew()
Dim i As Integer
For i = 1 To 10
Set NewBook = Workbooks.Add
With NewBook
.Title = "Employee Details[i]"
.Subject = "Employees[i]"
浏览 2提问于2015-05-26得票数 0
1回答
我正在尝试创建一个宏，该宏在按下现有工作簿上的按钮时创建一个新的工作簿。我要将新创建的工作簿保存在与现有工作簿相同的文件夹中，并为其指定新名称？有人能帮帮我吗？
非常感谢您的提前！
这就是我到目前为止拥有的代码，但它不能像我想要的那样工作(找不到对象，也不会将其保存在同一个文件夹中)：
Sub CreateNewWorkBook()
'Adding New Workbook
Workbooks.Add
'Saving the Workbook
ActiveWorkbook.SaveAs Filename:=thisWb.Path & "\Test.xls&#
浏览 3提问于2017-11-15得票数 7
回答已采纳
2回答
我在用
Set NewBook = Workbooks.Add
若要创建新工作簿，请执行以下操作。我需要参考这个工作簿而不保存它。因此，我使用工作簿索引号来引用新的工作簿，是否有一种方法可以检索上一个打开/创建的工作簿的索引号(最高索引号)？
浏览 2提问于2015-07-22得票数 1
回答已采纳
我有多个包含多个工作表的工作簿。每个工作簿适用于每个人。因此，我希望将所有工作表合并到一个新的工作簿中，并为每个人单独保存该工作簿。我不知道如何在新工作簿和现有工作簿之间切换。我不想按文件名引用包含多张工作表的现有文件，因为每个人的文件名各不相同。
Sub MergeSheets()
Dim i As Integer
Dim Newbook As Workbook
Dim ws As Worksheet
Dim PersonName As String
PersonName = ActiveWorkbook.Sheets("Person Profile").Range
浏览 1提问于2016-06-18得票数 0
我一直在尝试这样做:在我用Excel 2016构建的模板中。当模板打开时，Workbook将用于从这个打开的模板创建一个新的工作簿，并将其保存为一个'xlsm‘文件。我无法让Workbooks.Add(模板)工作。到目前为止，我一直在尝试这样做：
dim wb作为工作簿
set wb=workbooks.add(Me)‘运行时错误1004’应用程序定义或对象定义错误。
set wb =workbooks.add(“x：\Users\ name \template.xltm\ name”)，其中名称是用户名，模板是从文件资源管理器复制的有效名称。‘运行时错误1004.
“Workbook
浏览 2提问于2016-03-03得票数 1
我要在新工作簿(.xlsx)中“复制”工作簿(.xlsm)中的一个工作表。在此过程中，我还需要以同一工作表中的单元格B3和B5命名新工作簿。 我在各处都找到了从工作表创建新工作簿的代码，或者重命名现有工作簿的代码。我试着“混合”它，但我被"Filename:=Name“这个论点卡住了。它返回一个错误。我命名新工作簿的唯一方法是使用"“。如果有人知道原因，并对修复有任何指导，将不胜感激。 Sub Copy_Save_Sheet_As_Workbook()
Dim wb As Workbook
Dim Path As String
Dim Name As String
Set
浏览 8提问于2019-03-12得票数 1
回答已采纳
运行VBA宏代码时
Sub x()
Workbooks.Add
End Sub
Excel 2013将转到“不予回应”。
如果我使用一些模板运行Add方法，例如Workbooks.Add("C:\book1.xlsx")，那么将成功地创建基于模板的新工作簿。
当我试图通过宏生成器为新的工作簿创建生成代码时，将创建与我发布的宏相同的宏。但是运行此记录宏的结果与运行我的代码相同- Excel 2013冻结。
如何解决这个问题？Excel 2007中的代码运行正常，没有问题。
浏览 6提问于2015-10-10得票数 1
回答已采纳
2回答
我有一个相当长的宏。最后一步是将五个新工作表移动到新工作簿。这需要几分钟的时间。 我已经隔离了这部分。 Application.Calculation = xlManual
Dim TempSheets As Variant
TempSheets = Array(Sheets to be moved...)
Sheets(TempSheets).Move
Application.Calculation = xlAutomatic 当我关闭屏幕更新时，它会加速到只需要10秒左右的时间。但是新的工作表却无处可寻。 作为另一种选择，我尝试先命名一个新的工作表： Dim newwb As W
浏览 34提问于2020-11-10得票数 0
回答已采纳
我想复制所有数据并将其粘贴到新工作簿中。使用下面的代码，我可以粘贴所有值，但它是创建两个工作簿并将数据粘贴到一个工作簿中。
我只想创建一个新的工作簿并传递数据。不确定哪里出了问题。
On Error Resume Next
ThisWorkbook.Sheets(2).Copy
Dim wkb As Workbook
Set wkb = Workbooks.Add
wkb(1).PasteSpecial xlPasteValues
On Error GoTo 0
浏览 2提问于2018-05-24得票数 0
1回答
我有一些代码，可以复制一个工作表，然后创建一个新的工作簿，然后粘贴它，并在将其保存到桌面之前调整工作表名称和工作簿名称。 所有被调用的subs所做的就是将数据范围从入口工作表转置到导出工作表，导出工作表是被复制(命名为"Rows")以粘贴到新工作簿中的工作表。 代码用作按钮，到目前为止还不需要声明。 Sub UploadSheet()
Call TransposeHS
Call TransposeOrigin
Call TransposeValues
Application.ScreenUpdating = False
P
浏览 23提问于2021-11-10得票数 0
回答已采纳
1回答
我使用以下代码以编程方式创建新的工作簿：
'Adding a new workbook
Workbooks.Add
'Saving the new workbook
ActiveWorkbook.SaveAs newFilePath
'Closing the new workbook
ActiveWorkbook.Close
我想知道如何设置列名，换句话说，如何在工作簿中写入，然后再关闭它。
浏览 1提问于2015-04-23得票数 1
回答已采纳
我有一个主excel文件，其中包含我的宏。在这篇文章中，我创建了工作表，作为我需要处理和修改的未来excel文件的模板。现在，我需要将特定的工作表及其内容复制到新的工作簿中。
我还使用VBA创建了这个工作簿：
Sub NOUDOC()
Dim wbNew As Workbook
Dim data As Date
data = Range("H3").Value
Set wbNew = Workbooks.Add()
ActiveWorkbook.SaveAs ("C:\Users\Alina\Desktop\Carburant &
浏览 3提问于2017-04-05得票数 0
回答已采纳
我有一个包含多个工作表的工作簿，我想将工作簿中的两个工作表保存到另一个新工作簿。
我尝试了下面的代码，但它只将一个工作表从我的工作簿复制到另一个工作簿。
有没有人能告诉我哪里出错了？
Sub save()
Dim myworksheets() As String
Dim newWB As Workbook
Dim CurrWB As Workbook
Dim i As Integer
Dim path1, Path2 As String
path1 = ThisWorkbook.Path
Path2 = path1 & "\Saved Files\SW\"
Set Cu
浏览 2提问于2018-05-30得票数 1
我希望复制active Excel表(用户当前手动选择的Excel表)，并将其保存为工作簿到指定的文件夹中。
我正在使用我知道的代码(它是从另一个用户复制的)。每当代码到达ActiveSheet.Copy行时，它都会停止并显示路径/文件访问错误(错误75)。
如果删除ActiveSheet.Copy代码行，代码可以正常工作，但它会将整个工作簿保存到文件夹中，而不是活动工作表。我注意到，如果我尝试在Excel中手动将工作表复制到新的工作簿，这对于.xlsx工作簿来说很好，但是如果工作簿是.xlsm，则手动处理不能工作。
是明确的，的手动过程是：
右键单击tab/worksheetselect移动
浏览 2提问于2020-05-29得票数 0
如何在VBA中引用以前在同一个宏中新建的工作簿？例如，我在活动工作簿中复制A2中的内容，然后创建一个新的工作簿，粘贴到单元格B3中，返回到第一个工作簿，复制单元格A3，再次返回到新创建的工作簿并粘贴到单元格B4中。
因此，我需要的是这部分句子的代码：“再次返回到新创建的工作簿”。
到目前为止我的代码是：
`Selection.Copy`
`Workbooks.Add`
`Range("B3").Paste`
`Windows("First_WorkBook.xlsm").Activate`
浏览 2提问于2021-06-12得票数 1
回答已采纳
2回答
目标是指定两个不同的条件，只要满足其中一个条件，主文件(此工作簿)中的整行都会被复制，然后粘贴到新的工作簿中。
我认为问题与"if“函数有关，因为此代码在一个条件下工作得很好(创建新工作簿，并在满足条件时将所有行添加到此工作簿)。
另一个问题:当masterfile包含许多符合指定条件的观测值时，此方法非常耗时。因此，如果有人能在这个问题上提出更好的解决方案，我将不胜感激。如果所有行都可以一次发布到正确的工作簿上，而不是一个接一个地粘贴行，那就太棒了。
Private Sub CommandButton2_Click()
a = Worksheets("Sheet1&#
浏览 0提问于2018-05-18得票数 0
我的工作簿有sheet1 =UserForm1(包含启动UserForm1的按钮)。我的用户表单有24 CheckBox和2 CommandButton (OK和Cancel)。
每个CheckBox与工作簿中的一个工作表相关联。随后的每一张纸都贴上了PQC 1001、PQC 1002等标签，其中包含数据(图像被推到A1的左上角为每个纸张)。
我的目标是让用户检查他们想要使用的每个项目的CheckBox，然后选择"OK“(CommandButton1)将数据复制到一个新的工作簿中，供他们打印出来。
稍后，我打算定义打印参数，以便将项目分页，但我需要在获取黄金之前获得基本知识。
目前，我
浏览 1提问于2014-05-05得票数 1
回答已采纳
我希望能
在一个名为"original_data.xlsm“的给定工作簿中获取一个名为”数据“的工作表，
有条件地复制它(使用自动筛选器或其他方法)，只说C列是“狗”的行
在与原始图书相同的文件夹中创建一个新的工作簿，名为dog.xlsm，并将复制的内容保存到一个名为“data”的新工作表中。
然后使用不同的filter.So重复，例如，如果C列是"cat“，则复制和自动筛选，并在与原始图书相同的文件夹中创建一个工作簿"cat.xlsm"，其中包含一些筛选过的数据，其中包含一个名为"cat_data”的工作表。
我已经做了三天不正
浏览 2提问于2013-11-19得票数 0
回答已采纳
我很难找到一种可靠的方法，只将一个工作表中的可见单元格复制到新的工作簿中。我的初始工作簿已过滤。大致是这样的：
Sub RangeToNew()
Dim newBook as Workbook
Set newBook = Workbooks.Add
ThisWorkbook.Worksheets("worksheet").SpecialCells(xlCellTypeVisible).Copy _
Before:=newBook.Worksheets(1)
End Sub
这不管用。
浏览 0提问于2012-01-25得票数 1
回答已采纳
1回答
当我使用这段代码时，我可以将其保存为窗口，并按我希望的方式保存工作簿，但我也从原始表中得到了另一本带有活动工作表的工作簿，需要帮助才能获得其中一份，如果可以在保存后关闭它。
代码
Sub WorksheetSaveToNewWorkbook()
Dim loc As Variant
Dim Rng As Range
Dim newName As String
Dim newWkb As Workbook
Dim newWks As Worksheet
Dim Wks As Worksheet
Dim Shp A
浏览 0提问于2020-09-11得票数 1
回答已采纳
我正在做一个小项目，在这个项目中，我需要将工作表从其他工作簿的任何外部数据库添加到当前打开的工作簿中。我创建了一个表单来导入当前打开(活动)工作簿中所需的任何工作表。
工作表将从远程(在除同一台计算机以外的任何其他文件夹中)工作簿复制。我正在使用以下代码，但由于未知原因，这些工作表无法复制到我当前的工作簿中。
Dim wb As Workbook
Dim activeWB As Workbook
Dim FilePath As String
Dim oWS As String
Set activeWB = Application.ActiveWorkbook
FilePath =
浏览 2提问于2013-05-15得票数 1
回答已采纳
基本上，我希望创建一个新的工作簿，并从已经打开的工作簿(Filename)中复制一些数据，并将其粘贴到新的工作簿中。我有以下vba代码：
Workbooks.Add
Set new_wb = ActiveWorkbook
Workbooks(Filename).Worksheets("pivot").Range("A28").Activate
ActiveCell.CurrentRegion.Select
Selection.Copy Destination:=new_wb.Worksheets("Sheet1").Range("B2&#
浏览 9提问于2017-04-20得票数 0
回答已采纳
1回答
我需要它来复制一个电子表格中的所有数据，创建一个新的工作簿，命名它，并粘贴数据。我的代码中似乎有一个bug，它打开两个新的工作簿，将我的数据粘贴到一个工作簿中，并粘贴到另一个工作簿中，这就是它指定名称的文件。
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Create new Workbook
Set NewBook = Workbooks.Add
' Name it and paste data
ActiveSheet.Paste
ActiveSheet.SaveAs Filename:="test.
浏览 3提问于2016-06-28得票数 0
回答已采纳
我有一个宏可以生成多个电子表格。我想要将这些电子表格复制到一个新的工作簿中，重新命名工作表，并使用新的名称保存工作簿。
我尝试使用以下代码，但它生成一个运行时错误9，下标超出范围
Dim z As Variant
Dim wb As Workbook
Worksheets("T_Summary").Activate
Set wb = Workbooks.Add
z = Format(DateTime.Now, "dd-MM-YYYY hhmm")
wb.SaveAs "C\...\desktop\Transactio
浏览 2提问于2015-09-01得票数 1
回答已采纳
2回答
我有一个运行大量宏的工作簿，所有这些都是基于单击哪个按钮的。
我需要一个宏来打开一个新的工作簿，并将两个文件导入到工作簿中(这部分我可以完成)。
第二部分是我需要它来运行一个特定的宏，在新的工作簿中。宏将存储在原始工作簿中。
我看到了一些我需要使用APPLICATION.RUN的建议，它具有必须选择工作簿和例程名称的参数。
这个方法有用吗？
假设是这样的：
对于工作簿，我需要指定文件路径，还是只指定工作簿名称？
对于宏，我需要使宏成为公共吗？
我需要指定它所在的模块吗？
是否需要指定其他参数才能使此方法正常工作？
如果不工作的话，是否还有另一种方法可以工作？
浏览 4提问于2015-08-17得票数 0
回答已采纳
我有一个带有命令按钮的userform，这个按钮用于创建一个新的工作簿。单击按钮后，我希望这个用户表单位于新创建的工作簿之上。有什么想法吗？(对于excel 2007，用户表单总是在顶部，，而不是excel 2016)
Private Sub CommandButton1_Click()
Workbooks.Add
End Sub
浏览 9提问于2017-06-08得票数 0
回答已采纳
使用visual basic将工作表从一个工作簿复制到另一个工作簿时遇到问题。
到目前为止，我的代码打开了一个空白工作簿，它打开了另一个包含我要复制的工作表的excel文件。下面是我得到的信息：
'This creates the new workbook
Set NewBook = Workbooks.Add
NewBook.Title = MyRecordset.Fields(1) & "_Tables"
'This creates a sheet named "2-13"
Sheets.Add
浏览 43提问于2017-08-29得票数 0
回答已采纳
我正在尝试将现有列从工作表复制到新工作簿中的列。
我试过的密码：
Set NewBook = Workbooks.Add
Sheets("Sheet1").Columns(1).Copy Destination:=NewBook.Sheets("Sheet1").Columns(2)
这是创建一个工作表，但没有值被复制！如果我将同一工作簿中的另一个工作表复制到另一个工作表，则此代码可以工作。
如何在NewBook中创建新工作表以及在该sheet中创建目标列
浏览 1提问于2015-04-25得票数 1
回答已采纳
我正在处理Excel中的当前工作簿。在VBA中，我完成了以下工作：
Sheets("Upload File").Select
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
现在，"Book1“是新的工作簿。一旦我在那里做了我需要做的事情，我需要它然后激活原始工作簿，其中我有所有的VBA等。
我用以下语句来结束"Bo
浏览 1提问于2016-01-27得票数 1
下面的代码创建了一个新的工作簿并使用一些数据填充它。
Dim wb as Workbook
Set wb = Workbooks.Add
wb.Range("A1") = "Dummy Text" 'Some code that populates data
wb.Activate 'wb.Activate or ThisWorkbook.Activate has no effect
新的工作簿开得很好。我可以最小化它，使用菜单等，但无法单击关闭按钮。
如果我返回具有宏的原始工作簿并返回到新的工作簿，则可以关闭。
我如何克服这个问题？不幸的是失去
浏览 2提问于2016-04-27得票数 1
执行时，此代码将创建一个新的工作簿，然后将其保存到我的目录中。然后，我需要它用时间戳填充新工作簿的'A‘列，但是我的循环是填充原始工作簿的'A’列。MsgBox确认Activesheet确实指向新的工作簿。我遗漏了什么？
'CREATING THE SHEET AND SAVING IT
Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
ActiveSheet.Name = "MySheet"
ActiveWorkbook.SaveAs "MyDirectory\MyWorkb
浏览 2提问于2017-06-26得票数 0
回答已采纳
3回答
好的，我想要做的是做一个宏，从我的excel中的列表中创建一个新的工作簿，其中包含5个选项卡。我得到了新的工作簿部分，我获得了(命名)选项卡部分，但由于缺乏知识，我仍然坚持这种组合。
Sub CreateForm()
Workbooks.Add
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = F
浏览 19提问于2022-07-12得票数 0
回答已采纳
1回答
这个问题可能已经回答了，但我似乎找不到我想要的答案。我正在创建一个模块，当调用它时，它会创建一个新的工作簿，并将信息从这个工作簿传输到新的工作簿。我想添加一个事件到新的工作簿使用这个宏，但没有运气。目前，我有以下几点：
Public Sub TemplateCreate()
Dim NewBook as Workbook
set NewBook = addnew
End Sub
Function Addnew() as Object
Application.SheetsInNewWorkbook = 2
Application.EnableEvents = True
Set AddNew =
浏览 1提问于2015-07-28得票数 0
回答已采纳
我是Excel VBA的新手。
我正在尝试将工作表输出中的一系列数据复制到新的excel工作簿中，并使用E3中的值保存新工作簿。
另外，我还希望能够将数据复制到wordpad中并另存为E3.xml
这是我到目前为止所拥有的VBA：
Sub CopyOutput()
Dim myname As String
mystring = E3
Dim myselection As Range
myselection = Sheets("Output").Columns("F").Select
Set NewBook = Workbooks.Add
With Ne
浏览 3提问于2013-10-12得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
