HOW WOULD YOU CHANGE THE CODE TO REFERENCE

[link99sbc]

HOW WOULD YOU CHANGE THE CODE TO REFERENCE
A FILE THAT'S ALREADY OPEN INSTEAD OF OPENING
A NEW INSTANCE EVERYTIME YOU RUN THE MACRO.

SAMPLE
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions

If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
' Set the default wait timeout value
g_HostSettleTime = 1000 ' milliseconds

OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If

' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

' This section of code contains the recorded events

file = "C:\CODE1.xls"
Dim obj as object
Dim objWorkbook as object
Set obj = CreateObject("Excel.Application")
obj.visible = True
obj.workbooks.open file


System.TimeoutValue = OldSystemTimeout
End Sub

 

[SkipVought]

Hi,

Please do not SHOUT. Uppercase is the equivalent.

Are you referring to the Excel workbook when you/re referring to a file that is already open?

Check VBA Help examples in the Excel VB Editor for the GetObject method.

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[vzachin]

link99sbc

this was answered on a previous post:

http://www.tek-tips.com/viewthread.cfm?qid=1541923&page=1

i dont open the file because it's already opened

 

[link99sbc]

Ok I figured it out from the other post.
Now how do I make it stop at each cell.
this code just keeps scrolling without stopping
until it reaches a blank cell.

Dim obj as object
Dim objWorkbook as object
Set obj=CreateObject("Excel.Application")

'Dim Sessions As Object
'Dim System As Object
Set System = CreateObject("EXTRA.System")
Dim Sess As Object
Set Sess = System.ActiveSession

Set obj = Getobject("C:\CODE1.xls") 'where xxxx is the location/name of the file on the C Drive
set objWorkbook=obj.Worksheets("Sheet1")

For i = 2 To obj.ActiveSheet.Rows.Count 'assumption data begins with row 2
MyName = objWorkBook.Range("A" & i) 'assumption data begins in column A

If Trim(MyName) = "" Then exit sub

sess.screen.putstring MyName,4,18 'places the data from Excel in Extra
'do stuff in extra...

next i 'i is the next row


End Sub

 

[vzachin]

Now how do I make it stop at each cell.
this code just keeps scrolling without stopping
until it reaches a blank cell.

it is stopping at each cell. and then

sess.screen.putstring MyName,4,18

what is happening here over on this line?

i'm not sure what you mean or what you're asking for.
please post your question in another thread along with the code, and what is happening when you step through the code...