VB中如何将EXCEL数据存为dbf数据格式
一个EXCEL文件a.xls
格式例如：
名字 时间 年龄
张山200230
张山200331
李四200212
李四200313
一段VB代码实现将a.xls存为2个dbf格式的文件a1.dbf、a2.dbf
a1.dbf内容为EXCEL中的前2行并加标题名，如下
名字 时间 年龄
张山200230
张山200331
a2.dbf的内容为EXCEL中的后2行并加标题名
名字 时间 年龄
李四200212
李四200313
急求！
[解决办法]
Set XlApp = CreateObject("Excel.Application")
XlApp.Visible = True
Strsource = App.Path & "\test.xls"
Set XlBook = XlApp.Workbooks.Open(Strsource)
Set XlSheet = XlBook.Worksheets(1)
Set rs = New adodb.Recordset
sql = "select * from 表"
rs.Open sql, conn, adOpenStatic, adLockReadOnly
For i = 1 To rs.RecordCount
For j = 1 To rs.Fields.Count
XlSheet.Cells(i, j) = rs(j - 1)
Next j
rs.MoveNext
Next i
[解决办法]
在VB里面怎么把Access转换成DBF的表:
http://topic.csdn.net/t/20011224/07/438282.html
在vb中，怎么用程序实现excel表和access之间的转换？请参见:
http://topic.csdn.net/t/20010821/21/249851.html
