# Re: 请问如何使用VB将*.xls 转成mdb呢?

Posted by Scott on May 29, 1999 at 16:10:09:

In Reply to: Re: 请问如何使用VB将*.xls 转成mdb呢? posted by 飞云 on May 27, 1999 at 15:57:30:

: 我想你可以这样想
: xls是一个资料库 mdb也是一个资料库
: 我将两个资料库的内容搬移...
: 这样或许笨一点
: 但好控制
: 试试看

皮皮你好:
最近我正深入研究同样问题,故提供给你参考
Set db=dbengine.workspace(0).opendatabase("??.mdb")
1.Set td = db.CreateTableDef("filename")
td.Connect = "Excel 5.0;HDR=No/Yes;Database=c:\??.xls"
td.SourceTableName = "sheet1$"
db.TableDefs.Append td
No:表excel file之第一行将视为.mdb栏位名称
Yes:表.mdb栏位名称将以Default值(F1,F2,F3.....)
2.Set db = DBEngine.Workspaces(0).OpenDatabase("c:\??.xls",
False, False, "Excel 5.0;HDR=No/Yes")
Set rs = db.OpenRecordset("sheet1$", dbOpenSnapshot)

但请注意如果你的Excel资料混有数字格式及文字格式时
你必须先处理一下,或额外选取范围,否则你会lose一些资
料,而不知道呢!
1.请见http://support.microsoft.com/support/kb/articles/q194/1/24.asp
2.则选取范围存取资料如:
set rs=db.openrecordset("select * from A2:A5",dbopensnapshot)->栏位名称
set rs=db.openrecordset("select * from H2:T5",dbopensnapshot)->资料

Follow Ups: