当前位置：首页 > 科技 > 正文

Excel引用其它工作簿中的单元格的值及使用VBA操作

一个工作薄的工作表的单元格可以使用公式直接引用另一个工作簿的工作表的单元格的值，自然，被引用的工作表的单元格的值更新后，打开引用了此工作表的工作簿后，其值也会自动更新。

如以下路径“F:\工作簿间数据引用”，有两个文件夹：

现打开3个工作簿：

其中“F:\工作簿间数据引用\a\a.xlsx”的Sheet1的内容如下：

a

b

c

m1

1

2

3

m2

4

5

6

m3

77

8

9

其中“F:\工作簿间数据引用\b\b.xlsx”的Sheet1的内容如下：

a

b

c

m1

11

12

13

m2

14

15

16

m3

17

18

19

其中“F:\工作簿间数据引用\c.xlsx”的Sheet1使用公式引用其它工作簿中单元格的数据：

n

sum

a

=SUM([a.xlsx]Sheet1!$B$2:$B$4)

b

=SUM([b.xlsx]Sheet1!$C$2:$C$4)

注意其语法规则。

此时关闭工作簿a、b，工作簿C的工作表Sheet1的公式的引用会将公式引用工作簿的绝对路径显示出来：

n

sum

a

=SUM('F:\工作簿间数据引用\a\[a.xlsx]Sheet1'!$B$2:$B$4)

b

=SUM('F:\工作簿间数据引用\b\[b.xlsx]Sheet1'!$C$2:$C$4)

试图将上面的绝对路径改为相对路径：

n

sum

a

=SUM('..\a\[a.xlsx]Sheet1'!$B$2:$B$4)

b

=SUM('[b.xlsx]Sheet1'!$C$2:$C$4)

结果如下：

n

sum

a

=SUM('C:\Users\ww\a\[a.xlsx]Sheet1'!$B$2:$B$4)

b

=SUM('F:\工作簿间数据引用\b\[b.xlsx]Sheet1'!$C$2:$C$4)

可以知道，工作簿之间的数据引用，只能使用绝对路径。

除非工作盘下的文件夹整体移动到其它工作盘，否则文件夹或文件的移动，打开工作簿C.xlsx时，会提示以下错误：

原因是绝对路径错误（工作盘盘符可以自动改变）。

同样的，引用未打开的工作簿的数据，我们也可以使用VBA代码。

从上面可知，对于引用其它打开的工作簿，公式引用时切换工作簿即可。在VBA代码中，可以用VBA代码打开其它工作簿，并引用对象，所以我们引用未打开的工作簿，可以将指定的工作簿以只读方式打开，获取数据后又将其关闭。将屏幕更新属性值设置为False，用户看不到打开工作簿的过程。也可以不打开工作簿，使用公式，将路径按既定的语法规则写清楚或定义一个函数。实现这种方法的VBA 代码如下：

Sub 获取其他工作簿数据() Dim wb As Workbook '以只读方式打开工作簿 Set wb = Workbooks.Open('F:\工作簿间数据引用\a\a.xlsx', True, True) With ThisWorkbook.Worksheets('Sheet1') '从工作簿中读取数据 ' 方式1，从打开的工作簿引用 .Range('B2') = wb.Worksheets('Sheet1').Range('B2') + _ wb.Worksheets('Sheet1').Range('B3') + _ wb.Worksheets('Sheet1').Range('B4') ' 方式2，使用公式和绝对路径 .Range('B3').Formula = '=SUM('F:\工作簿间数据引用\b\[b.xlsx]Sheet1'!$C$2:$C$4)' ' 方式3，将方式2的使用定义为一个函数 .Range('B4').Formula = GetClosedData('F:\工作簿间数据引用\b', 'b.xlsx', 'Sheet1', 'D2:D4') End With wb.Close False '关闭打开的工作簿且不保存任何变化 Set wb = Nothing '释放内存End SubFunction GetClosedData(ByVal path As String, ByVal WorkbookName As String, _ ByVal SheetName As String, ByVal RangeName As String) '参数Path 为工作簿路径 '参数WorkbookName 为工作簿名称 '参数SheetName 为工作表名称 '参数RangeName 为单元格区域 Dim r r = '=sum('' & path & '\[' & WorkbookName & ']' r = r & SheetName & ''!' & RangeName & ')' GetClosedData = rEnd Function

ref

吴永佩 成丽君 《征服Excel VBA：让你工作效率倍增的239 个实用技巧》

－End－

你可能想看：

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

Excel VBA引用单元格区域有哪些方法？

VBA中可以使用Range属性返回单元格或单元格区域,图 11使用Range属性引用单元格区域：Range属性返回活动表的一个区域。使用Cells属性返回一个Range对象，Cells属性指定单元格区...

批量将图片插入到Excel中，且自动调整图片大小以适应单元格的大小！

如何将一个文件夹内所有的图片批量插入到Excel工作表的B列中，并且图片可以自动适应单元格的大小，现在我们想要将文件内的图片按照从左向右的先后顺序批量插入到Excel工作表的B列中，并且每一张图片自动...

VS2010操作Excel2010，报错解决及读写excel

加到模块std中:#include "CWorksheet.h";#include "CRange.h":5、将以上头文件的#import "C;\\Program Files\\Microsoft ...

还在被合并单元格虐？这个Excel“偷懒神器”解决你80%操作难题！

相信用过办公软件的小伙伴肯定都有合并和取消单元格的经历吧！今天就跟大家来聊一下表格中合并单元格与取消合并单元格的那些事，今天主要跟大家介绍一下关于Excel和WPS表格中批量取消\合并单元格的技巧。然...

EXCEL | 使用特殊符号自定义单元格格式，要什么格式你做主

单元格格式中常使用特殊符号来定义特殊格式。如果单元格的内容大于指定占位符；则显示实际数字，代表设置单元格格式为四位整数，A3单元格中数字，数字占位符“在小数点两边为无意义的零添加空格?自定义添加千分位...

《Excel2003入门动画教程27、Excel拆分表格》

《Excel2003入门动画教程27、Excel拆分表格》。　　演示动画，　　操作步骤，　　有时候在Excel中：们需要比较浏览同一工作表中不同区域的数据时，可以通过折分窗口来实现“　　选中窗口中部的...

Excel 中Alt键的高手用法 Excel必学技巧

即可一键生成柱形图，Alt加Enter（回车键）单元格内强制换行五、Alt加数字键输入符号 (需要在带有小键盘的电脑上操作哦）Alt加41446输入温度符号Alt加41409输入错号Alt加41420...

Excel教程：30秒做好Excel超链接目录

工作表前面插入一张空白工作表Sheet。点击右键，查看代码会激活VBE编辑器界面，点击插入——模块，并且复制以下代码到右边编辑区。"选择目录起始单元格",Excel提示我们是否VB项目，选择文件保存类...

打开工作簿时Excel总是提示包含无法更新的链接？

Excel默认会弹出一个对话框提示，每次打开包含链接的工作簿并单击。工作簿中包含了错误的链接而无法更新，这时可以从下面的几个方面查找这些错误的链接：一、工作表中包含错误的链接，源工作簿或其中某个被引用...

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

Excel中的有效和无效操作，90%的人都在无效操作！

这是爱问共享资料的第：走近一瞧原来是表哥和辛莱德在讨论 Excel 里的无效和有效操作~。*视频配合图文食用，再来看看下面的图文教程吧~，使用删除键【Delete】。将表格里的小数点一个个删掉……：想...

Excel公式技巧01： 使用INDEX函数返回整行或整列

INDEX函数是我们经常使用的函数之一，如果将其行参数或者列参数指定为0（或者忽略）。那么会返回对指定列或行的引用，这里返回的不是单个值。返回数据区域A1:=INDEX(A1：返回数据区域A1，即单元...

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

65个excel操作教程大全，新手很容易上手，建议收藏备用

可以看看本文提供的Excel表格操作技巧汇总详细教程。1、为excel文件添加打开密码：按ctrl或shift键选取多个要打开的excel文件”10、把A.xlsx文件图标显示为图片形式“4、隐藏ex...

excel查找定位：INDEX函数——精确制导导弹

一、认识INDEX函数Index函数：返回特定行列交叉处单元格的值或引用。二、INDEX函数基础用法1.单行、单列中提取数值”只需一个坐标值如果给定的区域是单行或者单列。INDEX通过坐标返回数值”实...

5分钟搞定2个小时的工作量？这个Excel“魔法”让同事直呼：这也太猛了...

下面就和春风老师一起来从创建、运行、管理、宏的安全设置四个方面学习下。这条命令可以是文档编辑中的任意操作或操作的任意组合。我们分录制和使用Visual Basic两种方式创建宏。01录制宏在Excel...

沉浸式Excel工作表目录教程

今天来简单聊一下如何使用Excel简单的函数完成工作表目录和文件目录的制作！工作表目录制作教程，使用下面的函数组合公式定义名称,用于获取工作表名称,=REPLACE(GET.WORKBOOK(1),工...

你的工作中必须要学会的这27个Excel函数公式，速速收藏

Excel中两个日期之间工作日的精确计算

计算两个日期间的间隔时间最简单的方法就是，返回的结果是排除两个日期之间的双休日和指定假日的完整工作日数值，首先再介绍另外一个工作日函数workday（start_date，计算起始日期之前或之后相隔指...

这6则Excel经典公式解除财务会计68%的工作烦恼

更多不同内容、不同方向的Excel视频课程获取（手机微信扫码▲识别图中二维码）:H3输入的公式=SUMIF($B$2，看看吧我的操作演示效果（单击下图gif动态演示）C14单元格输入这个公式？然后向右...

Excel工作表发给同事，避免乱改动，简单设置小技巧

整个工作表进行保护这种情况下，只能进行查看，当进行编辑任意单元格的时候，我们只需要点击审阅选项卡，然后点击保护工作表，表格里面部分数据需要同事协同修改，其它区域不能进行修改，设置方法分两步就可以完成第...

Excel硬核职业技能：全自动超链接工作表目录！往届生成功靠这招涨工资

这不小Q就靠一手全自动excel工作表目录技能，本文先带你熟悉全自动工作表目录的功能：点击目录即可跳转至指定工作表，目录自动更新当工作表名称被修改后：目录自动更新当某些工作表被删除后：目录自动更新当文...

别弄丢！年底都会用到的7个Excel模板，10秒钟搞定半天工作

2.多表或者多工作簿合并到一个工作表。以后就不用再每次打开表格复制粘贴了，将模板放在要合并的文件夹内。也是将要合并的工作簿和模板放在同一个文件夹，这里合并后生成多个工作表:4.将一个工作簿的多个工作表...

EXCEL中的行高和列宽单位是什么？怎么样换算成毫米？

一、默认度量单位的设置 Word的默认度量单位用于对话框中输入的数值和Word，中就可以选择默认度量单位了。还要知道在哪些地方很好地应用和设置度量单位，度量单位的设置一般分默认和特指两种方式。例如在页...

职场必学的Excel打印技巧，这5个方法，1秒打印所有内容

看到这样打印的表格相信会抓狂滴。制作好的表格打印后，这样再打印表格就在一张纸上了，普通打印时除第1页纸有标题行（也就是表头部分）外，查看数据时还要翻到第1页纸看看标题：鼠标点击【页面布局】选项卡中的【...

Excel各种密码解锁姿势（收藏备用）

经常会遇到加密工作簿或者工作表忘记密码的情况，1.1工作簿保护密码;Excel工作簿保护后（审阅 - 保护工作簿）;在上图工作表标签右键菜单中点击"查看代码;打开一个新的窗口(Visual ...

'工作簿工作Sheet1数据

上一篇
八字入门知识：命局推命参考资料大全！赶紧收藏！

下一篇
几乎失传的秘籍， 25个疾病中医家传 治愈妙招！

有话要说...

最新文章

取消
扫码支持 支付码