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

从onedrive VBA上的工作表在同一文件夹中创建新工作簿

,可以通过以下步骤实现:

  1. 首先,需要在VBA编辑器中打开Excel文件的宏编辑器。可以通过按下Alt + F11快捷键或者在开发工具栏中选择“Visual Basic”选项来打开。
  2. 在VBA编辑器中,选择“插入”菜单,然后选择“模块”选项。这将创建一个新的模块,用于编写VBA代码。
  3. 在新的模块中,编写以下VBA代码来创建新的工作簿并保存在同一文件夹中:
代码语言:txt
复制
Sub CreateNewWorkbook()
    Dim newWorkbook As Workbook
    Dim filePath As String
    
    ' 获取当前工作表所在的文件夹路径
    filePath = ThisWorkbook.Path
    
    ' 创建新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 保存新的工作簿在同一文件夹中
    newWorkbook.SaveAs filePath & "\新工作簿.xlsx"
    
    ' 关闭新的工作簿
    newWorkbook.Close
    
    ' 释放资源
    Set newWorkbook = Nothing
End Sub
  1. 在VBA编辑器中,按下F5键或者点击运行按钮来执行VBA代码。

以上代码会在当前工作表所在的文件夹中创建一个名为“新工作簿.xlsx”的新工作簿,并保存在该文件夹中。你可以根据需要修改文件名和文件格式。

推荐的腾讯云相关产品:腾讯云对象存储(COS)。

腾讯云对象存储(COS)是一种高可用、高可靠、强安全的云端存储服务,适用于存储和处理各种非结构化数据,如图片、音视频、文档等。它提供了简单易用的API接口和丰富的功能,可以方便地进行文件的上传、下载、管理和分享。

产品介绍链接地址:腾讯云对象存储(COS)

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

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

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

4.1K11

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

学习Excel技术,关注微信公众号: excelperfect 在文件夹中所有文件上运行宏,或者在Excel工作簿中所有工作表上运行宏,这可能是一种非常好的Excel自动化方案。...2.打开一个单独的Excel进程(应用程序),然后逐个打开每个文件。 3.使用要在每个打开的工作簿上运行的代码替换“在这里放置你的代码”部分。 4.每个打开的工作簿在关闭时不会保存所作的修改。...在子文件夹内所有文件中运行宏 当想在文件夹中所有Excel文件上运行宏时,其中的一种情况是遍历所有子文件夹来运行宏。...下面的内容与前述内容几乎相同,但是请注意声明了一个全局变量fileCollection,这将首先用于存储子文件夹中标识的所有文件,并且仅用于在此VBA集合中存储的文件上运行所有宏之后。...2.使用要在每个打开的工作表上运行的任何代码替换“在这里放置你的代码”部分。

4.8K11
  • VBA技巧:在不保护工作簿的情况下防止删除工作表

    标签:VBA 下面介绍一个使用少量VBA代码实现的简单实用的小技巧。 通常情况下,我们执行“保护工作簿”命令后,此时删除工作表的命令变成灰色,用户就不能轻易地删除工作表了。...然而,这样也不能进行插入、移动或复制工作表的操作了。 如果想要在不保护工作簿的情况下防止用户删除工作表,而且允许用户插入工作表并对其进行重命名,也允许用户移动或复制工作表,有没有什么好的方法实现?...在工作簿的ThisWorkbook模块中粘贴或输入下面的代码: Option Explicit Private Sub Workbook_SheetDeactivate(ByVal Sh As Object..." End Sub Sub RemoveProtection() '撤销保护工作簿 ThisWorkbook.Unprotect End Sub 此时,用户再要删除该工作簿中的工作表,就会弹出...的警告信息(如下图1所示),但用户仍可以在该工作簿中进行添加工作表、移动或复制工作表、对工作表重命名等操作。 图1

    2K30

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

    一般的操作方法是打开两个工作簿(目标工作簿和待转移的工作簿),然后选中需要移动的工作表,右键单击以后选择“移动或复制”。接下来在新的对话框里面进行设置。 这种方法适合在移动少量工作表的时候使用。...如果有很多的工作簿,都需要进行移动的话,一个一个打开然后再操作比较费时费力。这时就可以使用VBA来批量进行操作。...在目标工作簿内,插入一个模块,然后导入如下的代码: Option Explicit Sub MergeWorkbook() '将多个工作簿的第一张工作表合并到目标工作簿中...End Sub (1) 将目标工作簿和待转移的工作簿放在同一个文件夹内; (2)上述代码要实现的功能是,将同一个文件夹内所有工作簿(目标工作簿除外)的第一张工作表拷贝到目标工作簿内,并将表名设置为拷贝前所属的工作簿名称...转移前: 转移后: 参考资料: [1] 如何使用Excel VBA将多个工作簿的全部工作表合并到一个工作簿中(https://zhuanlan.zhihu.com/p/76786888)

    6.1K11

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

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

    5.5K22

    VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表

    VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表 【问题】我们发了这样一个表格到各单位收集资料,各单位填写完后上交上来有许多个文件,我们现在想汇总成一年一个表,怎么办?...那就加班,再加班 【解决问题】我们的口号是VBA使工作效率提高,不加班 ====【代码】==== Sub 提取多文件一工作表中不同区域汇总() Dim fileToOpen, x, total_file_path...用Application.GetOpenFilename打开一个选择文件的对话框,可以多选,把选择的文件存入到fileToOpen的数据中 2.循环数组, 3.打开一个文件,并复制全部的区域,到指定的2016...-2018的表格中,下一次的复制,复制到最后的一行中的A列中, 4.因为在打开文件的过程中可能有些人在传输文件中,文件损坏了,所以加上On Error Resume Next,不报错继续运行。...原因是:初值中是.Range("a5:t11"),想要组合进行的也是.Range("a5:t11"),所以程序是不可以的。

    2.3K21

    Excel实战技巧79: 在工作表中创建让输入的密码显示*号的登录界面

    学习Excel技术,关注微信公众号: excelperfect 在工作表中,我们可以创建简单的用户名和密码登录框,并且像专业的密码框界面那样,在用户输入密码时显示的是*号。...第1步:在工作表中添加文本框 单击功能区“开发工具”选项卡“控件”组中的“插入——ActiveX控件——文本框“,如下图1所示。 ?...图1 在工作表中插入两个文本框,并将其大小和位置进行适当地调整,如下图2所示。 ? 图2 第2步:设置文本框属性 要想使得在文本框中输入时掩盖其中的内容,需要设置其属性。...在设计模式下,在要掩盖输入内容的文本框中单击鼠标右键,选取快捷菜单中的”属性“命令,如下图3所示。 ?...注意,在这种情况下,虽然看起来输入的密码被掩盖了,但仍然存储在工作表中,这样他人可轻松从文本框中提取密码。

    3.8K10

    VBA实战技巧19:根据用户在工作表中的选择来隐藏显示功能区中的剪贴板组

    excelperfect 有时候,我们可能想根据用户在工作表中的选择来决定隐藏或者显示功能区选项卡中的特定组,避免用户随意使用某些功能而破坏我们的工作表结构。 下面,我们通过一个示例来演示。...我们想让用户选择工作表列B中的任意单元格时,隐藏“开始”选项卡中的“剪贴板”组,而当用户选择其他单元格时,该组又重新显示,如下图1所示。 ?...图1:当用户选择的单元格在列B中时,“剪贴板”组隐藏,处于其他单元格中时,“剪贴板”组显示 首先,我们新建一个工作簿并保存。...图2:在Custom UI Editor For Microsoft Office中编辑输入XML 重新打开工作簿,按Alt+F11键打开VBA编辑器,插入一个标准模块,输入下面的代码: Public...,然后重新打开该工作簿,试试看!

    4.2K10

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

    如你在第1课中所见,Excel应用程序由提供程序功能的对象组成。由于这些对象是“公开的”(即可以从外部进行操作),因此可以通过VBA代码控制它们以创建自定义程序。...如果你不希望工作簿保存在Excel的默认数据文件夹中,则名称还可以包括驱动器和/或路径信息。...然而,对ThisWorkbook的需求可能并不明确,在许多情况下,正在执行的VBA代码位于该代码所操纵的同一工作簿中,因此不需要ThisWorkbook。...此名称显示在Excel屏幕上的工作表标签上,也可以用于从Worksheets或Sheets集合中获取引用。...引用工作表 你已经看到了使用创建工作表时返回的引用或从Worksheets集合中获取引用来引用工作簿中特定工作表的几种方法。

    5.1K30

    Excel VBA编程教程(基础一)

    编写第一个VBA宏 「宏」:简单的说,宏是一段可以运行的 VBA 代码片段。 step one 创建启用宏的工作簿 首先新建一个工作簿,并将工作簿保存为「启用宏的工作簿」类型。...step three Excel 工作簿中的 VBA 代码通常保存在工作表对象或模块中。本例中,我们用模块保存 VBA 代码。...首先选中左侧工程列表中的工作簿,后右键,在弹出的选项列表中,选择「插入」。二级菜单中,选择「模块」,完成插入新模块。 插入完成后,在工程列表对应工作簿内,在模块文件夹下,显示新插入的模块。...当多个工作簿同时打开时,他们公用同一个 VBA 编辑器,VBA 工程界面显示所有的 VBA 工程。...With 结构实例 现在看一个实际的例子,需要将工作簿中 Sheet1 工作表设置新名称,然后设置标签颜色为黑色,最后隐藏工作表。

    12.5K22

    Workbook工作簿对象方法(二)

    大家好,上节介绍过部分工作簿对象的常用方法-创建和打开,本节将继续介绍工作簿对象的激活、保存和关闭方法。...四、工作簿对象save方法 保存excel工作簿,在VBA中主要是通过workbook工作簿对象的save方法和saveas方法 代码thisworkbook.save 表示保存代码所在的工作簿。...如果想将文件另存为一个新的文件,或者第一次保存一个新建的工作簿,就用saveas方法。...2、参数FileName指定要保存的工作簿的名称。可以提供保存的路径,否则将保存到当前文件夹中。 3、参数FileFormat指定工作簿保存的格式。...在关闭工作簿时,如果excel表有修改且没有保存,那么系统会在关闭前弹窗提示是否需要保存。如果不希望出现弹窗,可以通过设置close方法的参数来修改。 下面看下close方法的完整格式。

    4.8K20

    从本地网关数据源切换到OneDrive数据源指导手册

    几乎所有的教程都会告诉你,使用 Power BI 获取数据最简单的方式是从本地excel表中获取,紧接着教你如何从本地文件夹中获取多个文件。...2、在PowerBI Desktop中获取该文件 两个思路 ①ODB中的文件本质上就是个需要登录才能打开的web网页,因此我们可以用web链接器来获取数据 在PowerBI Desktop中,获取数据-...pbix文件从头开始来实现报告的重新制作,或是在原有的报告中删掉之前的表,以旧表名来建一些新表。...那么,如果还是通过删除表创建新表的操作,会导致大量的重复工作甚至引起极大的关系错乱并导致度量值计算错误,更有甚者会导致报告中表丢失或文件损坏。...然后从“ODB根目录”引用出来一个新的查询,导航到SingleTable这张表并打开其中的"表1",查询2: let 源 = ODB根目录, powerbi文件夹 = 源{[Name="powerbi

    50613

    批量导入Excel文件,为什么我导入的数据重复了?

    小勤:大海,为什么我从Excel文件夹导入的数据重复了? 大海:数据给我来试试看?...Step-01:新建查询-从文件夹 确定后,我们看到文件夹里有3个文件: 这里,显然是因为将合并工作表和数据源放在了同一个文件夹下,所以Power Query将合并工作表也显示了出来,并且...实际上,在Excel里虽然只有一份数据,但因为做了不同的处理,生成了多种对象(可以简单理解为以多种形式存在),比较容易碰到的有以下三种情况: Sheet:工作表,就是最原始的数据; Table:表格,经过...生成“表格”后,当鼠标选中表中的任意数据时,菜单中会出现“表格工具“菜单,也可以在“公式/名称管理器”中查看到。 DefineName:通过“定义名称”定义的引用区域,可以在名称管理器里查看到。...大海:是的,即使看上去是同一份数据,实际上Excel为了适应你各种不同的需要,系统内自动生成了多种对象,就像复制了好多份让你去用一样,这些内容在通过Power Query或者VBA或者做系统开发(如导入导出

    3.1K50

    一个例子彻底搞懂Excel的文件结构!以后批量导入Excel数据不再重复了!

    小勤:大海,为什么我从Excel文件夹导入的数据重复了? 大海:数据给我来试试看?...Step-01:新建查询-从文件夹 确定后,我们看到文件夹里有3个文件: 这里,显然是因为将合并工作表和数据源放在了同一个文件夹下,所以Power Query将合并工作表也显示了出来...实际上,在Excel里虽然只有一份数据,但因为做了不同的处理,生成了多种对象(可以简单理解为以多种形式存在),比较容易碰到的有以下三种情况: Sheet: 工作表,就是最原始的数据; Table: 表格...生成“表格”后,当鼠标选中表中的任意数据时,菜单中会出现“表格工具“菜单,也可以在“公式/名称管理器”中查看到。...大海:是的,即使看上去是同一份数据,实际上Excel为了适应你各种不同的需要,系统内自动生成了多种对象,就像复制了好多份让你去用一样,这些内容在通过Power Query或者VBA或者做系统开发(如导入导出

    1.7K30

    Excel VBA编程

    方法复制单元格区域 cut方法剪切单元格区域 用delete方法删除指定的单元格 操作对象的一些例子 根据需求创建工作簿 判断某个工作簿是否已经打开 判断文件夹中是否存在指定名称的工作簿文件 向未打开的工作簿中输入数据...隐藏活动工作表外的所有工作表 批量新建指定名称的工作表 批量对数据进行分离,并保存到不同的工作表中 将多张工作表中的数据合并到一张工作表中 将工作簿中的每张工作表都保存为单独的工作簿文件 将多个工作簿中的数据合并到同一张工作表中...为同一工作簿中的工作表建一个带链接的目录 执行程序的自动开关——对象的事件 让excel自动相应我们的操作 使用工作表事件 worksheet对象的change事件 禁用事件,让事件过程不再自动执行...如想删除B3所在的整行单元格,应将代码写为: range("B3").entirerow.delete 操作对象的一些例子 根据需求创建工作簿 利用VBA创建一个符合自己需求的工作簿,并将其保存到指定的目录中...标签告诉VBA,当程序运行过程中晕倒运行时错误时,跳转到标签所在行的代码继续执行程序,实际上就是让程序跳过出错的代码,从另一个地方重新开始执行程序。

    45.7K33

    Power Query-汇总文件夹中多工作簿多工作表到一个文件

    Power Query-汇总文件夹中多工作簿多工作表到一个文件 我们在常感叹“不懂office Excel的是电子表格,懂的就是Excel”!! 为什么呢!...如果当excel为电子表格的人,做了一辈子的工作也是重重复复的“复制—粘贴”的工作,因为Excel中有VBA编程的功能,能使用很多重复的工作一个小程序是搞掂,所以就是“Excel”了。...当我们在学习VBA编程汇总多工作簿多工作表到一个文件时,微软在新的Office版本中有开发出个神器Power BI, 这个组件在office2013和office2016是整合在一起的,office2010...今天来体验一下Power Query的强大功能 【问题】:上一次学习VBA的一个例子:下发给下面各单位的表格收集信息资料,上交上来后有很多个文件,文件的内容格式是一样,我想把这些资料汇总在一起, 1.上交文件很多...2.它们的格式是一样的 【解决方法】请出Power Query 第一步:新建Excel文件 数据→新建查询→从文件→从文件夹 第二步:选择文件路径 第三步:编辑 第四步:选中Content

    2.1K50

    VBA: 打开Excel文件的两种方式(GetObject函数和Workbooks.Open方法)

    文章背景: 打开指定路径的Excel文件,在VBA中常用的是Workbooks.Open方法,最近发现有个GetObject函数,也有类似的功能,所以本文探讨下两种打开方式的区别。...1 Workbooks.Open2 GetObject 3 两种打开方式的区别 1 Workbooks.Open 打开一个工作簿。...3 两种打开方式的区别 (1)使用GetObject函数的好处是,可以通过隐藏方式打开指定工作簿。如果目的是获取指定工作簿的数据,而不试图修改数据,那可以使用GetObject函数。...相反,它会返回对已经打开的工作簿的引用,而不会重新打开它。 (3)通过GetObject函数打开的Excel文件只要被修改(写)并保存后,后续打开该文件就只能在VBE中看到表格,但用户界面却看不到。...针对GetObject函数存在的问题,解决的方法有两个: 1)在打开该文件后,通过显示菜单中的取消隐藏功能让表格再显示出来。

    10.4K11
    领券