درود
کد زیر رو برای ایمپورت کردن فایل های dbf به اکسل نوشتم ایرادی که داره خروجی که میده کاراکترهای فارسی بهم ریختن ، دوستان ایده و راهنمایی دارند بفرمایند
کد زیر رو برای ایمپورت کردن فایل های dbf به اکسل نوشتم ایرادی که داره خروجی که میده کاراکترهای فارسی بهم ریختن ، دوستان ایده و راهنمایی دارند بفرمایند
کد PHP:
Sub importdbf()
FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to import", _
FileFilter:="Excel Files *.dbf (*.dbf),")
If FileToOpen = False Then
Exit Sub
Else
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
Dim rst As Object
Set rst = CreateObject("ADODB.Recordset")
iPos = InStrRev(FileToOpen, "\", , vbTextCompare)
Filepath = Left(FileToOpen, iPos)
Filename = Right(FileToOpen, Len(FileToOpen) - iPos)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Filepath & ";Extended Properties=dBASE IV"
rst.Open "Select * From " & Filename, conn, adOpenStatic, adLockReadOnly, adCmdText
ActiveSheet.Range("A2").CopyFromRecordset rst
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End If
End Sub
کامنت