本人初学者，请问如何把当前工作簿的某些数据实时的写入另外一个excel文件中去。这是我参考网上改的一个，当选中第一列后会出现执行这个动作，但是我现在却得不到当前工作簿这个对象，因为我不知道如何建立像WsheetA的这样的当前工作簿对象&Private Sub Worksheet_SelectionChange(ByVal Target As Range)&Dim exlA&&&& As New Excel.Application& Dim exlB&&&& As New Excel.Application& Dim WsheetA&&&& As Excel.Worksheets& Dim WsheetB&&&& As Excel.Worksheets& If Target.Row = 1& Then& exlA.Workbooks.Open "c:\xiexie.xls"&&&& '打开excel文件,可以用变量& Set WsheetA = exlA.ActiveWorkbooks.Worksheets(1).Select& 'exlB.Workbooks.Open "第二个excel路径.xls"&&&& '打开excel文件,可以用变量& Set WsheetB = exlB.ActiveWorkbooks.Worksheets(1).Select&&&&&&&&& WsheetB.Cells(1, 1) = WsheetA.Cells(1, 1) '把第一个excel文件的第一个单元格的值写到第二个excel文件的第一个单元格&&&&&& '关闭释放内存。& exlA.Quit Save:=True&&& '保存excelA& exlB.Quit Save:=True&&&&&& '保存excelB& Set exlA = Nothing& Set exlB = Nothing&&&&&&&&& & Target = Target.Row * 2End IfEnd Sub
(12.17 KB, 下载次数: 20)
14:39 上传
下载次数: 20
如何在把当前工作簿的某些数据实时的写入另外一个Excel文件
[此贴子已经被作者于 14:40:04编辑过]
猜你喜欢看
在线时间493 小时经验5896 威望12 性别男最后登录注册时间阅读权限50UID178240积分6896帖子精华0分享0
管理以下版块
积分排行118帖子精华0微积分0
建议上传附件，说明具体的问题。
在线时间493 小时经验5896 威望12 性别男最后登录注册时间阅读权限50UID178240积分6896帖子精华0分享0
管理以下版块
积分排行118帖子精华0微积分0
如果两个文件同时存在的话，可以借助于ADO+SQL实现，但是如果有一个不存在的话，我也不知道怎么来重新创建一个新的工作簿，在不打开的情况下。
会当凌绝顶，一览众山小。
在线时间0 小时经验4 威望0 性别男最后登录注册时间阅读权限10UID365021积分4帖子精华0分享0
EH新人, 积分 4, 距离下一级还需 16 积分
积分排行3000+帖子精华0微积分0
你能给我先实现都存在的情况的吗？谢谢
积分≥4700即可申请
最佳会员奖章No.1
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&update (select * from scoreTable as s inner join project as p on p.pid=s.pid ) as w set w.score=1 w_百度知道
update (select * from scoreTable as s inner join project as p on p.pid=s.pid ) as w set w.score=1 w
update (select * from scoreTable as s inner join project as p on p.pid=s.pid ) as wset w.score=1 where w.sid=1 and w.pname='语文'这个语句有错吗
这样写肯定有问题了因为update只能对物理表进行更新，而现在你是在更新子表，那就肯定有问题。不过按你的意思只要改一下就可以了：UPDATE SCORETABLE SET SCORE=1 WHERE SID=1 AND PNAME='语文'WHERE PID IN(SELECT PID FROM PROJECT)
其他类似问题
按默认排序
其他1条回答
请你给出两个表的表结构以及你想得到的结果这样才好帮你解答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VBA从一组文件中提取数据，整理后填写到工具Excel的第二个sheet页，零基础，讲细点，谢谢_百度知道
VBA从一组文件中提取数据，整理后填写到工具Excel的第二个sheet页，零基础，讲细点，谢谢
Sub a()Dim exlA As New Excel.ApplicationDim exlB As New Excel.ApplicationDim WsheetA As New Excel.WorksheetDim WsheetB As New Excel.WorksheetexlA.Workbooks.Open &F:\test\a.xls&Set WsheetA = exlA.ActiveWorkbooks.Worksheets(1)exlB.Workbooks.Open &F:\test\b.xls&Set WsheetB = exlB.ActiveWorkbook.Worksheets(&sheet1&)Worksheets(&sheet1&).Cells(a, 1).Value = Worksheets(&sheet1&).Cells(a, 5).ValueWsheetB.Cells(1, 1) = WsheetB.Cells(5, 1)exlA.QuitexlB.Quit Save:=TrueSet exlA = NothingSet exlB = NothingEnd Sub这是我写的一部分，报错 缺少函数或变量，是什么情况
提问者采纳
Workbooks.Open Filename:=&你的文件路径和文件名& '打开文件
'你的处理代码
'你的处理代码
ActiveWorkbook.Saved = True '关闭时不提示保存
ActiveWindow.Close '关闭文件
其他类似问题
按默认排序
其他1条回答
你能把你的文件和代码一起发上来么？
先看看下面代码有什么问题啊
你知道你图方便图省事为回答你的人带来多大的不方便吗？对于你这种行为，我只想说：没空。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁WHILE (SELECT grade FROM sc) & 70 BEGIN UPDATE sc SET grade = grade * 1.2 SELECT MAX(grade) FROM sc_百度知道
WHILE (SELECT grade FROM sc) & 70 BEGIN UPDATE sc SET grade = grade * 1.2 SELECT MAX(grade) FROM sc
子查询返回的值不止一个。当子查询跟随在 =、!=、&、&=、&、&= 之后，或子查询用作表达式时，这种情况是不允许的。这该怎么改
提问者采纳
WHILE (SELECT Max(grade) FROM sc) & 70 BEGIN UPDATE sc SET grade = grade * 1.2 SELECT MAX(grade) FROM sc
提问者评价
谢谢哦，我试一下
其他类似问题
等待您来回答
您可能关注的推广
下载知道APP
随时随地咨询
出门在外也不愁创建Excel对象的原理
[问题点数：0分]
创建Excel对象的原理
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。}