VB中的注释
私有子browse _Click() '[按钮？]点击事件。
常用对话框1.filter = "Excel文件(。XLS)|*。XLS|所有文件| *。* '设置通用对话框过滤XLS文件或所有文件。
CommonDialog1。显示打开对话框。
File _ name =公共对话框1。' filename '获取用户选择的文件名。
如果file_name = " "那么Exit Sub '判断文件名是否有效，如果无效就退出进程。
List1。清除'清空列表框。
将xlExcel显示为Excel。“Application”声明Excel应用程序的实例。
将xlBook调成Excel。“Workbook”声明了Excel工作簿的一个实例。
将xlSheet调成Excel格式。“Worksheet”声明了一个Excel窗体的实例。
Set xlExcel = createobject ("excel。application ")'生成Excel应用程序的实例。
set XL book = XL excel . workbooks . open(file _ name)'打开xls文件。
XlExcel。“Visible = False”在后台处理，不显示Excel窗口。
for I = 1 toxlbook . sheets . count '遍历所有工作表。
设置xlSheet = xlBook。工作表(一)
XlSheet。激活第I张工作表。
'将工作表名称添加到列表框中。
“DoEvents”让系统响应其他消息。
然后
XlBook。“关闭”关闭工作簿。
XlExcel。“退出”退出Excel。
末端接头
私有子列表1_Click()'列表框单击事件
如果Text1.text = " "则退出sub '如果Text1文本框中没有内容，则退出该过程。
如果文件名= " "则退出Sub '如果用户选择的文件名无效，则退出该进程。
Dimcon as newadodb。“connection”adodb连接对象声明
“Dimconstraint as string”声明了一个字符串变量。
' Con.CursorLocation = adUseClient '设置光标引擎的位置。详情请参考MSDN。
ConStr = " driver = sql serverserver=(本地)；uid = sapwd = 56776606数据库=刀；”分配:使用sa账号56776606作为密码，连接到本地SQLServer的刀数据库。
打开连接。
Con .执行" SELECT * INTO " & ampText1。文本& amp来自OPENROWSET('MICROSOFT。JET.OLEDB.4.0 '，' Excel 5.0HDR =是；DATABASE = " & amp文件名& amp、“& ampList1。文本&$)"
Access、Oracle和其他数据库可以使用SELECT....到…里面....来自于...语句，并且可以直接将查询结果保存到新创建的表中，而无需事先创建表。
请不要笑。似乎SQLServer做不到这一点。当然，我没有实验。我从来没有这样做过。这是用List1选择的工作表作为数据表，用Text1制定的工作表作为目标工作表。
关闭连接。
' Set Con = Nothing '释放变量。
MsgBox "导入成功！"提示数据导入成功。
哔哔发出了该死的声音。
末端接头
私有子导入Excel_Click ()' Click事件
什么都不做。
末端接头