CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 4 of 4
  1. #1
    Join Date
    Jun 2012
    Posts
    2

    WRQ Reflection Vb help

    Need your help.... this is executing but stops at
    LR = excelApp(WbSource).WorkSheets("yoursheet").Range("B65536").End(xlUp).Row
    is not able to find the source !... i have reached this far! pls help..
    as i see it !!WbSource is dimensioned as an object but not assigned to anything,
    error : object doesn't support this property or method
    property let procedure not defined and property get procedure did not return an object

    Code:
    Sub macro_Seal221133()
    Dim WbSource As Object
    Dim col1, col2
    Dim cCOL1, cCOL2, cERROR
    WorkSheets = "yoursheet"
    Set excelApp = GetObject(, "Excel.Application")
    Set objWorkbook = excelApp.Workbooks.Open _
    ("C:\Documents and Settings\mintezar\Desktop\Book1.xls")
    Dim z As Integer
    Dim LR As Integer
    
    With Session
     
    .WaitForEvent rcEnterPos, "30", "0", 1, 1
    .TransmitTerminalKey rcIBMPf9Key
    .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
    .WaitForEvent rcEnterPos, "30", "0", 5, 13
    .WaitForDisplayString "==>", "30", 5, 9
    .TransmitANSI "1"
    .TransmitTerminalKey rcIBMEnterKey
    .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
    .WaitForEvent rcEnterPos, "30", "0", 18, 33
    .WaitForDisplayString "ID:", "30", 18, 29
    .TransmitANSI "akhimki"
    .TransmitTerminalKey rcIBMTabKey
    ' Provide Password for Security
    Dim hostpassword As String
    hostpassword = ""
    hostpassword = .GetPassword("PASSWORD:", "", "", "")
    .TransmitANSI hostpassword
    .TransmitANSI "50.7.13"
    .TransmitTerminalKey rcIBMEnterKey
     
            ' Place cursor.
            MoveCursor 6, 16 ' <= CHANGE
    LR = excelApp(WbSource).WorkSheets("yoursheet").Range("B65536").end(xlUp).row 'FInd the last row
     
    For x = 2 To LR 'create a loop then the data from the cells is copied and pasted below.
     
    z = excelApp(WbSource).WorkSheets("yoursheet").Range("B" & x).Copy
     
    .WaitForEvent rcEnterPos, "30", "0", 4, 16
    .WaitForDisplayString "CITY/SITE:", "30", 4, 4
    .TransmitTerminalKey rcIBMTabKey
    .TransmitTerminalKey rcIBMTabKey
    .Paste
    TransmitTerminalKey rcIBMTabKey
    .WaitForEvent rcEnterPos, "30", "0", 23, 15
    .WaitForDisplayString "SCREEN:", "30", 23, 7
    .TransmitTerminalKey rcIBMEnterKey
    .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
    .WaitForEvent rcEnterPos, "30", "0", 1, 80
    .WaitForDisplayString "UPDATE(Y/N):", "30", 1, 67
    .MoveCursor 4, 11
     
    z = excelApp(WbSource).WorkSheets("yoursheet").Range("C" & x).Copy
     
    .WaitForEvent rcEnterPos, "30", "0", 4, 11
    .WaitForDisplayString "SEALS..:", "30", 4, 2
    .Paste
    .TransmitTerminalKey rcIBMEnterKey
    .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
     
    Next x
     
    End With
     
    End Sub

  2. #2
    VictorN's Avatar
    VictorN is offline Super Moderator Power Poster
    Join Date
    Jan 2003
    Location
    Hanover Germany
    Posts
    20,396

    Re: WRQ Reflection Vb help

    And what is your Visual C++ Programming question?
    Or maybe you missed the proper Forum?
    Victor Nijegorodov

  3. #3
    Join Date
    Jun 2012
    Posts
    2

    Re: WRQ Reflection Vb help

    how can i move it to VB programming !??

  4. #4
    VictorN's Avatar
    VictorN is offline Super Moderator Power Poster
    Join Date
    Jan 2003
    Location
    Hanover Germany
    Posts
    20,396

    Re: WRQ Reflection Vb help

    Quote Originally Posted by xcruc1at3r View Post
    how can i move it to VB programming !??
    Just re-post it into an appropriate VB Forum!
    Victor Nijegorodov

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured