5,139
社区成员
发帖
与我相关
我的任务
分享如何在两个excel文件中拷贝某一列的值
在A.xls中sheet1的a列的值，去除掉空的那部分，剩余的拷贝到b.xls中的某一列去，大家给点思路吧
...全文
请发表友善的回复…
发表回复
ACMAIN_CHM 2011-02-20
- 打赏
- 举报
blueskyfly119 2011-02-16
- 打赏
- 举报
搞定了，
Dim newxls As Object
Set newxls = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
使用1.xls的时候，就用以下语句
newxls.Sheets(1).Activate
用一个全局变量传递数据就可以了
Dim newxls As Object
Set newxls = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
使用1.xls的时候，就用以下语句
newxls.Sheets(1).Activate
用一个全局变量传递数据就可以了
