[jram15]

dear sir,

I have a text box txtdye1qty.Text having numbers as 100.123456
it is roughly 100 kilos and 123 gram and 456 milligram.

I want to export to excel and want to display 100.123 in one cell for example A1 and 456 in A2.

Private Sub cmddyechem_Click()
 
    
  Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oExcel.Worksheets.Add
    
  'PAGE BREAK UPS

   With oExcel.ActiveSheet
   oExcel.ActiveSheet.PageSetup.Zoom = False
   oExcel.ActiveSheet.PageSetup.FitToPagesTall = 1
   oExcel.ActiveSheet.PageSetup.FitToPagesWide = 1
  End With



'Rem Make Excel Visible

   oExcel.Visible = True



 
   oBook.Worksheets(1).Range("A1") = txtdye1qty.Text
   oBook.Worksheets(1).Range("A1").HorizontalAlignment = myVAlignCenter
   oBook.Worksheets(1).Range("A1").Font.Size = 25
   oBook.Worksheets(1).Range("A1").Font.Bold = True
   oBook.Worksheets(1).Range("A1").Font.Name = "Verdana"
   With oExcel.ActiveSheet
   oExcel.ActiveSheet.Cells(1, 1).NumberFormat = "0.000"
   End With
   


END SUB

HOW TO DISPLAY REST OF THE THREE NUMBERS IN A2
PLEASE HELP ME


WITH ADVANCE THANKS

S.JEYARAMAN

This post has been edited by macosxnerd101: 02 August 2012 - 11:42 AM
Reason for edit:: Please use code tags

[maj3091]

If your numbers always have 6 decimal places, then you can use the RIGHT$ function to extract the last 3 digits from your string held in the textbox.

[BobRodes]

Another option using maths instead of string manipulation, to get the mg value: multiply value by 1000, and subtract int(value) from value:

100.123456 * 1000 = 100123.456
int(100123.456) = 100123
100123.456 = 100123 = .456