Search results for query: *

So far, the only VBA I use is the Attachmate VBA and not the Excel VBA to manipulate the Attachmate Extra I/O. (I hope I worded that correctly) I was wondering if I should just start using Excel to manipulate Bluezone.

Hey guys, my company is moving from Attachmate to Bluezone. I was wondering if there are any forums for Bluezone so that I can start rewriting all of my macros. Does anyone have any advice? Is there a forum that is as good as this one for Bluezone? Or should I just take the plunge and start...

WAIT!!! I figured it out. It seems I was rushing the macro and not waiting for the system to be ready! I added in a "WaitForCursor" and I'm golden!!!! ha! Thanks yet again Skip for all your help over the last few months!!!

Oh sorry! I thought I put that part in there. Objective: This is supposed to send the numbers in column A into Attachmate, run a command, then return the text from three areas of the screen into columns B, C, then D. Then it should move onto the next column. Problem: It continually moves the...

I think I'm missing something very small. This is a rather simple macro (so far) that I am building onto. The problem that I am having is that "Putstring" (highlighted below) is not putting the next row into attachmate after it completes the first loop. Dim xlApp As Object, xlSheet As...

Oh! I understand that! Thanks again for all of your help! I'll take sometime today to change the name of "row", that may make it simpler for myself going forward.

Alright, that worked. If you don't mind I would like to understand what we just did. Why the "row+row-1"? What did that do?

Oh! I understand that! Neat!! Thanks for your help yet again! So this leads me to one more question.... Would you mind giving me short an "Area() object" example or explanation? Do is mark where a letter in the desired text is, then the area will end at the next bank space?

That worked, it did move the text into row 1 (cells b1 and c1), and not row 2, which is what row A starts on they (I have headers in the spreadsheet) For Column A I set the range like this: Set myRange = .Range("A2:A2000").Resize(xlApp.CountA(.Range("A2:A2000"))) Do I need to do something...

My goal is to have this macro take the first item in Column A from excel (which is in A2), put it into Attachmate, run a few "sendkeys", then return a selection or text from Attachmate into Column B (and one into Column C as well) on the same row. Then it should move onto the next item in Column...

I don't mind you asked at all. I figured it out last night. My goal was to gain access to a virtual drive using a Net Use command in CMD. We have to access the drive once a day. So now I have created the below macro that runs when we open Attachmate. Shell("cmd.exe /c j: \\devicename...

I'm not sure what I was thinking with the "Shell". Anyway, below is today's progress. Now I have two questions....[highlight #FCAF3E]What object type do I need to use??[/highlight] [highlight #73D216]Will "bWaitOnReturn = True" work to let CMD process the like before moving onto the...

Tried this: Shell "C:\Windows\System32\cmd.exe" filenameout$ = "C:\Windows\System32\cmd.exe" Sess0.Screen.MoveTo 24,28 Sess0.Screen.Sendkeys("net use j: \\devicename ") ODR1$ = Sess0.Screen.GetString(24,28,38) Print #1,ODR1$ It opens the command prompt, but does...

Still working on this one with no progress... But I can't give up.

As the title states, I would like to have a simple macro to run a command in CMD. To expand on this a little, I want to enter a "net use" command. To open CMD, this works: Shell "C:\Windows\System32\cmd.exe" Now how do I send the command? The command is basically "net use j: \\devicename...

ha ha ha ha

Compiled Successfully! Thank you yet again SkipVought!

Do I just write "End If" or can I use something like End If GetString(1, 35, 6) = " "? Here is where I am now: Do Until Sess0.Screen.GetString(20, 12, 5) = " " DoEvents Sess0.Screen.MoveTo 11,06 Sess0.Screen.Sendkeys("D") Sess0.Screen.MoveTo 12,06...

Yes, I need to figure out how to do a loop within a loop, IF the word DELETE pops up.

lease help! I'm writing my first If/Then statement within a loop and having a little trouble. When I compile the code the dreaded red bug warning pops up on the last line and I get two errors. They are: * "Illegal Statement" If I click where "End Sub" is located * "Unexpected end of file" If I...