EXCEL 导出的表格小数点前面没有0

中华英雄

代码如下：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub HideMember_Click()
    If Sheets(1).[a16] = 1 Then
        Worksheets("20152ù×÷ò3").Rows("17:27").EntireRow.Hidden = True
        Sheets(1).[a16] = 0
    Else
        If Sheets(1).[a16] = 0 Then
            Worksheets("20152ù×÷ò3").Rows("17:27").EntireRow.Hidden = False
            Sheets(1).[a16] = 1
        End If
    End If

End Sub
Sub Preview_Click()
    If Sheets(1).[b4] < Sheets(1).[e3] Or Sheets(1).[b4] > Sheets(1).[f3] Then
        Sheets(1).[b3] = 1
        Sheets(1).[b4] = Sheets(1).[e3]

    Else

        If Sheets(1).[b3] > 1 Then
            Sheets(1).[b3] = Sheets(1).[b3] - 1
            Sheets(1).[b4] = Sheets(1).[b4] - Worksheets("2015&#198;&#182;à§&#187;§").Cells(Sheets(1).[b4] - 1, 11).Value
        End If
    End If
End Sub
Sub Next_Click()
    If Sheets(1).[b4] < Sheets(1).[e3] Or Sheets(1).[b4] > Sheets(1).[f3] Then
        Sheets(1).[b3] = 1
        Sheets(1).[b4] = Sheets(1).[e3]

    Else

        If Sheets(1).[b3] < 24742 Then
            Sheets(1).[b3] = Sheets(1).[b3] + 1
            Sheets(1).[b4] = Sheets(1).[b4] + Worksheets("2015&#198;&#182;à§&#187;§").Cells(Sheets(1).[b4], 11).Value
        End If

        If Sheets(1).[b4] > Sheets(1).[f3] Then
            Sheets(1).[b3] = 1
            Sheets(1).[b4] = Sheets(1).[e3]
        End If

    End If

End Sub
Sub PrintPage1_Click()
    Worksheets("20152é&#188;ˉ±í").PrintOut from:=1, To:=1, copies:=1, collate:=True

End Sub
Sub PrintPage2_Click()
    Worksheets("20152é&#188;ˉ±í").PrintOut from:=2, To:=2, copies:=1, collate:=True

End Sub
Sub PrintThis_Click()
    Worksheets("20152ù×÷ò3").PrintOut from:=1, To:=1, copies:=1, collate:=True

End Sub
Sub PrintAllPage1_Click()
    Sheets(1).[b3] = 1
    Sheets(1).[b4] = Sheets(1).[e3]
    For i = 1 To Sheets(1).[g3]
        Worksheets("20152é&#188;ˉ±í").PrintOut from:=1, To:=1, copies:=1, collate:=True
        Call Next_Click
        Application.Wait 1000
    Next

End Sub
Sub PrintAllpage2_Click()
    Sheets(1).[b3] = 1
    Sheets(1).[b4] = Sheets(1).[e3]
    For i = 1 To Sheets(1).[g3]
        Worksheets("20152é&#188;ˉ±í").PrintOut from:=2, To:=2, copies:=1, collate:=True
        Call Next_Click
        Application.Wait 1000
    Next

End Sub
Sub SaveAs_Click()
    Dim rng As Range, c As Range

    Sheets("20152é&#188;ˉ±í").Select
    Sheets("20152é&#188;ˉ±í").Copy After:=Worksheets("DD&#213;t&#199;&#248;&#187;&#174;")
    name1 = Sheets(1).[d8] & Format(Sheets(1).[b3], Format(Text, "#0.000") & "-" & Sheets(1).[f8] & "2015")
    familyid = Sheets(1).[e8]
    name2 = Sheets(1).[g8] & "è&#203;" & "-" & Sheets(1).[h8]
    country = Sheets(1).[f2] & "D&#197;&#207;￠2é&#188;ˉ±í" & "\"
    ActiveSheet.Name = name1 & "-" & name2
    Call MakeDir
    ActiveSheet.Unprotect ("630518")

    Set rng = ActiveSheet.Range("A1").CurrentRegion
    For Each c In rng.Cells
        If c.HasFormula Then
            c.Value = CStr("'") & CStr(c.Value)
        End If
    Next

    'Sheets(11).SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(1).[d7] & Format(Sheets(1).[b3], Format=(TEXT, "#0.000") & "-" & Sheets(1).[f7] & "2015" & "-" & Sheets(1).[g7] & "è&#203;" & "-" & Sheets(1).[h7] & ".xls", FileFormat:=xlNormal
    'Worksheets(11).Select
    'Worksheets(11).SaveAs "f:\" & Sheets(11).Name & ".xlsx"

    Application.DisplayAlerts = False
    ActiveSheet.Copy
    Call WriteFormat
    ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\" & country & name1 & "-" & familyid & "-" & name2 & ".xlsx"
    ThisWorkbook.Activate
    Worksheets("20152ù×÷ò3").Activate
    Worksheets(Worksheets("DD&#213;t&#199;&#248;&#187;&#174;").Index + 1).Delete
    Application.DisplayAlerts = True
    'ActiveSheet.Delete
End Sub
Sub SaveAllAs_Click()
    Sheets(1).[b3] = 1
    Sheets(1).[b4] = Sheets(1).[e3]
    For i = 1 To Sheets(1).[g3]
        Call SaveAs_Click
        Call Next_Click
    Next
End Sub
Sub WriteFormat()
    Sheets(1).[d30] = "=I27+I28+I29+I30+N27+N28"
    Sheets(1).[d31] = "=D27+D28+D29+D30"
    Sheets(1).[i31] = "=D27+D28+D29+D30-N29"
    Sheets(1).[n31] = "=I31/(COUNTIF(C11:C20," & Chr(34) & "&#196;D" & Chr(34) & ")+COUNTIF(C11:C20," & Chr(34) & "&#197;&#174;" & Chr(34) & "))"
End Sub

    'ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(1).[f2] & "-" & Sheets(1).[f7] & ".xls", FileFormat:=xlNormal
    'ActiveSheets.SaveAs Filename:="x:\2015.xls", FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    'ThisWorkbook.Activate
    'Worksheets("20152ù×÷ò3").Activate
    'Application.DisplayAlerts = False
    'Worksheets("20152é&#188;ˉ±íêy&#214;μ").Delete
    'Application.DisplayAlerts = True
    'ActiveSheet.Delete
Sub Save3YearsAllAs_Click()

    Sheets(2).[f2] = Sheets(1).[f2]
    Sheets(2).[b3] = 1
    Sheets(2).[b4] = Sheets(2).[e3]
    Sheets(3).[f2] = Sheets(1).[f2]
    Sheets(3).[b3] = 1
    Sheets(3).[b4] = Sheets(3).[e3]

    &#196;￡&#191;é1.SaveAllAs_Click
    &#196;￡&#191;é2.SaveAllAs_Click
    &#196;￡&#191;é3.SaveAllAs_Click

End Sub

Sub MakeDir()
    On Error Resume Next
    VBA.MkDir (ThisWorkbook.Path & "\" & Sheets(1).[f2] & "D&#197;&#207;￠2é&#188;ˉ±í")
End Sub