>>>in my code when I am exporting data to excel in English(united state) format data populating correctly but when format changing number coming as text or 555.440.333.222 pattern, plz tell me where I need to do changes
According to your description, I suggest that you could use VBA code to change number coming as text into 555.440.333.222 pattern, refer to below code:
Sub Demo()
Range("A1").NumberFormat = "@"
Dim val As String
val = Range("A1")
Dim valLen As Integer
valLen = Len(val) / 3
Dim result As String
Dim i As Integer
i = 0
Do
result = result & Mid(val, 1 + i * 3, 3) & "."
i = i + 1
Loop While i < valLen
Range("A1") = Mid(result, 1, Len(result) - 1)
End Sub