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

最新推荐文章于 2024-05-03 23:38:22 发布
最新推荐文章于 2024-05-03 23:38:22 发布
阅读量1.2w 收藏 64
点赞数 2
分类专栏： Office 文章标签： Excel WPS VBA 提取数据 其他工作簿
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/why19940926/article/details/123120217
版权

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元/天 解锁文章
IT-Why
关注
  • 2
    点赞
  • 踩
  • 64
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
不打开工作簿提取数据的几种方法
weixin_30333885的博客
08-23 8781
不打开工作簿取得其他工作簿数据的几种方法 在Excel的使用过程中，经常需要引用其他工作簿的数据，而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据，有以下几种方法可以实现。 1 数据不多时使用公式 如果需要引用的数据不是太多，可以使用公式取得引用工作簿中的工作表数据，如下面的代码所示。 Sub CopyData_1() Dim Temp...
excel中不打开文件调用其它文件数据(VBA)
03-06
excel中不打开文件调用其它文件数据(VBA)
Excel·VBA使用ADO读取工作簿工作表数据
hhhhh_51的博客
10-07 2567
不打开工作簿读取数据：查询遍历写入数组；查询整体写入数组；查询工作簿所有工作表名称；查询工作簿所有工作表数据
【EXCEL_VBA_基础知识】02 使用IF进行逻辑判断
分享个人收获，创建共享共赢社区
05-03 1260
如有侵权，请联系删除！相信大家在平时使用EXCEL时，经常会使用到IF函数进行判断。那么，IF函数在VBA是怎么写呢？让我们来一探究竟！
VBA之不打开读写其它路径下的工作簿
xlbtlmy的博客
08-20 2235
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
不打开Excel获取表中数据方法汇总即将Excel当成数据库
qq0705的专栏
09-28 2490
不打开Excel获取表中数据方法汇总，即将Excel当成数据库进行操作
[day 2]用VBA实现复制EXCEL数据到另一个EXCEL
yohann96的博客
04-16 1万+
这段代码将打开一个名为“小时”的文件夹，并将其中的“test”文件夹中的“1.xlsx”文件复制到“test”文件夹中的“2.xlsx”文件中。请注意，此代码假定“test”文件夹中的所有文件都具有相同的名称和格式。如果文件名或格式不同，则需要相应地更改代码。（小文同学的出的代码跑不动，简单删改了一下。然后，它将保存合并后的文件。#跟着文心一言学VBA。
VBA的力量 快速获取多个表格中的数据后导入到数据库(图文)
小飞鱼通达 二开
11-11 8619
一个Excel表，每隔几天有一个汇率数据单独在一个sheet上，一共有好多张。 现在需要把其中的汇率数据导入到数据库里。 现在的思路就是：把每一个sheet中汇率单元格数据和sheet名取到然后复制到一张新的sheet里，循环一直把所有的sheet循环一遍就可。在VBA环境执行成功。
Excel VBA 读取其他的Excel文件内的内容
m0_60646395的博客
03-25 4053
'---------------------------------------------------初级版-----------------------------------------------'---------------------------------------------------进阶版-----------------------------------------------'----------------------删除空白行----------------------
WPS调用Excel数据库不能使用解决办法.zip
11-13
在某些情况下，用户可能在尝试使用WPS的函数或宏来读取、写入或更新Excel数据库时遇到不兼容或错误的情况。 描述中的“WPS调用Excel数据库不能使用解决办法”暗示了这个问题可以通过特定的步骤或更新来解决。可能的...
从未打开的工作簿中取值方法汇总
08-27
从未打开的工作簿中取值方法汇总 1.创建子程度调用 2.以只读方法打开源工作簿 3.JOHN WALKENBACH函数及调用 4.使用GetObject函数  5.隐藏Application对象  6.使用ExecuteExcel4Macro方法  7.使用SQL连接
提取word表格数据到Excel的vba程序代码
04-13
这个VBA程序适用于需要定期或一次性从大量Word文档的表格中提取数据到Excel的工作场景，比如数据整理、报告生成或分析。通过自定义VBA代码，可以轻松调整数据提取的规则，适应不同格式的Word表格，提高工作效率。
WPS VBA宏使用权限
最新发布
05-06
1. 自动化工作流程：企业经常使用VBA宏来自动化重复性任务，如批量数据处理、格式化文档或发送邮件。在这种场景下，权限设置确保只有授权人员可以修改和运行宏，以保证流程的稳定性和安全性。 2. 保护知识产权：对于...
vba6.3提取自WPS2012专业增强版（解决wps宏无法使用情况）
10-31
VBA for wps插件,安装后让你的Mps中的一些通过宏命令可以顺利执行下去，专门解决wps无法使用宏的情况
WPS支持VBA 7.1版本 VBA For WPS 2019(1)插件，大家打开vba组件所需
09-27
在WPS Office中，VBA插件“WPSVBA 7.1”是为了让WPS Office用户能够启用和使用VBA功能。安装此插件后，用户可以创建、编辑和运行VBA宏，为WPS的文字处理、表格和演示文稿添加定制功能。这个插件的使用方法可能与...
Excel 2010 VBA 入门 066 读取其他工作簿的数据
复行数十步
04-23 5745
目录 示例 实现代码 打开关闭的工作簿 示例 如图所示，在“数据库．xlsx”工作簿中存有“销售数据”，在相同目录下的工作簿 希望能够将该工作簿中该工作表中的数据读入以便进行下一步操作。该如何用VBA完成？ 销售经理 区域 销售数量 张万斌 崇州区 960 张万斌 大丰区 960 张万斌 新繁区 160 马秉局 天河区 160 王建华 崇州区 960 王建华 彭州区 1600 ...
vba调用计算机,如何实现跨工作表自动引用数据? 求：EXCEL公式（函数）或VBA宏程序...
weixin_39636079的博客
06-21 2514
最佳答案VBA代码如下：Private Sub Worksheet_Change(ByVal Target As Range)Dim i%, n&i = 1: n = 0On Error GoTo 100DoIf Sheet2.Range("A" & i) = Target Then n = i: Exit Doi = i + 4Loop Until Sheet2.Range("A...
VBA 从一个未打开的Excel文件中读取数据到，已打开的文件中.
热门推荐
swfcsunboy
10-19 2万+
Private Sub CommandButton1_Click()Sub CommandButton1_Click()    Call Macro1End SubPrivate Sub CommandButton2_Click()Sub CommandButton2_Click()根据项目名称 获取部门名A8    显示在B8中     c3--c40Dim xDis As Integ
wps vba 将工作簿所有工作表里面的表格数据保存为图片
06-10
您可以使用以下代码将工作簿中所有工作表的表格数据保存为图片： ``` Sub SaveAllTablesAsImages() Dim ws As Worksheet Dim tbl As ListObject Dim rng As Range Dim i As Integer Dim j As Integer For Each ws In ActiveWorkbook.Worksheets For Each tbl In ws.ListObjects Set rng = tbl.Range For i = 1 To rng.Rows.Count For j = 1 To rng.Columns.Count rng(i, j).Copy ActiveSheet.Paste Destination:=Worksheets("Temp").Range("A1") Call SaveRangeAsImage(Worksheets("Temp").Range("A1"), "Table_" & tbl.Name & "_Row" & i & "_Column" & j & ".png") Worksheets("Temp").Range("A1").ClearContents Next j Next i Next tbl Next ws Worksheets("Temp").Delete End Sub Sub SaveRangeAsImage(rng As Range, fileName As String) Dim cht As ChartObject Set cht = ActiveSheet.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height) cht.Chart.Paste cht.Chart.Export fileName, "PNG" cht.Delete End Sub ``` 该代码将遍历工作簿中的每个工作表和表格，并将每个单元格的数据复制到一个图表对象中，然后将该图表对象保存为一个PNG图像文件。请注意，在运行代码之前，您需要在工作簿中创建一个名为“Temp”的工作表，以便在其中创建临时表格数据。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值