如何往Excel中追加记录？

Question

第一次已经导入并生成一个新表，第二次往该表中追加记录。不知道怎么追加？请教高手们了。请附上源码。

Answer 1

能导入，就应该能追加了，就是取得当前EXCEL中有多少条记录，在此后继续插入就行了。exlApp := CreateOleObject ('Excel.Application');
exlWst := exlApp.ActiveSheet;
exlApp.WorkBooks.Open(aFilePath);
exlWst.UsedRange.Rows.Count //取得行数这是DELPHI的代码，不过都是通过VBA进行控制的，原理一样，你可以改成VB的代码。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 2

Dim ReadExcel As Object
Set ReadExcel = CreateObject("d:\1.xls")
readExcel.Worksheets(1).UsedRange.Count