Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Crash171

    Moving from Attachmate to Bluezone

    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.
  2. Crash171

    Moving from Attachmate to 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...
  3. Crash171

    Not moving onto next cell?

    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!!!
  4. Crash171

    Not moving onto next cell?

    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...
  5. Crash171

    Not moving onto next cell?

    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...
  6. Crash171

    Possibly 2 easy questions...

    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.
  7. Crash171

    Possibly 2 easy questions...

    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?
  8. Crash171

    Possibly 2 easy questions...

    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?
  9. Crash171

    Possibly 2 easy questions...

    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...
  10. Crash171

    Possibly 2 easy questions...

    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...
  11. Crash171

    I want to run a command in CMD (Command Prompt)

    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...
  12. Crash171

    I want to run a command in CMD (Command Prompt)

    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...
  13. Crash171

    I want to run a command in CMD (Command Prompt)

    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...
  14. Crash171

    I want to run a command in CMD (Command Prompt)

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

    I want to run a command in CMD (Command Prompt)

    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...
  16. Crash171

    Bug Problem. "Illegal Statement" Help!!!!!

    ha ha ha ha
  17. Crash171

    Bug Problem. "Illegal Statement" Help!!!!!

    Compiled Successfully! Thank you yet again SkipVought!
  18. Crash171

    Bug Problem. "Illegal Statement" Help!!!!!

    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...
  19. Crash171

    Bug Problem. "Illegal Statement" Help!!!!!

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

    Bug Problem. "Illegal Statement" Help!!!!!

    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...

Part and Inventory Search

Back
Top