如何向有数据的EXCEL表格的某一行前面插入一行空行？

Question

RT.

Answer 1

这个很容易的
留下邮箱
我发份excel的参考资料给你
看了你就明白了

Answer 2

[email protected]多谢楼上了 ：）

Answer 3

呵呵，我刚才看了一下，上面好象没有你要的，不过我还是发一份给你了
你这里用下面的方法吧：
xlsSheet.rows(1).Insert示例代码如下：（直接复制就可以运行）
Private Sub Form_Load()
Dim xlsApp As Object          
Set xlsApp = CreateObject("excel.application")      '创建app对象Dim xlsBook As Object
Set xlsBook = xlsApp.workbooks.Add           '添加一个workbook对象Dim xlsSheet As Object
Set xlsSheet = xlsApp.worksheets.Add        '添加一个worksheet对象xlsSheet.cells(1, 1) = "sdlfajf"           '给第一行第一个单元格填充数据
xlsSheet.rows(1).Insert                  '在第一行前面插入一行
xlsSheet.cells(1, 1) = "123123"          '填充插入空行的第一个单元格xlsApp.Visible = True                    '显示excelxlsBook.saveas "c:\123.xls"             '保存excel'xlsBook.Close                         '这里的被我注释掉了，为的可以看效果
'xlsApp.quit
'Set xlsApp = Nothing
'Set xlsBook = Nothing
'Set xlsSheet = Nothing
End Sub

Answer 4

我刚买了一个midea的电饭煲，哈哈

Answer 5

非常感谢！
晕死，我昨天都试过xlsSheet.rows(1,1).Insert了，不过没试xlsSheet.rows(1).Insert，主要系统总提示rows里面要两个参数一样，所以，一直没搞定。

Answer 6

加入一行到表头的话，你就可以直接操作excel了
而不能再用copyfromrecordset了
如果还用会把原来的覆盖掉
反正就一行，就直接填充吧
cells(i,j)="要填充的字符串"