删除另一个工作簿中的行

目标：在一个Excel工作簿（Default.xls）中编写VBA脚本以打开具有variables名称（NFL_ *）的另一个Excel工作簿。 然后在默认的VBA脚本将删除NFL中的几个多余和合并单元格types的行（1:12）。 然后它会统计NFL中填充的logging的数量（即行数）并删除最后一行（因为它不是一个真正的logging，它只是一个总结其中一列的单元格）。

问题：我不能让后半部分工作 – 关于删除最后一个“行”的部分。 如果脚本是在NFL工作簿本身编写的，但是我无法使用默认工作簿中编写的脚本来实现。 虽然 – 我可以在默认工作簿中获得VBA脚本删除NFL工作簿中的行1：12。 后者为什么不行？

问题重述：默认工作簿具有1个VBA脚本，在另一个工作簿上执行2个不同的操作。 1行动 – 删除行1:12 – 工作。 第二个操作 – 删除最后一个“行” – 不起作用。

预先感谢您的任何帮助！

Sub Chop_FR_NFL() 'Set parameters Dim wb As Excel.Workbook Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True 'Open latest NFL report and delete rows 1:12 Set wb = xlApp.Workbooks.Open("T:\xx\xx\xx\xx\xx\xx\xx\" & "NFL_*", True, False) wb.Sheets(1).Rows("1:12").Delete 'Delete Total UPB Grand Total cell Dim UPB As Long UPB = Range("I" & Rows.Count).End(xlUp).Row Range("I" & UPB).Select Selection.Delete wb.Save wb.Close End Sub 

Answer 1

这应该工作：

 '... With wb.Sheets(1) .Rows("1:12").Delete .Cells(.Rows.Count, "I").End(xlUp).EntireRow.Delete End With '...