what i need is to export a series of barcodes to excel. barcodes is composed of 13-18 digits. my problem is when i export 18 digits to excel the barcodes are round off. is there a way that i can convert it to number with 0 decimal places. you can check my code below. i have 19 columns that i need to export in excel, barcode is in the 1st column the other columns are text and i don't have any problems about that.


Code:
Private Sub Exports()
Dim intresponse As Integer

intresponse = msgbox("Do you want to save your record, before exporting it?", vbYesNo)

If intresponse = vbYes Then
    Call Sayb
Else:

Dim therows As Integer
Dim thecols As Integer
Dim Gridstyle As Integer
Dim worksheetname As String
Dim x As Integer

Gridstyle = 1

Dim objxl As New Excel.Application
Dim wbxl As New Excel.Workbook
Dim wsxl As New Excel.Worksheet
Dim introw As Integer 'counter
Dim intcol As Integer  'counter

therows = MSHFlexGrid1.Rows
thecols = MSHFlexGrid1.Cols

If Not IsObject(objxl) Then
    msgbox "You need Microsoft Excel to use this function", _
       vbExclamation, "Print to Excel"
    Exit Sub
End If

On Error Resume Next

' open Excel
objxl.Visible = True
Set wbxl = objxl.Workbooks.Add
Set wsxl = objxl.ActiveSheet

' name the worksheet
With wsxl
    If Not worksheetname = "" Then
        .Name = worksheetname
    End If
End With
    
' fill worksheet
For introw = 1 To therows
    For intcol = 1 To thecols
        With MSHFlexGrid1
            wsxl.Cells(introw + 14, intcol).Value = _
               .TextMatrix(introw - 1, intcol - 1) & " "
        End With
    Next
Next

' format the look
For intcol = 1 To thecols
    wsxl.Columns(intcol).AutoFit
    'wsxl.Columns(intcol).AutoFormat (1)
   ' wsxl.Range("a1", Right(wsxl.Columns(thecols).AddressLocal, _
    '     1) & therows).AutoFormat Gridstyle
Next
     

'headers

wsxl.PageSetup.LeftFooter = "&D"
wsxl.PageSetup.RightFooter = "Page &P of &N"
'wsxl.Cells.Font.FontStyle [tahoma]

wsxl.Cells.Font.Size = 11

'format
wsxl.Range("c1").Value = "GS1 Philippines, Inc."
wsxl.Range("c2").Value = "(Formerly Philippine Article Council Inc.)"
wsxl.Range("c3").Value = "#20 San Rafael St. Bo. Kapitolyo, Pasig City 1603"
wsxl.Range("c4").Value = "Tel. No. (02) 637-0897 to 98, 637-0557         Fax No. (02) 636-5207/631-4631"
wsxl.Range("c5").Value = "E-mail: [email protected],   Website: www.gs1ph.org"
wsxl.Range("a7").Value = "PLEASE FILL UP THIS FORM COMPLETELY AND CLEARLY TO AVOID DELAYS"
wsxl.Range("c9").Value = "*Company Name:"
wsxl.Range("c10").Value = "*Fax Number:"
wsxl.Range("c11").Value = "*Telephone No.:"
wsxl.Range("c12").Value = "*Contact Person:"
wsxl.Range("c13").Value = "*Date Submitted:"
wsxl.Range("a14").Value = "Please be guided with this format (EXCEL or RDBMS Type"
wsxl.Range("i9").Value = "*Required"
wsxl.Range("j9").Value = "Upon receiving your Prefix Number:"
wsxl.Range("j10").Value = "1. Assign the item number per stock keeping unit (SKU)/item."
wsxl.Range("j11").Value = "2. Compute for the check digit."
wsxl.Range("j12").Value = "3. Fill up this form completely and submit this GS1PI (Formerly PANCI) for approval."
wsxl.Range("j13").Value = "***Note: Please wait for GS1 approval before printing the barcode symbol."
wsxl.Range("k1").Value = "***FOR GS1PI USE ONLY"
wsxl.Range("k2").Value = "CHECKED BY: "
wsxl.Range("p2").Value = "DATE: "
wsxl.Range("k3").Value = "ENCODED BY: "
wsxl.Range("p3").Value = "DATE: "
wsxl.Range("k4").Value = "REMARKS: "

wsxl.Range("k1", "q1").AutoFormat Gridstyle
wsxl.Range("b15", "q15").AutoFormat Gridstyle
  
'wsxl.Columns("A").Delete
wsxl.Columns("D").Delete
wsxl.Columns("Q").clear
wsxl.Columns("R").clear
wsxl.Range("b15", "b50015").NumberFormat = 0
wsxl.PageSetup.Zoom = False
wsxl.PageSetup.FitToPagesTall = 1
wsxl.PageSetup.FitToPagesWide = 1
wsxl.PageSetup.Orientation = xlLandscape
'wsxl.PageSetup.PaperSize = xlPaperA4
wsxl.PageSetup.PaperSize = xlPaperLegal
End If

End Sub
here is an example if i export 148098765430000009 from mshflexgrid to excel the outcome is 1.48099E+17 which should be 148098765430000009.

thanks!