ارسال اطلاعات ديتا گريد به اكسل

[Mamad.Net]

با سلام خدمت دوستان
آيا كسي ميدونه كه چطور ميشه اطلاعات يك ديتا گريد رو به اكسل ارسال كرد ؟
من اين كار رو با قطعه كد زير انجام ميدم ولي پس از ارسال براي داده هاي با كاراكتر فارسي علامت سوال به نمايش در مياد اما با اعداد و حروف انگليسي مشكلي نداره
ممنون ميشم يكي كمك كنه

If SaveFileDialog1.ShowDialog = DialogResult.OK Then
If (Not SaveFileDialog1.FileName.Equals(String.Empty)) Then
Dim FileName As String = SaveFileDialog1.FileName
Dim File As New FileInfo(SaveFileDialog1.FileName)
Dim ExportVisual As Boolean = False
Dim Exporter As New ExportToExcelML(Grd_DesignCartabl)
If File.Extension.Equals(".xls") Then
'set exporting visual settings
Exporter.ExportVisualSettings = ExportVisual
Try
Exporter.RunExport(FileName)
RadMessageBox.SetThemeName(Grd_DesignCartabl.Theme Name)
RadMessageBox.Show("اطلاعات با موفقيت ارسال شد", "ارسال به اكسل", MessageBoxButtons.OK, RadMessageIcon.Info)
Catch ex As IOException
RadMessageBox.SetThemeName(Me.Grd_DesignCartabl.Th emeName)
RadMessageBox.Show(Me, ex.Message, "I/O Error", MessageBoxButtons.OK, RadMessageIcon.Error)
End Try
Else
RadMessageBox.SetThemeName(Grd_DesignCartabl.Theme Name)
RadMessageBox.Show("نوع فايل معتبر نمي باشد")
End If
Else
RadMessageBox.SetThemeName(Grd_DesignCartabl.Theme Name)
RadMessageBox.Show("لطفا نام فايل را وارد نماييد")
End If
End If