Recent content by blckngldhwk

Sub Main() Dim System As Object, Sess As Object, MyScreen As Object Set System = CreateObject("EXTRA.System") Set Sess = System.ActiveSession Set MyScreen = Sess.Screen varA = MyScreen.getstring(40,11,03) varB =...

Is there a way to tell the macro to Exit Sub if at any point there is an XStatus error of value 3 (typing in protected cell)? I can use an 'If statement' several times through the macro but I'd like to just use one statement at the beginning if possible. Thanks!

Perfect!

I think I got it, but I'll have to see if it works the way I'm wanting it to. Dim Array() as string ReDim Array(Items) as string Will let you know if this works.

The information at location (01,02,02) tells me how many lines there are and thus how many times I need to loop and thus how many items I need in my array.

The numbers of items in the array is based on the number of lines present on the object being looked at. If there are 9 lines I need 9 items. The number of lines always changes.

That worked great! Okay, follow-up... Can you define the number of items in an array with a variable? Example... Items = MyScreen.Getstring(01,02,02) Dim Array(Items) as string The issue, I won't know how many items exist in a set until a pull a value from the screen. Thoughts?

Awesome, thank you! Will let you know how it goes.

Okay, I've never messed around with arrays so I'm pretty ignorant to what can or can't be done with them. I have a list of over 150 different 'values' and I want to check and see if a certain string is any of those values. So I want to compare a string against these other 150 set values. Is...

Sub ExcelExtraExcel() Dim Excel As Object, ExcelWorkbook As Object AppTitle = "EDS-MF1 - EXTRA! X-treme" AppActivate AppTitle Set Excel = GetObject(, "Excel.Application") Set System = CreateObject("Extra.System")...

To answer your original question, here is a very simple code for doing what you originally asked. Some of the early declarations may be unnecessary, Skip will let me know if that's the case. This is to be used in VBA, keep in mind. Sub ExcelExtraExcel() Dim Excel As Object, ExcelWorkbook...

I have a script set up to do a look up using a webpage search form and now I want to be able to have the macro search the page for the phrase 'No records match the criteria' but am unsure how to approach searching for text. Any ideas? Thanks!

Here is what I went with AppTitle = "<Insert Title of IE window>" AppActivate AppTitle Set oApp = CreateObject("Shell.Application") For i = 0 To 25 strName = "" On Error Resume Next strName =...

Rather, variables, not strings.

Can you input strings using sendkeys?