Try defining the column in Excel as Textual data versus a number…
Thanks, Travis D. Hanson From: [email protected] [mailto:[email protected]] Sent: Tuesday, November 17, 2009 3:08 PM To: [email protected] Subject: [talkbws] Re: Decimal (currency) from spreadsheet to Meditech? Well – that’s not one of my choices…I have cText (which doesn’t go anywhere)… Gary Hall Director of Information Technology Estes Park Medical Center 970-577-4443 (office) 970-744-9052 (cell) 970-577-4355 (fax) From: [email protected] [mailto:[email protected]] Sent: Tuesday, November 17, 2009 1:51 PM To: [email protected] Subject: [talkbws] Re: Decimal (currency) from spreadsheet to Meditech? Define variable as Text ? Sean Hoover Application Analyst Gulfport Memorial Hospital 228-865-3010-office __________________________________________________________________________ Confidentiality Notice: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. >>> <[email protected]> 11/17/2009 2:42 PM >>> Got to be an easy one for you experts, but trying to move medication charges from a spreadsheet into a Meditech price field. All of them work OK – unless I have “zero zero” past the decimal point. Then it just scripts in the dollar amount, and not the decimal point and zero zero. Here’s the relevant code I’m using. I’ve also defined the variable as Currency, but still no luck. Any ideas? Is it the “Value” that’s dropping the zeroes?: Global gbCharge As String Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("J:\PHA\Bill-Codes-2009-11-16-zeroes-partial.xls") Set oSheet = oBook.Worksheets("Charges") oSheet.Activate oExcel.Visible = True intRow = 1 strCell = "E" & intRow oSheet.range(strCell).Select gbCharge = Trim(oExcel.ActiveCell.Value) Gary Hall Director of Information Technology Estes Park Medical Center 970-577-4443 (office) 970-744-9052 (cell) 970-577-4355 (fax) --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx Nh֦zh+-ݙZF&b.\ &u!j{(Zbh'rz).&z‑z.+^i0,,bw(.&z‑楺ǫ.֥)
