问：我正在vb6中尝试一个项目，
我有10个命令按钮和10个文本框，其中保存了一些数据，
我通过vb6代码将所有数据作为完整记录传输到Excel文件中，
告诉您我在工作中使用的4个控件的含义
我的第一个命令按钮是
标题：BooksNames
名称：cmdTBooksNames
我的第二个命令按钮是
标题：No books
名称：cmdTNoOfBooks
我的第一个文本框是
Name：txtBooksNames
Text：“”
我的第二个文本框是
Name：txtNoOfBooks，
当我执行程序时，用户将提供2个输入，
我在vb6中创建了代码以将这些值传递到excel
我也通过vb6对excel表进行了编码，以便在指定的单元格中找到接收到的值，例如以下代码
******************************** *********
oXLSheet.Range（“ A1”）= TBksNames
oXLSheet.Range（“ B1”）= BksNames
oXLSheet.Range（“ A2”）= TNoOfBks
oXLSheet.Range（“ B2”）= NoOfBks
* ****************************************************** * *
例如，现在我已经从范围A1到B2的数值
一切准备好
可是当我再次执行我的计划，我赐第二次替换现有数据vaues
所以，我一派，我发现下面的片段以查找excel工作表中的第一条未使用的行，以便我可以找到已激活的行以传输第二条记录
****************************************************** **
设置oXLRange = oXLSheet.UsedRange
oXLRange.SpecialCells（xlCellTypeLastCell）。
激活newStartingRow = oXLApp.ActiveCell.Row + 1
newStartingCell =“ A”和newStartingRow
oXLApp.Range（newStartingCell）.Activate
********** ******************************************** ***
但是这里的问题是，我必须通过更改单元格的地址来再次编码，例如
******************************************* *********** *
oXLSheet.Range（“ A3”）= TBksNames
oXLSheet.Range（“ B3”）= BksNames
oXLSheet.Range（“ A4”）= TNoOfBks
oXLSheet.Range（“ B4”）= NoOfBks
*************************************************** *** *
如果我想每天添加10条记录，情况会变得更加复杂，我
再次感到沮丧，
是否有可能将已激活的单元格地址复制为“ A1：B2”，但是会自动将记录保存到现有记录旁边，
答：这是否与您的通话中出现的问题相同：
“将新记录添加到单个Excel工作表中的现有记录中
”？
如果是这样，则无需使用单元地址。
PS：
如果要设置单元地址，请使用类似var的变量：
展开| 选择| 包装| 行号
暗淡的CELLADDRESS作为字符串
CELLADDRESS =“ A1”
范围（CELLADDRESS）= textbox.text
