我正在使用vb6并将数据复制到Excel表格中。我需要做的是将数据附加到现有工作表。我正在找到我需要找到工作表中最后一个单元格的索引号(只有一个工作表)。我已经尝试了几个东西,如 oBook.range.cells.specialcells(xllastcell )但无济于事。我现在打开我想要的工作表是这个
I'm using vb6 and copying data to an excel sheet. What I need to do is append data to an existing sheet. I am at the point where I need to find the index number of the last cell in the sheet (there's only one sheet.) I've tried a couple things like oBook.range.cells.specialcells(xllastcell) but to no avail. What I have right now to open the worksheet I want is this
If Not Dir(strPath) = "" Then Set oExcel = CreateObject("Excel.application") Set oBook = oExcel.workbooks.open(strPath)但我不知道从这里做什么来找到工作簿中的最后一个单元格。
but I have no idea what to do from here to find the last cell in the workbook.
推荐答案在互联网冲浪的答案我发现一行代码工作。我必须将一些值,例如 xlbyrows 更改为1和 xlprevious 为2,因为vb6 dows
Upon scouring the internet for the answer I found a line of code that worked. I had to change some of the values such as xlbyrows to "1" and xlprevious to "2" because vb6 dows not recognize the terms but can use the number constants.
这是代码的原始代码
LastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row这是我改变了它与我的代码一起使用
this is what I changed it to that worked with my code
iCell = oExcel.cells.find("*", searchorder:=1, searchdirection:=2).row更多推荐
在Excel表中找到最后一个单元格?
发布评论