درود
کد زیر رو برای ایمپورت کردن فایل های 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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)