作者：乔山办公网日期：
返回目录：excel表格制作
假如是i行：
cells(i,columns.count).end(xltoletf).column
我求知A列最后 一行的行数是：道
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
我求1 行最版后 一列的列权数是：
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
代码及注释如下：
Sub main()
f = Dir(ThisWorkbook.Path & "\*.xlsx")'搜索本文件来下的所有xlsx格式文件(由于一般带VBA的文件不能保存为xlsx格式，故无需去判断，是自否打开的是本文件）
Do While f <> ""
Workbooks.Open (ThisWorkbook.Path & "\" & f)'依次打开搜索到的文件
Workbooks(f).Sheets(1).Row(3).Copy Sheets(1).Range("A" & Range("A65536").End(3).Row + 1)'将打开的文件第3行复制到本文件最百后一个非空行的下一行中
Workbooks(f).Close'关闭文件
f = Dir'赋值下一个文件名给度f
Loop'继续循环
End Sub
这里其实是用vb操作excel软件，你不引用excel运行库，
也就没有的excel软件对象，没有了你要操作对对象，
你还去操作这个对象，当然就会出错。