首页
学习
活动
专区
工具
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 只需在要拆分工作簿运行上述代码...,就可将该工作簿所有工作全部保存为单独工作簿

3.8K11

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

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

4.6K11

VBA技巧:不保护工作簿情况下防止删除工作

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

1.8K30

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

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

5.4K11

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

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

5.1K22

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.2K21

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

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

3.7K10

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

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

5K30

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

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

4.1K10

Excel VBA编程教程(基础一)

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

11.6K22

Workbook工作簿对象方法(二)

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

4.4K20

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

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

33912

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

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

2.8K50

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

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

1.6K30

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

2K50

Excel VBA编程

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

45.1K21

Excel数据分割(实战记录)

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

29920
领券