Excel（WPS）使用VBA，不打开文件情况下提取其他工作簿数据

最新推荐文章于 2025-03-19 10:18:19 发布
最新推荐文章于 2025-03-19 10:18:19 发布
阅读量1.3w 收藏 65
点赞数 2
分类专栏： Office 文章标签： Excel WPS VBA 提取数据 其他工作簿
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/why19940926/article/details/123120217
版权
这篇博客介绍了如何利用VBA编写提取函数，从指定的Excel（WPS）文件中，不打开文件的情况下读取特定工作表和单元格的数据。示例展示了如何读取D:Testdata.xlsx的Sheet1工作表中D9单元格内容，并将其存储到当前工作簿的C7单元格。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Excel（WPS）使用VBA，不打开文件情况下提取其他工作簿数据


在不打开工作簿的情况下，VBA读取其他工作簿数据
很多方法需要打开才能提取，如果没打开会显示错误，比如inderect函数等

提取函数，返回提取到的值

path：文件路径
file:文件名
sheet：工作表名
ref：需要读取的目标单元格

Private Function GetValue(path, file, sheet, ref)
    '   从未打开的Excel文件中检索数据
    Dim arg As String
    '   确保该文件存在
    If Right(path
最低0.47元/天 解锁文章
不打开工作簿提取数据的几种方法
weixin_30333885的博客
08-23 1万+
不打开工作簿取得其他工作簿数据的几种方法 在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。 1 数据不多时使用公式 如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所示。 Sub CopyData_1() Dim Temp...
VBA从未打开的文件读数据
12-01
VBa代码，用此代码可以从未打开的文件中读取您所需要的数据。
VBA之不打开读写其它路径下的工作簿
xlbtlmy的博客
08-20 2861
Sub test() Dim wb_data, wb_copy As Workbook Dim fn_data, fn_copy As String fn_data = "C:\Users\xlbtlmy\Desktop\VBA\data.xlsx" fn_copy = "C:\Users\xlbtlmy\Desktop\VBA\copy.xlsx" Set wb_data = GetObject(fn_data) Set wb_copy
VBA第二十九期 从关闭的工作簿文件中检索值的方法
最新发布
jimin_callon的博客
03-19 423
一般情况下我们都是通过先打开工作簿，然后在激活工作表，这样方便从表格中读取数据。但有时候我们从某个文件之读很少的关键数据，打开文件的方法就比较繁琐。这里我们可以利用一个XLM宏来实现从关闭的工作簿读取数据。这是Excel 5之前的版本中使用的旧式宏。这样做的好处就是比如程序的关键数据的调取不想让用户在运行过程中察觉，比如密码存储等，当我们用打开工作簿的方式读取数据时，即使你关闭屏幕更新，但依然能看到打开的工作簿过程，只是屏幕不出现闪烁感而已。
VBA学习笔记2-文件打开、保存、备份、关闭等；工作表选取、删除、移动等；单元格定位、格式、合并等
Trisyp的博客
01-11 2677
文件打开、保存、备份、关闭等；工作表选取、删除、移动等；单元格定位、格式、合并等
【VBA技巧】不打开Excel读取数据
STR_Liang的博客
03-26 1万+
原文链接：https://mp.weixin.qq.com/s/5Pje8v2bmHYZcnYgmYnyjQ 如果是手工提取数据，通常是打开文件在复制粘贴。换用VBA则可以快速打开后马上复制好，能节省不少时间和精力。 Workbooks.Open可以很方便地打开文件，但是当需要操作的文件过多的时候，状态栏堆满了打开的文件也不好看。下面介绍两种不用打开文件就能提取数据的方法。 方法一 S...
excel中不打开文件调用其它文件数据(VBA)
03-06
excel中不打开文件调用其它文件数据(VBA)
从未打开的工作簿中取值方法汇总
08-27
从未打开的工作簿中取值方法汇总 1.创建子程度调用 2.以只读方法打开源工作簿 3.JOHN WALKENBACH函数及调用 4.使用GetObject函数  5.隐藏Application对象  6.使用ExecuteExcel4Macro方法  7.使用SQL连接
VBA 从一个未打开的Excel文件中读取数据到，已打开的文件中.
weixin_30279315的博客
08-29 1279
PrivateSubCommandButton1_Click()SubCommandButton1_Click() CallMacro1 EndSub PrivateSubCommandButton2_Click()SubCommandButton2_Click() ''根据项目名称获取部门名 'A8显示在B8中c3--c40 Dimx...
Excel VBA 不打开Excel文件访问其中内容的方法
zheng7yan的专栏
07-11 9640
Public Function GetCellValue(strPath, strFile, strSheet, strA1) If Right(strPath, 1) <> "\" Then strPath = strPath & "\" If Dir(strPath & strFile) = "" Then '判断文件是否存在 '文件不存在时产生运行时错
vba6.3提取自WPS2012专业增强版 带教程 (wps可能是因为该宏在此工作簿中不可用)
01-23
6. 文件操作：学习如何使用VBA读写文件、打开和关闭文件，以及与其他应用程序交互。 7. 调试技巧：使用调试工具，如断点、步进执行、查看变量值等，来定位和解决问题。 8. 参考文档：充分利用VBA的帮助文档和在线...
技巧不打开工作簿取值
05-16
技巧不打开工作簿取值技巧不打开工作簿取值
excel 跨工作簿引用实例
04-08
通过excel宏工具，快速实现多个excel工作簿数据合并功能。适用于工作模板下发填报后一键汇总生成总表。 内附参考实例，以及vb代码。
提取word表格数据到Excel的vba程序代码
04-13
`wddz = Dir(ThisWorkbook.Path & "\*.docx")` 用于查找当前工作簿路径下的所有.docx文件，然后通过`Documents.Open`方法逐个打开文件。 3. **Excel数据准备**： 在Excel中预先设置了列标题，如“姓名”、“家庭...
WPS的js宏写的Excel文件合并工具，通过文件对话框选择文件来合并表格
02-03
该工具的工作流程如下：用户通过文件对话框选择需要合并的Excel文件，然后JS宏会读取这些文件，提取数据，并将其整合到一个新的Excel表格中。这样，原本需要逐个打开、复制、粘贴的繁琐过程被自动化，大大节省了时间...
wps2019vba.rar
10-17
描述中提到，当用户尝试在WPS 2019中打开含有宏的Excel工作簿时，系统会提示需要安装VBA支持库。这是因为WPS Office虽然功能强大，但默认可能不包含完整版本的VBA引擎，所以需要额外安装这个支持库来启用宏功能。...
VBA 在不打开 Excel 文件的情况下将每个工作表内容读取为数组
零零发不爱ai的博客
01-06 548
请注意，此代码假设文件路径和文件名正确且文件格式符合要求，如果文件不存在或者是其他不支持的格式等情况，可能会出现错误，实际应用中可以根据需要添加更多的错误处理代码。以下代码定义了一个函数。
不打开Excel文件直接读取数据
热门推荐
nobody
10-30 2万+
不打开Excel文件直接读取数据
wps excel插入excel文件
02-12
### 如何在 WPS Excel 中插入其他 Excel 文件的工作表或数据 #### 使用内置功能导入外部数据 WPS Office 提供了多种方法来处理不同Excel文件间的数据交互。对于希望将一个Excel文档中的特定工作表或部分数据引入到当前正在编辑的文档中，可以通过“数据”选项卡下的“获取外部数据”命令实现[^1]。 #### 利用VBA宏脚本批量操作 如果面对的是大量需定期同步更新的不同源文件，则编写一段简单的VBA代码可能是更高效的选择。下面给出了一段用于加载指定路径下所有Excel文件首个Sheet至新Workbook各独立Sheets内的VBA实例： ```vba Sub MergeWorkbooks() Dim FolderPath As String, Filename As String Dim wbSource As Workbook, wsTarget As Worksheet Application.ScreenUpdating = False FolderPath = "C:\Your\Folder\Path\" ' 修改为实际存放待合并文件的位置 Set wsTarget = ThisWorkbook.Sheets.Add Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" With Workbooks.Open(FolderPath & Filename) .Worksheets(1).Copy After:=wsTarget .Close SaveChanges:=False End With Filename = Dir Loop Application.DisplayAlerts = True End Sub ``` 此段代码遍历给定目录内所有的`.xlsx`/`.xlsm`等格式文件，并将其第一个工作表复制粘贴到一个新的工作簿里作为单独的新Sheet保存下来。 #### 借助第三方插件简化流程 除了上述两种方式外，还可以考虑安装一些专门针对Office系列软件开发的功能扩展工具，比如Kutools for Excel就提供了便捷的一键式解决方案——允许用户快速选取多个目标文件并自定义设置要提取的具体范围以及最终呈现样式[^3]。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值