Function findstr(strfind, myrow As Integer, mycolumn As Integer) As String
Dim activeRow, activeColumn, returnRow, returnColumn As Integer
Windows(fledate & ".txt").Activate
Range("A1").Select
Cells.find(What:=strfind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
activeRow = ActiveCell.Row
returnRow = activeRow + myrow '''''''''''查找对应行
activeColumn = ActiveCell.Column
returnColumn = activeColumn + mycolumn '''''''''''查找对应列
findstr = Worksheets(1).Cells(returnRow, returnColumn).Value
Workbooks("cmsc基本指标.xls").Worksheets(2).Activate '''''激活报表窗口
End Function