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!
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?
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 =...
That's not really what I'm looking for. I don't have a problem looking through the source code, I already know the tags that I need to access. I just need to know how to activate an already open instance of Internet Explorer and then input information from Excel into the form.
I can...
I have searched extensively trying to find a solution to this but to no avail.
I cannot seem to find how to pull information from Excel and place it into an already open form in internet explorer.
I can find a hundred ways to open explorer, navigate to the url and input the data but that's not...
Clarification. When the macro runs it opens a blank IE window and then the macro errors at line 104 because the page doesn't load. When I close the blank IE window it will then open up the internal page in a new window. So rather than just opening and navigating to the page, it opens a blank...
Recently our company started rolling out Citrix desktop clients to some of our employees in place of actual PCs. Would this change cause an error in the following code? The problem is only occurring with those who have switched to the Citrix client. Thanks!
Dim Sys As Object...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.