|
Sub text()
Dim wj$
wj = Dir(ThisWorkbook.Path & "\*.x*")
Do While wj <> ""
If wj <> ThisWorkbook.Name Then
Workbooks.Open (ThisWorkbook.Path & "\" & wj)
ThisWorkbook.Sheets(1).Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Mid(wj, 11, 4) & "费用"
ActiveWorkbook.Sheets(1).Range("m3:m" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, 2).End(3).Row).Copy _
ThisWorkbook.Sheets(1).Rows("2:2").Find(Mid(wj, 11, 4) & "费用").Offset(1, 0)
ActiveWorkbook.Close 1
End If
wj = Dir
Loop
End Sub
|
|