Microsoft
Software
Hardware
Network
Question : VBA formatting errors!
Hi Experts:
I am trying to send data from my excel to a formatted text(flat) file,in one column i have decimal values which are not going to the flat file
eg: if the value in the spreadsheet is 100.00 in the flat file i am seeing: 100
my code is below,can someone guide:
CashTicketReport = FreeFile() ------> sends data to flat file
CashTicketReportline = " "
headercell.Offset(IndexRow
, 3).NumberFormat = "0.00" -> formats datato decimal
RawCashAdjustmentAmount = headercell.Offset(IndexRow
, 3).Value
CashAdjustmentAmount = Format(Left$(RawCashAdjust
mentAmount
, 20), "@@@@@@@@@@@@@@@@@@@@")
CashTicketReportline = CashTicketReportline & CashAdjustmentAmount ->send to ff
Answer : VBA formatting errors!
Try changing..
RawCashAdjustmentAmount = headercell.Offset(IndexRow
, 3).Value
to
RawCashAdjustmentAmount = headercell.Offset(IndexRow
, 3).text
- If you use .value excel will pass the value without the formatting
Random Solutions
How can I stop access form window icon populating task bar
Speeding up a SQL Server 2008 Database?
Exchange 2007 - Transport Rule
How do I force a '0' value into a report
Outlook closes as soon as it starts
Windows7 in a 2003 domain
Attach txt file with sendmail
viewing internat php page on apacher server through page viewer webpart
How do copy only active window to clipboard in Windows XP?
How to sendmessage to parent pretranslatemessage?