VBµ÷ÕûExcel¸ñʽ

Private Sub Cmd_OK_Click()
    Dim ExcelAppX As Excel.Application
    Dim ExcelBookX As Excel.Workbook
    Dim ExcelSheetX As Excel.Worksheet
   
    Dim a(1 To 3) As Single
    Dim strFormat As Variant
   
   
    a(1) = 7.3456
    a(2) = 2.43
    a(3) = 0
   
    strFormat = "£¤#,##0." & String(CLng(TxTNumber.Text), "0") & ";£¤-#,##0." & String(CLng(TxTNumber.Text), "0")
   
    Set ExcelAppX = CreateObject("Excel.Application")
    Set ExcelBookX = ExcelAppX.Workbooks().Add(App.Path & "\a.xls")
    ExcelAppX.Visible = True
    Set ExcelSheetX = ExcelBookX.Worksheets("Sheet1")
   
   
    ExcelSheetX.Cells(1, 1).Value = a(1)
    ExcelSheetX.Cells(1, 2).Value = a(2)
    ExcelSheetX.Cells(1, 3).Value = a(3)
   
    ExcelSheetX.Cells(1, 1).NumberFormatLocal = strFormat
    ExcelSheetX.Cells(1, 2).NumberFormatLocal = strFormat
    ExcelSheetX.Cells(1, 3).NumberFormatLocal = strFormat
 
    ExcelAppX.Application.Visible = True
    ExcelSheetX.PrintPreview
   
    ExcelAppX.DisplayAlerts = False
    Set ExcelAppX = Nothing
    Set ExcelBookX = Nothing
    Set ExcelSheetX = Nothing
End Sub