VBA 在关闭的 Excel 中添加新工作表而不打开并添加工作表名称?

2023-11-30

我有一个 Excel“Closed.Xls”,当前未打开。

请告诉我如何将新工作表添加到此关闭的 Excel 文件中。我知道如何在当前的 Excel 中添加新工作表。

Dim WS as Worksheet
Set WS = Sheets.Add

请让我知道如何

  1. 使用 VBA 在关闭的 Excel 中添加新工作表,以及
  2. 获取添加的工作表的名称

注意:我不想重命名该工作表。

Thanks


像这样的东西会做你想做的事。如果不打开工作簿,这是不可能的,但如果关闭屏幕更新,它会显示为未打开的外观。

Option Explicit
Sub Add_Sheet_ClosedBook()
    Dim bk As Workbook
    Dim sh As Worksheet
    Dim shName As String

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    Set bk = .Workbooks.Open _
    ("Path to Book.xls")
    End With

    With bk
        Set sh = .Sheets.Add
        shName = sh.Name
        .Save
        .Close
    End With

    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

VBA 在关闭的 Excel 中添加新工作表而不打开并添加工作表名称? 的相关文章

  • 查找并替换目录中所有 Excel 文件工作簿中的字符串

    我正在编写 VBA 代码来替换位于特定目录中的多个 Excel 文件 工作簿 中的特定字符串 我尝试在 Stack Overflow 上搜索 找到答案 但这与通过 Excel 中的宏替换文本文件中的字符串有关 相同的链接是查找并替换文件中的
  • OpenArgs 为空问题

    我正在使用OpenArgs使用时发送值的参数DoCmd OpenForm DoCmd OpenForm frmSetOther acNormal acFormAdd acDialog value 然后我用Me OpenArgs在打开的表格内
  • 如何使用 VBA 将 mm/dd/yyyy 更改为 dd/mm/yyyy

    我在使用 VBA 将 mm dd yyyy 转换为 dd mm yyyy 日期格式时遇到问题 我有一个这样的表 仅供参考 该表是从报告工具自动生成的 字符串操作 或任何 Excel 函数可以提供帮助吗 希望知道如何解决这个问题的人可以给我一
  • 在 VBA 中循环合并单元格

    是否可以循环遍历合并的单元格vba questions tagged vba 我的范围内有 6 个合并单元格B4 B40 我只需要这 6 个单元格中的值 6 次迭代 上面的答案看起来已经让你排序了 如果您不知道合并的单元格在哪里 那么您可以
  • laravel中过滤后如何导出excel?

    我想仅导出视图刀片中过滤的数据 我正在使用 Laravel 7 和 maatwebsite excel 3 1 和 PHP 7 4 2 我浏览了文档并应用了这个 View a href class btn btn success i cla
  • 我可以用文本框设置变量名称吗? excel

    我可以使用 TextBox Vba Excel 设置变量的名称吗 我必须以在文本框中写入组名称并单击命令按钮的方式输入新的产品组 代码必须从文本框中获取字符串 并将该字符串设置为新创建的数组的名称 我只想在运行时创建一个新变量 或数组 据信
  • 复制一张工作表上的静态范围,然后根据单元格中的单个值粘贴到另一张工作表中的动态范围

    我对这个问题分为三个部分 我在 Sheet1 A1 中有一个带有周数的单元格 我在 Sheet1 B1 F1 中有一个需要复制的静态范围 然后 我需要将该值粘贴到 Sheet2 中的动态范围中 偏移量为行的周数 这是我正在为我经常使用的工作
  • EPPlus Excel 行高不一致

    我已经使用 EPPlus 生成了一个 excel 文件 在 MS Office 2007 中一切似乎都很完美 但客户端使用的是 MS Office 2010 2013 并且在第 29 行之后未设置行高 这是一个非常奇怪的问题 我已经尝试了
  • 根据单元格值向用户窗体添加复选框

    我对 VBA 很陌生 只有 3 天 但我发现它非常有用且易于使用 但现在我面临一个问题 我需要制作一个具有不同复选框的用户窗体 但我需要根据工作表某一列中使用的信息自动添加它们 我相信我可以使用 For Each Next 但我真的不知道如
  • 在组合框中显示可见工作表

    您好 我有以下代码来在组合框中显示工作表 创建工作表后 工作表会自动添加到列表中 我不希望隐藏的工作表在保管箱中可见 我怎么做 Option Explicit Private Sub ComboBox1 Change If ComboBox
  • Excels COUNTIFS 函数中的数组作为条件,混合 AND 和 OR [重复]

    这个问题在这里已经有答案了 我已经在谷歌上搜索了一段时间 但似乎无法让它发挥作用 我使用 Excel 2010 希望混合使用 AND 和 OR 运算符来计算行数 我想做的是这样的 COUNTIFS A A string1 B B strin
  • 将匹配的行复制到另一张纸中

    我有两张表 sheet1 和sheet 2 我正在查看工作表 1 的 T 列 如果工作表 2 中 T 包含 1 则粘贴完整行 该代码运行良好 但它将sheet2 中的结果粘贴到sheet1 的同一行中 这会导致行之间出现空白 任何人都可以建
  • 使用 MID、LEN 和 FIND 函数提取单元格文本的某些部分?

    我有一份 Excel 作业 但我陷入了最后部分 我被要求使用 MID LEN 和 FIND 来提取单元格内的特定字符串 我非常了解每个人的工作方式 将这三者结合起来并让它们发挥作用是我遇到的问题 我需要将城市与地址的其余部分分开 然后将其显
  • numpy NPV 和 Excel NPV 有区别吗?

    我的 Excel 中有一行包含 11 个值 TotalSavings 0 8000 8000 8000 8000 8000 8000 8000 8000 8000 8000 贴现率为 0 08 我在 Excel 中使用 计算 NPVNPV
  • 如果总和为 0,则查找并删除带标题的最后一列

    我想创建一个宏 查找带有标题的最后一列 并仅当该列的总和等于零时才将其删除 到目前为止 这是我尝试过的 Dim LastCol As Long Dim i As Long With ThisWorkbook Sheets Sheet1 Fo
  • VSTO 替代方案 [关闭]

    Closed 这个问题正在寻求书籍 工具 软件库等的推荐 不满足堆栈溢出指南 help closed questions 目前不接受答案 VSTO 有哪些替代方案 ManagedXll 能做什么而 VSTO 不能 你什么时候使用其中一个而不
  • 使用自定义功能区时是否可以阻止 MS Access 自动更改选定的功能区选项卡?

    当使用自定义 UI XML 文件在 Access 中添加多个自定义功能区选项卡时 每当关闭窗体时 选定的功能区选项卡都会变回第一个自定义选项卡 我们从 VBA 以编程方式加载自定义功能区 我已经创建了重现问题的 accdb http sdr
  • 支持 >65k 行的 Excel VBA SQL 驱动程序

    在 Excel 2010 中通过 VBA 查询 Excel 数据时 我遇到一个有趣的问题 我正在使用这些驱动程序连接到 xls 或 xls x m 文件 Sub OpenCon ByRef theConn As Connection ByV
  • 启动时的 Excel 加载项

    我正在使用 Visual C 创建 Microsoft Excel 的加载项 当我第一次创建解决方案时 它包含一个名为 ThisAddIn Startup 的函数 我在这个函数中添加了以下代码 private void ThisAddIn
  • 使用宏打开受信任文档或启用宏时 Excel 崩溃

    正如标题所示 我无法使用宏打开受信任的文档 Excel 立即崩溃 制作文档的副本允许其打开 因为该副本不受信任 并且我可以检查 VB 编辑器中的宏 但启用宏会导致另一次崩溃 为什么会发生这种情况以及我可以采取什么措施来解决它 我今天遇到了类

随机推荐

  • 在 iOS 中单击 UIButton 时如何将项目插入到 UITableView

    我一直在练习 tableViews 但我不知道如何在单击按钮时插入新项目 这就是我所拥有的 BIDViewController h import
  • 有什么作用!! R 中的运算符均值

    有人可以解释一下我们需要什么吗 or 运营商来自rlang 我尝试学习more关于准引用但没有得到任何东西 我已经在 Stack 上找到了几篇关于 curly curly 运算符的帖子 并且了解到我们使用 当我们将数据帧的变量 或对象的其他
  • 尝试编写一个简单的轮播

    我正在尝试构建一个简单的轮播 我知道有很多 但我更喜欢尝试找出答案 这是我的轮播代码 div class amnavigation div class previous lt div ul li icon li li icon li li
  • 将静态库答案放在 flash 部分的开头

    我正在使用 atmelstudio 编译固件映像 并希望将静态库 包括 gnu 的 libc a 和 libgcc a 中的函数放在 text 部分的开头 后面的 text 属于我的项目源代码 现在发生的情况恰恰相反 这是我的链接器脚本 A
  • 使用未知的编码键和值进行 Swift 解码[重复]

    这个问题在这里已经有答案了 我想从服务器解码以下对象 USD 6385 74 JPY 715249 73 EUR 5582 36 但我想使用具有未知键和值的可解码结构 这可能吗 Regards Spyros 你可以试试 let res tr
  • Node.js 中的计时器在自己的线程上运行吗?

    我在这里有点困惑 我知道 Javascript 是一种单线程语言 但在阅读事件循环时 我知道 在 setTimeout 或 setInterval 的情况下 JavaScript 会调用浏览器提供的 Web API 该 API 会生成一个新
  • ARM 指令 ldrex/strex 是否必须对缓存对齐的数据进行操作?

    在 Intel 上 CMPXCHG 的参数必须与缓存行对齐 因为 Intel 使用 MESI 来实现 CAS 在 ARM 上 ldrex 和 strex 对独占保留颗粒进行操作 需要明确的是 这是否意味着在 ARM 上操作的数据不必进行缓存
  • 根据 SQL 中设置的规则过滤列中的行

    我是 SQL 新手 我想根据设定的规则过滤列上的值 Group ID 1 09239820 2 2872498938 2 1267 3 23219823983 3 267839236 4 33287442 我想用字母替换 ID 列中的第 1
  • Java - Google API - 发布文档

    我在使用 Google 文档 API 上传信息时遇到问题 任务是上传文档 然后在上传后立即发布 我已经解决了第一部分 得到一个DocsService客户 通过以下方式验证我自己的身份client setUserCredentials use
  • OpenGL到底是如何进行透视校正线性插值的?

    如果线性插值发生在 OpenGL 管道的光栅化阶段 并且顶点已经转换到屏幕空间 那么用于透视正确插值的深度信息从何而来 谁能详细描述 OpenGL 如何从屏幕空间基元到具有正确插值的片段 顶点着色器的输出是four分量向量 vec4 gl
  • Jquery UI 对话框代替 javascript 确认

    我有一堆带有确认的验证 javascript 进程 我想使用 jquery ui 对话框 但我需要为其余验证过程返回 true 例如 var where to coupon confirm pm info msg 013 if where
  • 如何在独立模式下调试webdriverio?

    http webdriver io guide getstarted modes html 尝试使用 Chromedriver 调试 webdriverio 测试时我简直要疯了 您根本无法单步调试代码 因为 webdriverio 命令是异
  • 在 crontab 中运行脚本--reboot:找不到命令

    我在我的根 crontab 中设置了一个脚本 该脚本应该使用以下命令重新启动我的机器reboot命令 但是 我得到了reboot command not found尽管事实上reboot位于 root 用户的路径中 sudo su whic
  • Octave中end语句可以代替endfor语句吗?

    This link说明我们应该使用endfor关闭范围的声明for loop 但将其替换为end结果导致相同的行为 是否使用end而不是endfor有什么意想不到的副作用吗 end是同义词endfor当关闭一个for loop 使用的唯一副
  • 内存数据库设计

    我正在尝试使用创建内存数据库HashMap 我有一个结构Person struct Person id i64 name String impl Person pub fn new id i64 name str gt Person Per
  • 在内连接中迭代使用 MySQL LAG()

    我有两个表 需要在循环中迭代连接以创建值来填充其中一个表 我主要寻找最干净的方法来进行单周期转换连接 详细信息如下 下面两个输入表的示例 DROP TABLE IF EXISTS holdings CREATE TABLE holdings
  • 将 Linq 查询结果返回到 List 对象中

    我试图将查询结果返回到 List 对象中 但是我通常使用的以下代码不起作用 对于 Linq 来说还是比较新 有人可以解释一下正确的语法 发生了什么吗 如果我更改数据类型 这将起作用productTraining to var List
  • 使用 Perl 将秒转换为天、小时、分钟

    我想带输出控制使用几秒钟生成perl 我想以天 小时 分钟和秒的形式显示时间 以秒为单位 以使其人类可读的格式 Code my start time
  • Android NDK - 对 Android::Mutex、Android::AudioTrack 的未定义引用

    我在链接时收到了我接管的项目使用的 Android Mutex 和 Android AudioTrack 的奇怪未定义引用 有人有什么想法吗 没有Android静态库可以包含吗 共享库 jni so Users kevin Desktop
  • VBA 在关闭的 Excel 中添加新工作表而不打开并添加工作表名称?

    我有一个 Excel Closed Xls 当前未打开 请告诉我如何将新工作表添加到此关闭的 Excel 文件中 我知道如何在当前的 Excel 中添加新工作表 Dim WS as Worksheet Set WS Sheets Add 请