2063
社区成员
- 全部
VBA的难题，如何在一个宏里访问另一个文件的cell
比如：文件1.xls,文件2.xls
我可以在宏中用：
Cells(1, 2).Select
ActiveCell.FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
但如果不要公式，只是要赋值而已，象如下这样做：
ActiveCell.Text = "1234"
对本文件的sheet可以很容易这样写
ActiveCell.Text = sheet2!R1C1
但对另一个文件的sheet如何访问呢？？
我可以在宏中用：
Cells(1, 2).Select
ActiveCell.FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
但如果不要公式，只是要赋值而已，象如下这样做：
ActiveCell.Text = "1234"
对本文件的sheet可以很容易这样写
ActiveCell.Text = sheet2!R1C1
但对另一个文件的sheet如何访问呢？？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
lvanjie 2005-12-01
文件1.xls,文件2.xls 都打开的状态下可以使用如下轻松实现：
（假如在文件1.xls中的宏，通过宏获取文件2.xls中 Sheet1!中（W，U）单元格的数据来存放在文件1.xls的 Sheet1中（X，Y）单元格）
X=2 '指定要存入的单元格X值假设等于2
Y=3 '指定要存入的单元格y值假设等于3
W=2 '指定要读取的单元格y值假设等于2
U=3 '指定要读取的单元格y值假设等于3 这样的话可以采用循环来读取大量的数据
Workbooks("文件1.xls").Sheets("Sheet1").Cells(X,Y)=Workbooks("文件2.xls").Sheets("Sheet1").Cells(W,U)
只是要赋值而已，象如下这样做就可：
Workbooks("文件2.xls").Sheets("Sheet1").Cells(2,3) = "1234"
（假如在文件1.xls中的宏，通过宏获取文件2.xls中 Sheet1!中（W，U）单元格的数据来存放在文件1.xls的 Sheet1中（X，Y）单元格）
X=2 '指定要存入的单元格X值假设等于2
Y=3 '指定要存入的单元格y值假设等于3
W=2 '指定要读取的单元格y值假设等于2
U=3 '指定要读取的单元格y值假设等于3 这样的话可以采用循环来读取大量的数据
Workbooks("文件1.xls").Sheets("Sheet1").Cells(X,Y)=Workbooks("文件2.xls").Sheets("Sheet1").Cells(W,U)
只是要赋值而已，象如下这样做就可：
Workbooks("文件2.xls").Sheets("Sheet1").Cells(2,3) = "1234"
lvanjie 2005-11-30
文件1.xls,文件2.xls 都打开的状态下可以使用如下轻松实现：
（假如在文件1.xls中的宏，通过宏获文件2.xls中 Sheet1!中的数据来放在文件1.xls的 Sheet1中）
Workbooks("文件1.xls").Sheets("Sheet1").Cells(X,Y)=Workbooks("文件1.xls").Sheets("Sheet1").Cells(W,U)
（假如在文件1.xls中的宏，通过宏获文件2.xls中 Sheet1!中的数据来放在文件1.xls的 Sheet1中）
Workbooks("文件1.xls").Sheets("Sheet1").Cells(X,Y)=Workbooks("文件1.xls").Sheets("Sheet1").Cells(W,U)
DawnPine 2005-11-07
还不是一样的
先打开workbook
再打开sheet
最后操作
对录制的宏可以学习,但不能依赖它
Cells(1, 2).Select
ActiveCell.FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
这样的句子有明显录制的味道
Cells(1, 2).FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
这样就简洁一些
先打开workbook
再打开sheet
最后操作
对录制的宏可以学习,但不能依赖它
Cells(1, 2).Select
ActiveCell.FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
这样的句子有明显录制的味道
Cells(1, 2).FormulaR1C1 = "=[文件2.xls]Sheet1!R21"
这样就简洁一些
Excel VBA编程 文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
excel vba 数据分析 VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一．定义 标识符是一...
【LuKS】Vba开发从入门到精通 =.= 第一章VBA语言基础简介 第一节 标识符. 2 第二节 运算符. 2 第三节 数据类型. 2 第四节 变量与常量. 3 第五节 数组. 3 第六节 注释和赋值语句. 3 第七节 书写规范. 3 第八节 判断语句. 4 第九节 循环语句. ...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
Delphi与Word之间的融合技术 问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...
网管教程+从入门到精通软件篇 Windows XP（包括 Windows 2000）的控制台命令是在系统出现一些意外情况下的一种非常有效的诊断和测试以及恢复系统功能的工具。小编的确一直都想把这方面的命令做个总结，这次辛苦老范给我们整理了这份实用的秘笈。...
Windows系统及应用技巧二十六篇 目录：一：详细的xp修复控制台命令和用法二：常见文件扩展名和它们的说明三：GHOST怎么用?四：如何防范恶意网站五：win2000/xp忘记密码的方法六：WindowsXP自带小工具七：windows中有关网络的几命令八：了解你的...
C语言--视频精讲 C语言作为被长期使用的编程语言，可以被运用到各种操作系统，游戏，开发中。本课程作为互联网上首家使用C99录制的C语言教程，展现了全面、专业。标准的C语言教程。可以帮助学员从基础开始一点点的深刻理解C语言。 a:0:{}
Java基础核心技术：面向对象编程(day05-day07) 本套Java视频完全针对初级学员，课堂实录，自发布以来，好评如潮！Java视频中注重与学生互动，讲授幽默诙谐、细致入微，覆盖Java基础所有核心知识点，同类Java视频中也是代码量大、案例多、实战性强的。同时，本Java视频教程注重技术原理剖析，深入JDK源码，辅以代码实战贯穿始终，用实践驱动理论，并辅以必要的代码练习。 通过20的课程学习，使学员掌握java核心语法、面向对象思想编程、异常处理、IO流、集合类、多线程、网络编程等。
QRegExp的详细解析 引言
正则表达式（regular expression）就是用一个“字符串”来描述一个特征，然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”，那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来：（1）验证字符串是否符合指定特征，比如验证是否是合法的邮件地址。（2）用来查找字符串，从一个长的文本中查找符合指定特征的字符串，比查找固定字符串更加灵活方便。（3）用来替换，比普通的替换更强大。
WPF中用于嵌入其他进程窗口的自定义控件（AppContainer） WPF中用于嵌入其他进程窗口的自定义控件（AppContainer）
具体见博文：http://blog.csdn.net/zzzwwwppp11199988899/article/details/78131292
EXCEL VBA编程（excel办公高手必经之路） 宏基础
VBA编程基础
常用语句（分支、循环语句的基础及应用）
VBA结合工作表的函数功能的应用等 如果您会了所有的excel技能都不能解决工作的数据问题。那请选择VBA技术完成。本季主要讲解关于VBA的基础知识。为走向更高阶的excel技术打下基础。为更高效的办公打下基础。
