关于查询其他表格数据的问题

haha_xion

大家看看哪里出问题：
在表格中加个按钮，找到B表格中找到 "查找4" 所在列的字母，并将该列中指定区域复制到原表格的e6单元格中！
Dim myPath, myFile As String
Dim AK As Workbook
Dim s, f As Integer
myPath = ThisWorkbook.Path & "\数据源\"
myFile = Dir(myPath & "b.xls")
Set AK = Workbooks.Open(myPath & myFile)
s = 7                                             '起始行数
f = AK.Sheets(1).range("a65536").End(xlUp).Row    '结束行数

AK.Sheets(1).range("a5:g6").Find(What:="查找4", LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , MatchByte:=False, SearchFormat:=False).Activate
a = Split(ActiveCell.Address, "$")(1)          ‘将a赋值为找到数据所在列的字母
'就是这里出错，不知为何？

temp = a & s & ":" & a & f
AK.Sheets(1).range(temp).Copy ThisWorkbook.Sheets(1).range("e6")

[ 本帖最后由 haha_xion 于 2009-3-9 16:02 编辑 ]

haha_xion

哪位朋友感兴趣可帮助看下！

haha_xion

帖子又快下沉了，大家帮助啦！感谢！

haha_xion

又生沉底啦，只好自己跟下

haha_xion

今天大家有空帮助看下，谢谢啦！

haha_xion

再一次让贴不下沉

热浪2006

试过了，无错！