Corinna, Please call me - 503-873-1657 TKs
Lew Hundley Information Specialist - Programmer Silverton Hospital Silverton Oregon 503.873.1657 [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Corinna Robertson Sent: Wednesday, September 24, 2003 3:48 PM To: [EMAIL PROTECTED] Subject: RE: [Talk] Help! - CRUNCH TIME Okay Lew, this should do it, I commented it but if you have any questions let me know. This will currently run looking for you spreadsheet in the bss65 directory, you can change the datadir variable and move it if you like, I didn't get fancy with the printer selection but you can select the printer and set multiple other settings Corinna -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Lew Hundley Sent: Wednesday, September 24, 2003 11:06 AM To: [EMAIL PROTECTED] Subject: RE: [Talk] Help! - CRUNCH TIME Thanks John, Paul sent me some code too, and I am sure that I will be able to use both in my project. (thanks to Paul too!) I want to apologize to the List for being a bit off topic; I kinda panicked a bit. I missed the deadline, but since this is a re-occurring need, I will be able to have something ready for the next time. It is great to know that the List is here to help, even when it isn't strictly a BWS issue. TKs Lew Hundley Information Specialist - Programmer Silverton Hospital Silverton Oregon 503.873.1657 [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, September 24, 2003 6:12 AM To: [EMAIL PROTECTED] Subject: Re: [Talk] Help! - CRUNCH TIME Here is my standard subroutine for loading an excel worksheet. With apologies to real programmers, this routine uses public variables because of the way my dictionary scripts are structured: Sub subExcelLoad() Set oExcel = CreateObject("Excel.Application") 'see cmdOk Set oBook = oExcel.Workbooks.Open(stroBook) Set oSheet = oBook.Worksheets(stroSheet) oSheet.Activate oExcel.Visible = True intRow = 1 'This is the first row of data strCell = "A" & intRow oSheet.range(strCell).Select End Sub So the public variable stroBook could be created as: intStartSeq = 5 intEndSeq = 10 For intExcelCounter = intStartSeq to intEndSeq stroBook = "Book" & str(intExcelCounter ) subExcelLoad Next Or something similar. Don't forget to give the variable stroSheet a value. It is case sensitve. intRow is the starting row. Hope this helps, John John Curtiss Hutchinson Area Health Care 1095 Highway 15 South Hutchinson MN 55350 320-234-4967 [EMAIL PROTECTED] "Lew Hundley" <[EMAIL PROTECTED] To: [EMAIL PROTECTED] > cc: Sent by: Subject: [Talk] Help! - CRUNCH TIME [EMAIL PROTECTED] TATION.COM 09/23/2003 04:37 PM Please respond to Talk Hey guys, little help over here? I have been asked to come up with a quick script that would allow the printing of Excel docs with sequential numbers. I have been working on this since mid morning. I researched for a way to do it in EXCEL alone, but was unsuccessful in finding a way. My solution: A script that will supply the starting number, the print the Excel doc using this number, then the script will increment the number, and print the Excel doc, etc, etc. The issues are that I cannot find anyway to pass a parameter to Excel; it doesn't have that type of argument. So I went to an alternate. I created a Word doc, and put the starting number in there, then, through Excel, I linked the number as an object. Manually, I can get the number to change EXECEPT if I delete the number, I cannot manually type in any numbers between the object brackets. I have to start at the next to last digit, enter a the next sequential digit, then delete the last digit. And I don't know that I can do that fine a tuning with BWS yet. Yes, this is just a sequentially numbered spreadsheet that is being printed to take an inventory. The sequential numbers are currently being hand stamped (very slowly). I need this in about an hour and a half from the time of this writing. Has any one produced such a thing (via BWS or otherwise). (I have to say that I have had a hard time 'learning' how to deal with a windows application and BWS; I have only worked with the Meditech stuff in the past, and I am trying to Shell the Excel app, and write to the Word app, and print the Excel sheet). All suggestions except "what are you, nuts?" accepted. TKs Lew Hundley Information Specialist - Programmer Silverton Hospital Silverton Oregon 503.873.1657 [EMAIL PROTECTED]
