|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub lkyy()
Dim Mp$, Mf, wb As Workbook, ts As Worksheet
Mp = ThisWorkbook.Path & "\"
Mf = Dir(Mp & "*.xlsm")
Set ts = ThisWorkbook.Sheets("资产负债表底稿-合并后")
Do While Mf <> ""
If Mf <> ThisWorkbook.Name Then
Range("d:d").Insert
Set wb = Workbooks.Open(Mp & Mf)
With wb.Sheets(1)
ts.[d4] = Split(Mf, ".")(0)
ts.[d41] = Split(Mf, ".")(0)
.Range("c5:c39").Copy ts.[d5]
.Range("g5:g39").Copy ts.[d42]
End With
wb.Close 0
Set wb = Nothing
End If
Mf = Dir()
Loop
End Sub |
|