用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的

*** 作方法如下：

1、导睁核则入Excel数据，同时创建表:

select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0HDR=YESIMEX=1DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]')。

2、在表中插入Excel数据：

insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0HDR=YESIMEX=1DATABASE=文件路径','select * from [Excel表名(默认为Sheet1)$]')。

3、导出数据到Excel中：

insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0HDR=YESIMEX=0DATABASE=文件悉棚路径','select* from [Excel表名(默认为Sheet1)$]'氏闭) select * from 表名；需要创建Excel文件并指定列名后才可以导出。

If File = "" Then

MsgBox "没敏纯消有选择文件！", vbOKOnly, "文件选择"

Exit Sub

elseif right$(File,3)<>"tou"

MsgBox "请检桥知查文件类裤燃型",0,"文件选择"

Exit Sub

Else

。

。

。

。

open "c:\1.txt" for input as #1 '打开指定的txt

Do While Not EOF(1)

Line Input #1, c

批量处虚散亩理 c

Loop

Close #1

或者

open app.path "\掘码1.txt" for input as #1 '打开现在差森保存vb程式下的txt

Do While Not EOF(1)

Line Input #1, c

批量处理 c

Loop

Close #1

---