SPONSORS:






User Tag List

Thanks Thanks:  0
Likes Likes:  0
Dislikes Dislikes:  0
Results 1 to 2 of 2
  1. #1
    Senior Member
    Join Date
    May 2007
    Location
    Bangalore
    Posts
    119
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Total Downloaded
    0

    Runtime value inthe table not inserted in diff row

    I have a situation where I need to access an external xls and compare the values of each row with the value in the Runtime datasheet.
    But the problem here is I am not able to make the runtime data to be inserted in different rows. And also I would like to know how can I compare these runtime values with the values in the external xls.
    Following is the script what i tried:
    Set Objexcel=CreateObject("Excel.Application")
    Set Wsheet=Objexcel.workbooks.open("\\share\SysParam.x ls")

    row =1
    col = 1
    max = 407

    For row =1 to max
    a = objexcel.cells(row, col)
    msgbox a
    Next

    x = Window("Window1").Window("Window2").ActiveX(":-) VideoSoft FlexGrid").Object.Rows
    For y = 1 to x -1
    z = Window("Window1").Window("Window2").ActiveX(":-) VideoSoft FlexGrid").Object.TextMatrix(y,0)
    trim (z)
    ParamName=DataTable.AddSheet("Parameter").AddParam eter("Sys", z).Name
    DataTable.GetSheet("Parameter").SetCurrentRow(2)
    Next

  2. #2
    Senior Member
    Join Date
    May 2007
    Location
    Bangalore
    Posts
    119
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Total Downloaded
    0

    Re: Runtime value inthe table not inserted in diff row

    What I need here is to compare a Test1.xls file with Text2.xls file.
    Comparing is a second part but before that I need to retrieve the value and export this to the excel sheet Test2.xls.
    The problem here is while the data is placed in the Text2.xls in different columns, but I need it to be placd in different rows one below the other.
    The following is the script I have tried.

    a = Window("Window1").Window("Window2").ActiveX(":-) VideoSoft FlexGrid").Object.Rows
    For b = 1 to a -1
    DataTable.SetCurrentRow (b)
    CellText = Window("Window1").Window("Window2").ActiveX(":-) VideoSoft FlexGrid").Object.TextMatrix(b,0)
    MyParam=DataTable.LocalSheet.AddParameter("Name", CellText)
    DataTable.Export("C:\Book1.xls")
    Next

    I tried serching this forum but was not able to find any solution for this. Could anyone suggest any workaround for this?
    Thamks in Advance

 

 

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Search Engine Optimisation provided by DragonByte SEO v2.0.36 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Resources saved on this page: MySQL 12.50%
vBulletin Optimisation provided by vB Optimise v2.6.4 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
User Alert System provided by Advanced User Tagging v3.2.8 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
vBNominate (Lite) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Feedback Buttons provided by Advanced Post Thanks / Like (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Username Changing provided by Username Change (Free) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
BetaSoft Inc.
Digital Point modules: Sphinx-based search
All times are GMT -8. The time now is 06:17 AM.

Copyright BetaSoft Inc.