如何将两个DBF文件导入到相应的工作薄对应的工作表中

yzyyyyyyy

dbf文件中的数据，每次都要用foxpro导出到电子表格中，然后再复制粘贴，费时，能否直接导入？
学籍编号共14位，第9位和第10位（这两位为届别，如12，11，10等）
z221800.dbf（学生库）中，每个学籍编号1行，包括姓名性别等每个学生的基本信息
zj221800.dbf（家长库）中，每个学籍编号占用2行，第1行是第一个监护人的信息，第2行是第二个监护人的信息。
1、如何将z221800.dbf（学生库），zj221800.dbf（家长库）全部数据分别导入到目标文件中，学生工作表和家长工作表中。（全部导入）
2、如何导入届别为12的的数据到以上工作表中。（选择届别导入，有个下拉选项，10，11，12，全部，即选择后，再导入） 如何将两个DBF文件导入到相应的工作薄对应的工作表中.zip (0 Bytes, 下载次数: 18)

2012-10-15 16:44 上传

点击文件名下载附件

3、在以上基础上，如何将两个库的信息合并处理到信息册表中（学籍号唯一），每个学籍编号1行，包括学生信息和两个监护人的信息。

yzyyyyyyy

再次求助，，

zhaogang1960

短信收到，数据库中数据不全，请补全数据，并模拟要达到的效果，中间环节不要模拟

yzyyyyyyy

zhaogang1960 发表于 2012-10-15 16:27
短信收到，数据库中数据不全，请补全数据，并模拟要达到的效果，中间环节不要模拟

感谢版主的热心关注，数据库已添加了内容，重新上传了附件，请查阅

zhaogang1960

yzyyyyyyy 发表于 2012-10-15 16:46
感谢版主的热心关注，数据库已添加了内容，重新上传了附件，请查阅

1. Sub Macro1()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim SQL As String
   
5.     ActiveSheet.UsedRange.Offset(1).ClearContents
   
6.     cnn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & ThisWorkbook.Path & ";Exclusive=No;"
   
7.     SQL = "select a.*,b.监护人,b.姓名,b.工作,b.电话,b.文化程度,b.民族 from z221801 a left join zj221800 b on a.学籍编号=b.学籍编号  where 监护人='父亲'"
   
8.     Range("A2").CopyFromRecordset cnn.Execute(SQL)
   
9.     SQL = "select b.监护人,b.姓名,b.工作,b.电话,b.文化程度,b.民族 from z221801 a left join zj221800 b on a.学籍编号=b.学籍编号  where 监护人='母亲'"
   
10.     Range("u2").CopyFromRecordset cnn.Execute(SQL)
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

zhaogang1960

请看附件
如何将两个DBF文件导入到相应的工作薄对应的工作表中.rar (19.42 KB, 下载次数: 61)

2012-10-15 17:43 上传

点击文件名下载附件

zhaogang1960

yzyyyyyyy   2012-10-16 08:27
关于你在“如何将两个DBF文件导入到相应的工作薄对应的工作表中”的帖子
另外，监护人1不一定是父亲，监护人2不一定是母亲，监护人1有可能是其他1，其他2之类的，所以监护1一列是学籍号的前一个信息，监护人2一列是学籍号的后一个信息。

短信收到，按照导入数据同一个学籍编号先后顺序来确定“第1行是第一个监护人的信息，第2行是第二个监护人的信息”：

1. Sub Macro1()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rs As New ADODB.Recordset
   
5.     Dim SQL As String, d As Object, arr(), i&, l&, j&, n&
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     ActiveSheet.UsedRange.Offset(1).ClearContents
   
8.     cnn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & ThisWorkbook.Path & ";Exclusive=No;"
   
9.     SQL = "select * from z221801"
   
10.     rs.Open SQL, cnn, 1, 3
    
11.     Range("A2").CopyFromRecordset rs
    
12.     rs.MoveFirst
    
13.     ReDim arr(1 To rs.RecordCount, 1 To 12)
    
14.     For i = 1 To rs.RecordCount
    
15.         d(rs.Fields(0).Value) = i
    
16.         rs.MoveNext
    
17.     Next
    
18.     SQL = "select * from zj221800"
    
19.     Set rs = New ADODB.Recordset
    
20.     rs.Open SQL, cnn, 1, 3
    
21.     For i = 1 To rs.RecordCount Step 2
    
22.         n = 0
    
23.         For l = i To i + 1
    
24.             t = d(rs.Fields(0).Value)
    
25.             If t <> "" Then
    
26.                 For j = 1 To 6
    
27.                     arr(t, j + n) = rs.Fields(j).Value
    
28.                 Next j
    
29.             End If
    
30.             n = n + 6
    
31.             rs.MoveNext
    
32.         Next l
    
33.     Next i
    
34.     Range("o2").Resize(UBound(arr), 12) = arr
    
35.     rs.Close
    
36.     cnn.Close
    
37.     Set rs = Nothing
    
38.     Set cnn = Nothing
    
39. End Sub
    

复制代码

zhaogang1960

请看附件
如何将两个DBF文件导入到相应的工作薄对应的工作表中.rar (19.6 KB, 下载次数: 33)

2012-10-16 11:30 上传

点击文件名下载附件

yzyyyyyyy

zhaogang1960 发表于 2012-10-15 17:43
请看附件

感谢版主的热心帮助，
程序运行到    cnn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & ThisWorkbook.Path & ";Exclusive=No;"运行时错误，ODBC管理器，驱动程序不支持此功能
我没说明白，想分别单独实现3个功能
1、z221800.dbf（学生库）数据导入到目标文件，学生工作表中
2、zj221800.dbf（家长库）数据导入到目标文件，家长工作表中
3、将z221800.dbf（学生库）、zj221800.dbf（家长库）两个库的信息合并处理到目标文件，信息册表中，学籍编号是唯一的，家长库中学籍编号出现的前后顺序为第一个为监护人1，第二个为监护人2。
由于学生库和家长库中各届学籍混杂在一起，经常导入其中的某一届学生，如12级，以上3个程序如果能考虑导入时有选择的导入，即先选择届别，再导入就好了。届别为学籍编号中的第9和第10位，10，11，12，全部选项。

zhaogang1960

或采用后期绑定，不需要引用Microsoft ActiveX Data Objects 2.x Library了：

1. Sub Macro1()
   
2.     Dim cnn As Object, rs As Object
   
3.     Dim SQL As String, d As Object, arr(), i&, l&, j&, n&, t
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     ActiveSheet.UsedRange.Offset(1).ClearContents
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     cnn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & ThisWorkbook.Path & ";Exclusive=No;"
   
8.     Set rs = CreateObject("ADODB.Recordset")
   
9.     SQL = "select * from z221801"
   
10.     rs.Open SQL, cnn, 1, 3
    
11.     Range("A2").CopyFromRecordset rs
    
12.     rs.MoveFirst
    
13.     ReDim arr(1 To rs.RecordCount, 1 To 12)
    
14.     For i = 1 To rs.RecordCount
    
15.         d(rs.Fields(0).Value) = i
    
16.         rs.MoveNext
    
17.     Next
    
18.     SQL = "select * from zj221800"
    
19.     Set rs = CreateObject("ADODB.Recordset")
    
20.     rs.Open SQL, cnn, 1, 3
    
21.     For i = 1 To rs.RecordCount Step 2
    
22.         n = 0
    
23.         For l = i To i + 1
    
24.             t = d(rs.Fields(0).Value)
    
25.             If t <> "" Then
    
26.                 For j = 1 To 6
    
27.                     arr(t, j + n) = rs.Fields(j).Value
    
28.                 Next j
    
29.             End If
    
30.             n = n + 6
    
31.             rs.MoveNext
    
32.         Next l
    
33.     Next i
    
34.     Range("o2").Resize(UBound(arr), 12) = arr
    
35.     rs.Close
    
36.     cnn.Close
    
37.     Set rs = Nothing
    
38.     Set cnn = Nothing
    
39. End Sub
    

复制代码

如何将两个DBF文件导入到相应的工作薄对应的工作表中.rar (19.38 KB, 下载次数: 26)

2012-10-16 12:35 上传

点击文件名下载附件