500分向您请求协助解决剩余问题

Question

jinjazz
俺500分向您求助协助解决网页自动填写中，在excel存储用户名，并从excel读取数据组，和最后整合成一体的工作．
我已经解决了，填写，判断，就剩excel调入了．
我是的用户组只能一次最多给１００分，我分５次给你加到５００分．

Answer 1

直接把 Excel 文件当作数据库来处理：    Dim cn As New ADODB.Connection 
   Dim rs As New ADODB.Recordset    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
      "Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;"    Set rs = cn.Execute("Select * FROM [Shee1$]")    Do Until rs.EOF 
       '...... 
   Loop

Answer 2

请楼主详细说明操作步骤exce保存用户密码
webbrowser打开网页
调入用户密码
写入webbrowser打开的网页
登陆---------如果是上面的需求，不难解决。等我上班帮你。
另外我不会写vb6的代码，如果可以的话我可用delphi,c#或者vb.net来帮你，但是至少要等到周一。

Answer 3

嘿嘿,我会写VB6里调用EXCEL组件读写XLS的代码.......能不能抢劫点~~

Answer 4

Public Function GetFromExcel(ByVal FileName As String, ByVal SheetName As String)                '從EXCEL導入數據
    Dim xlApp As Object 'Excel.Application
    Dim xlBook As Object 'Excel.Workbook
    Dim xlSheet As Object 'Excel.Worksheet
    Dim I As Long, J As Long, tmpStr As String, tmpStr2 As String
    
    Dim tmpYear As Long             '年(固定)
    Dim tmpMonth As Long            '月
    Dim tmpDay As Long              '日
    Dim tmpLine As String           '線別
    Dim tmpShift As String          '班次
    Dim tmpProdNo As String         '貨單號
    Dim tmpQty As Long              '産品數量
    
    Dim tmpShiftRow As Long         'Shift值所在列(固定)
    Dim tmpLotRow As Long           'Lot值所在列(固定)
    Dim tmpQtyLine As Long          'Qty值所在行
    Dim tmpPLLine As Long           'P/L值所在行
    
    On Error Resume Next
    
    Set xlApp = CreateObject("Excel.Application")               '創建EXCEL對象
    Set xlBook = xlApp.Workbooks.Open(FileName)                 '打開已經存在的EXCEL工件簿文件
    xlApp.Visible = False
    Set xlSheet = xlBook.Worksheets(SheetName)                   '設置活動工作表
    
    'tmpStr = CStr(xlSheet.Cells([行],[列]))          '控制这里的行与列,就可以定位格子,并返回其内容.
    
    xlBook.Close True   '關閉工作簿
    xlApp.Quit          '結束EXCEL對象
    Set xlApp = Nothing '釋放xlApp對象
End Function这是我以前写的一个从固定格式XLS文件里读取数据并处理的程序里的代码片段.你只需要处理行与列就行了.抢一百就行了,嘿嘿~~

Answer 5

这是比较慢的，非必要，别用excel存储数据

Answer 6

sf正解，我稍微改了一下：    Dim cn As New ADODB.Connection
   Dim rs As New ADODB.Recordset   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\Book1.xls;Extended Properties=""Excel 8.0;HDR=no;"""   rs.Open "Select * FROM [Sheet1$]", cn   Do While Not rs.EOF
       Debug.Print rs(0) & "," & rs(1)
       
       rs.MoveNext
   Loop

Answer 7

谢谢大家的参与
我时间忙，所以没时间研究．
谁能成套帮我解决我标题所说的．（我已经解决了，填写，判断，就剩excel调入了和最后整合成一体的工作）
请马上把联系方式发消息给我论坛收件箱．
星期一以前谁要是能解决就赶紧加我，到了星期一５００分就是jinjazz 了．
jinjazz 我已经为你准备好５００分了．

Answer 8

如果可以的话我可用delphi,c#或者vb.net来帮你，但是至少要等到周一。
厉害

Answer 9

jinjazz 
甚末时候有时间啊