Copy certain values from MyExtra to Excel - newbie help

hi,

Extra code is a version of BASIC.

Check out the FAQs for fundamentals.

This also goes on for multiple screens - I don't know if I have to deal with that in the macro...

Click to expand...

Use the SendKeys method.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

Hey thanks for the tip. Spent a couple hours working on it today and it actually worked the first time it compiled, which blew me away.

The one issue I'm having is what you actually mentioned -
getting extra to go to the next screen.

F8 goes to the next screen in extra, and in the help file it says to enclose function keys in braces like this: {F8}, but when I did that it just typed "{F8}" into extra instead of executing the command.

I read on here that you need to put pF8 or something, but that didn't work either.

Session.Screen.SendKeys Pf8

This is the whole macro right now...

Sub Main

Dim TheUPC As Integer
Dim CurrentUPC as Integer
Dim CurrentRow as Integer
Dim Session as Object
Dim System as Object
Dim Screen as Object
Dim ExcelRow as Integer

Dim Excel As Object, ExcelWorkbook As Object
Set Excel = GetObject(, "Excel.Application")
With Excel.Worksheets("Sheet1")

ExcelRow = 167

Set System = CreateObject("EXTRA.System") 'sets all this screen shit up..like the endline macro
Set Session = System.ActiveSession
Set Screen = System.ActiveSession.Screen

TheUPC = Session.Screen.GetString (4,35,5) 'set to current UPC being worked on

CurrentUPC = TheUPC 'store it in buffer variable

while TheUPC = CurrentUPC

For CurrentRow = 8 to 18 step 1 'go through all lines of the screen

If Session.Screen.GetString (currentRow, 9, 3) = 850 then

PricePull = Screen.Getstring(currentRow, 41, 5) 'what do the options mean?
LvlPull = Screen.Getstring(currentRow, 16, 3) 'pull 111, 112, whatever

For ExcelRow = 167 to 220 step 1

if LvlPull = .Cells(ExcelRow,"B").Value then
.Cells(ExcelRow, "F").Value = PricePull '**This will place information from Extra to Excel
end if
next ExcelRow
End If

next CurrentRow 'looping of for loop

Session.Screen.SendKeys Pf8 'go to next page...might not be right syntax
CurrentUPC = Session.Screen.GetString (4,35,5) 'after next page - check UPC, ends the loop

Wend 'end of while loop

Msgbox "Macro Done." 'types this out to the user

End With

End Sub

How do you know that there's MORE?
How do you know you are on the LAST screen?


Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

Thanks for the reply.

That's already taken care of with the while loop. Even if that particular UPC is only one page long there's always another UPC on the next page (the database is massive and all the UPC's are one after the other). So the while loop condition just checks to see if the UPC at the top of the page matches the original UPC and cuts out of the loop if it doesn't.

The only issue I'm having is getting the screen to the next page (some UPC's span multiple pages) which just appears to be a syntax issue with F8 and Sendkeys.

I'll probably figure it out tomorrow, but if you happen to see this tonight and know the right syntax that'd save me a little time.

Thanks!

??? You did not read my post ???

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}