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
