vb6.0 求助

dzzxlbj

刚接触vba  因为工作关系 需要做一个报名录入表，界面做好了，用6.0做的不是execl，如下图

做完问题就来了，这些信息如何通过点击保存按钮，保存execl中，愁死了。

后来网上查找
Private Sub bc_Click(Index As Integer)
    Dim i As Integer
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls")
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = False
   i = xlSheet.cells(rows.Count, 2).end(xlup).row（这句代码怎么改）
    xlSheet.range("A1").Value = i
    xlBook.Save
     Set xlSheet = Nothing
     Set xlBook = Nothing
    xlApp.Quit     
End Sub

为了能够一行行录入（防止占了已有数据） 需要这句代码，后来发现红颜色的代码出错，

在vba里应该没问题啊，咱们论坛大神多  大家帮忙看看。关键是在vb6中怎么写代码能定位到execl记录的的最后一条？

zpy2

一般可以网上预报名，现场审核的方式可能会比一个人集中输入更方便。可以试试php.

xyxcc177

i = xlSheet.cells(rows.Count, 2).end(-4162).row

笑着...两年过去

xlsheet.cells(xlsheet.rows.Count这样试试，    不行的话试试i=xlsheet.range("b65536").end(xlup).row

tz0065

Workbooks.Open(app.path & "\test.xls")
这句里的app.path 不解释一下？ app哪来的

小fisher

tz0065 发表于 2018-8-2 08:05
Workbooks.Open(app.path & "\test.xls")
这句里的app.path 不解释一下？ app哪来的

app.path是vb编译的可执行文件的路径

魂断蓝桥

既然用了vb 何必把数据保存在excel中呢，应该保存在access中，然后可以导出就行了。

小fisher

i = xlSheet.cells(xlSheet.rows.Count, 2).end(-4162).row
1） xlUp（Const xlUp = -4162）是EXCEL库（Microsoft Excel x.0 Object Library)的成员，如果没引用该库，就相当于没定义该变量
2）rows.count在VBA中相当于Application.Rows.Count，返回的是活动工作表的行数，在excel中可以省去application，就像applciation.workbooks可以简写为workbooks，在其他程序中必须要加上的。

dzzxlbj

小fisher 发表于 2018-8-2 08:27
i = xlSheet.cells(xlSheet.rows.Count, 2).end(-4162).row
1） xlUp（Const xlUp = -4162）是EXCEL库（Mi ...

感谢大家，8楼大神你的方法已经成功谢谢！咱们这论坛大家真好，藏龙卧虎！多向大家学习。顺便问下在vb中vlookup函数能用吗？该怎么表达？

小fisher

dzzxlbj 发表于 2018-8-2 09:03
感谢大家，8楼大神你的方法已经成功谢谢！咱们这论坛大家真好，藏龙卧虎！多向大家学习。顺便问下在vb中v ...

用xlapp.WorksheetFunction.VLookup(...)