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
