如何实现自动换行递增保存？

[CHR1981]

我有A和B两个文档。。如何实现A文档B10>0时，复制A10：H10至B表格B行为开头最顶空白格。也就是说当B文档第一行复制成功，下次写入B10>0时，保存在第二行，第三次第四次写入都递增保存下去。。

[xinliangyu]

这么长时间居然没人来回答，好冷清！
本已不大来csdn答题了，今天有点心情，试试看

[xinliangyu]

'Ａ文档中调用以下代码，便可：
Dim i As Integer
Range("A10:H10").Copy
Workbooks.Open Filename:="B文档的带路径文件名"
i = ActiveWorkbook.Sheets("sheet1").Range("A1").CurrentRegion.Rows.Count
ActiveWorkbook.Sheets("sheet1").Range("A" & i + 1).PasteSpecial
ActiveWorkbook.Sheets("sheet1").Range("A1").Select
ActiveWorkbook.Close True
Application.CutCopyMode = False