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!

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

Recent content by Losman500

  1. Losman500

    Permission Denied on MoveFile

    Ok, I wrote the script below to rip files from a CD and if the filename match a regular expression them move the file to network folder A and write to a file otherwise move to network folder B and write to an error log. My disk drive is D:\ and everything works fine however when I gave this...
  2. Losman500

    Limit the number of times a macro can be run

    Nice this worked perfectly. Thanks
  3. Losman500

    Limit the number of times a macro can be run

    Umm I didn't think of that. I will try it; I may need a little sample code, but let me try to figure it out first. Thanks Skip!
  4. Losman500

    Limit the number of times a macro can be run

    Is there a way of limiting the number a macro can run? Maybe writing to a separate text file until a certain number is reached? I have some macros that I would like user to run a limited amount of times.
  5. Losman500

    google search doesn't work

    This is another way which may be cleaner since it deals with the Google page elements without sending keys Sub Main() Dim Sys as Object, Sess As Object Set Sys = CreateObject("Extra.System") If Sys is Nothing then MsgBox ("Could not create Extra!.System...is E!PC...
  6. Losman500

    Internet Explorer - UPS tracking

    This code works for me, just change the references to the screen to suit your system Here is the complete code: Sub Main() Dim Sys as Object, Sess As Object Set Sys = CreateObject("Extra.System") If Sys is Nothing then MsgBox ("Could not create Extra!.System...is...
  7. Losman500

    Internet Explorer - UPS tracking

    I figured it out. Just like the previous post, I needed to wait before clicking the form Here is the working code: Case is = "UP" Set IE = CreateObject("InternetExplorer.Application") With IE .AddressBar = False .StatusBar = True...
  8. Losman500

    Internet Explorer - UPS tracking

    I wrote an Extra! macro that goes to different shipping sites and enters screen data into their tracking forms. All of them work but for some reason in the UPS site I cannot figure out how to "click" the track button. Maybe someone here knows how to. Here is an excerpt of my code which only...
  9. Losman500

    Internet Explorer from Attachmate - wait command

    This is what I use: While objIE.Document.ReadyState <> "complete" ' Do Nothing Wend or: While objIE.Busy 'Do Nothing Wend
  10. Losman500

    Delimited text file using the filenames of files within a folder

    This may be over my head but I will try it I'll let you know how I managed. Thanks
  11. Losman500

    Delimited text file using the filenames of files within a folder

    I have a script that will read each file on a folder and create a text file which contains the filename and path for each file in the folder.I would like to change this scrip to create a comma delimited file using the filename as the data source for example my file name is: F2MA 212001800A2 F01...
  12. Losman500

    Excel to Extra! Question

    I just tried running another excel macro that always worked and I got the same error. I think it had to do with me running 2 sessions while I was testing the your macro. I restarted my machine and now it runs fine. Still needs a few tweaks but no errors I thank you Skip for you patience and...
  13. Losman500

    Excel to Extra! Question

    Funny you mention that, on my other macros that work from excel I've never have to reference the Extra! Object Library. On this case I did reference it and still got the same error. Your excel data and screen mapping sample is exactly what I need. If you go back to my second post with my...
  14. Losman500

    Excel to Extra! Question

    It didn't like that either. Error: User Defined type not identified. Weird because I have other macros that write to Extra running from Excel 2003 with the same Object statements from before and they work. I don't want you to go crazy. You pointed me to the right direction with the loop and I...
  15. Losman500

    Excel to Extra! Question

    Error on If Sess0.Screen.GetString(1, 2, 4) = "FEBM" Then If I Remove that IF statement then the same error will occur on Sess0.Screen.PutString MyRange.Cells(Row, "B").Value, Lrow, 3 I guess it has something to do with the Sess0 object

Part and Inventory Search

Back
Top