Tôi đã từng làm việc này, viết code để appen từ ex vào fox. Nhưng không hiểu sao gán code vào file của bạn thì nó chưa chịu chạy và báo lỗi ODBC mà tôi chưa biết sửa.
Dim cnEx As ADODB.Connection
Dim recEx As ADODB.Recordset
Dim cnFox As New ADODB.Connection
Dim recFox As New ADODB.Recordset
Dim wbName$, foxName$, myPath$, shName$
Dim i As Long
Sub ConvertExToFox()
On Error GoTo Loi
'Khai bao ten file
wbName = ThisWorkbook.FullName
myPath = ThisWorkbook.Path
shName = "LUUDIEM"
foxName = "THISINH"
foxName = myPath & "\Data" & "\" & foxName
KetNoiEx
cnEx.Open
recEx.Open "select * from [" & shName & "$]", cnEx, adOpenKeyset, adLockOptimistic
KetNoiFox
cnFox.Open
'xoa toan bo dbf con appen thi bo dong Execute sau
cnFox.Execute "delete from " & foxName
recFox.Open "select * from " & foxName, cnFox, adOpenKeyset, adLockOptimistic
While Not recEx.EOF
'appen
recFox.AddNew
For i = 0 To recEx.Fields.Count - 1
recFox(recEx(i).Name) = recEx(i)
Next i
recFox.Update
recEx.MoveNext
Wend
BoKetNoiFox
BoKetNoiEx
Loi:
MsgBox Err.Description
End Sub
Sub KetNoiEx()
Set cnEx = New ADODB.Connection
Set recEx = New ADODB.Recordset
cnEx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & wbName & ";Persist Security Info=False; Extended Properties=Excel 8.0;"
End Sub
Sub BoKetNoiEx()
recEx.Close
Set recEx = Nothing
cnEx.Close
Set cnEx = Nothing
BoKetNoiFox
End Sub
Sub KetNoiFox()
Set cnFox = New ADODB.Connection
cnFox.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & myPath & "\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Set recFox = New ADODB.Recordset
recFox.CursorLocation = adUseClient
End Sub
Sub BoKetNoiFox()
recFox.Close
Set recFox = Nothing
cnFox.Close
Set cnFox = Nothing
End SubCám ơn rất nhiều, dùng code này đơn giản gọn nhẹ.
SET DATE DMY
SET TALK OFF
SET SAFETY OFF
=MESSAGEBOX([CHON TAP TIN DBF CUA FOXPRO ],64,[CHU Y])
mfox=GETFILE([dbf])
USE &mfox
**ZAP
=MESSAGEBOX([CHON TAP TIN EXCEL CAN CAP NHAT VAO DBF ],64,[CHU Y])
mexcel=GETFILE([xls])
APPEND FROM &mexcel TYPE XLS
**GO TOP
**DELETE
**PACK
GO TOP
=MESSAGEBOX([DA CAP NHAT DATABASE TU EXCEL SANG FOXPRO XONG ....],64,[CHU Y])
***BROWSE
CLOSE TABLESnghĩa là bạn muốn set nhất định tên file excel,dbf và đường dẫn phải không? nếu đúng thì như thí dụ dưới đây:
Em chưa hiểu lắm, anh có thể hướng dẫn em kỹ hơn chút xíu
Cứ nhấn vào .prg và chạy thì auto thôi
