使用vba实现以下功能：
当目前活动sheet中某一个单元格（比如c1）的数据发生变化时，函数发生响应
函数实现功能是：读取另外一个特性路径下的excel某一行（比如a1：d1）的数据，并且把这行数据转置后粘贴到当前sheet中的某一列（比如b1：b4）
此特殊路径中包含当前活动sheet的c1单元格，比如“c\abc\hj_C1单元格内容.excel”
如果不存在符合特殊路径的文件，则b1：b4继续为无内容状态
操作成功后关闭特殊路径下的文件
第1个回答 2013-09-18
application.screenupdate=false
set wkbk=workbooks.open("c\abc\hj_" & cells(1,3) & ".excel” ) 'cells(1,3)就是C1
with activesheet
for i=1 to 4
.cells(2,i)=wkbk.sheets(1).cells(i,1)
next
end with
wkbk.close
application.screenupdate=true本回答被提问者和网友采纳
set wkbk=workbooks.open("c\abc\hj_" & cells(1,3) & ".excel” ) 'cells(1,3)就是C1
with activesheet
for i=1 to 4
.cells(2,i)=wkbk.sheets(1).cells(i,1)
next
end with
wkbk.close
application.screenupdate=true本回答被提问者和网友采纳
第2个回答 2013-09-18
不懂你所谓的特殊路径是指什么还是就某一路径下的excel文档追问
就是某一个路径下的excel文挡
