VBA添加新行到最后的有关问题

VBA添加新行到最后的问题需要添加几行到表格最后我的代码是： Set xlBook = xlApp.Workbooks.Open(TextBox1.Value, ReadOnly = True) Set xlsheet = xlBook.Worksheets("GLCD+PLCD&SUFFIX") maxno = xlsheet.UsedRange.Rows.Count Set newrow = xlsheet.Rows.Add(BeforeRow:=xlsheet.Rows(maxno))可运行到添加哪行总是告诉我：对象不支持该属性和方法大家帮我看看有什么问题——解决方案——————————————————–添加行用Insert方法xlsApp.ActiveSheet.Rows(maxno).Insert——解决方案——————————————————–1) Rows 没有 Add() 函数。2) Excel 末尾添加不需要任何插入操作，maxno 的下一行可以直接填充数据。——解决方案——————————————————–VBScript code

xlsheet.Cells(30, 1).Value = "A"     'Cells(30, 1)--第30行、第1列，等同于 Range("A30")xlsheet.Cells(30, 5).Value = "123"     'Cells(30, 5)--第30行、第5列，等同于 Range("E30")坦然接受生活给你的馈赠吧，不管是好的还是坏的。