Private Sub 浏览_Click() '[按钮?]单击事件
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '设置通用对话框过滤 xls文件 或 所有文件
CommonDialog1.ShowOpen '显示打开对话框
file_name = CommonDialog1.FileName '得到用户选择的文件名
If file_name = "" Then Exit Sub '判断文件名是否有效,无效则退出过程
List1.Clear '清空列表框
Dim xlExcel As Excel.Application '声明Excel应用程序实例
Dim xlBook As Excel.Workbook '声明Excel工作簿实例
Dim xlSheet As Excel.Worksheet '声明Excel表单实例
Set xlExcel = CreateObject("Excel.Application") '生成Excel应用程序实例
Set xlBook = xlExcel.Workbooks.Open(file_name) '打开xls文件
xlExcel.Visible = False '在后台处理,不显示Excel窗口
For i = 1 To xlBook.Sheets.Count '遍历所有工作表
Set xlSheet = xlBook.Worksheets(i)
xlSheet.Activate '激活第i个工作表
List1.AddItem xlSheet.Name '将工作表名添加到列表框
DoEvents '让系统响应一下其他消息
Next
xlBook.Close '关闭工作簿
xlExcel.Quit '退出Excel
End Sub
Private Sub List1_Click() '列表框单击事件
If Text1.Text = "" Then Exit Sub '如果Text1文本框没有内容则退出过程
If file_name = "" Then Exit Sub '如果用户选择的文件名无效则退出过程
Dim Con As New ADODB.Connection 'ADODB连接对象声明
Dim ConStr As String '声明字符串变量
Con.CursorLocation = adUseClient '设置游标引擎的位置,相关请参阅MSDN
ConStr = "driver=sql server;server=(local);uid=sa;pwd=56776606;database=knife;" '赋值:用sa账号,56776606为密码,连接本机SQLServer的knife数据库
Con.Open ConStr '打开连接
Con.Execute "SELECT * INTO " & Text1.Text & " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & file_name & "'," & List1.Text & "$)"
'access、Oracle等数据库可以用SELECT....INTO....from...语句，可以在事先不创建表的情况下，直接将查询结果保存到一个新创建的表中。
'请不要见笑,貌似SQLServer不能这么做,当然我没有试验,我从来没这么做过,这个是把List1选择的工作表作为数据表,Text1制定的作为目标工作表
Con.Close '关闭连接
Set Con = Nothing '释放变量
MsgBox "导入成功！" '提示数据导入成功
Beep '制造dooooong的一声他妈的噪音
End Sub
Private Sub 导入Excel_Click() '单击事件
'碌碌无为
End Sub
Visual Basic 2003以上版本有两种注释方法：
1、是用'符号进行注释。
2、是用#region “” 和 #end region注释，这是一对括号型的注释方法。
VB程序设计中，构成对象的三要是：属性、方法和事件 。
属性描述了对象的特征 ，方法描述了对象的行为 ，事件规定了操作系统可识别的其它对象作用于本对象的行为。
1.
代码 ' 注释
（单引号：在代码后加入英文状态的单引号）
2.
代码 ：Rem 注释
（Rem语句：代码后加冒号，加Rem，加注释）
注：VB的默认代码字体颜色下，注释为绿色
第一种是用 ' 符号进行注释。第二种是用#region “” 和 #end region注释，这是一对括号型的注释方法，用方法1只能在一行里注释，用#region 则可把整段程序用这个注释括
参考资料：起来
vb中的注释是什么符号?
vb程序中，加注释的符号是\/\/或者\/* *\/，其中\/\/为单行注释，而\/* *\/为多行注释。续行符是“_”，而语句的分隔符号是”：“。vb中还有其他的符号，+为连接符号、运算“和”、-为运算减号、*为运算乘号、&为连接符号。
什么是VB程序中的注释
注释是指在编写代码时，编写者在代码中添加的一些说明性语句。注释是非执行语句，只是对有关的内容加以说明。例如，说明某个过程的功能，定义某个变量的目的等。在计算机二级的程序中添加注释是个良好的编程习惯。每个程序员都有这样的体会：自己编写的一些代码，过一段时间后再去阅读，会感到很费劲甚至难...
VB如何多行注释?
1、首先，双击进入代码窗口。2、然后按下单引号即可开始注释。3、这时我们可以看到被注释的语句是绿色的文字。4、也可以打开编辑窗口。5、然后点击此按钮即可多行注释。6、也可以点击这个取消多行注释。注意事项：VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接...
如何给一大段 VB 程序一次性加上注释符号
1、首先是在excle软件中找到“开发工具”-》Visual Basic。2、进入代码区。3、选中要注释的一段代码。4、然后在顶部找到工具栏。5、然后右键单击，选择“编辑”。6、然后找到注释代码块。7、点击之后，我们发现我们刚才选中的代码块就被注释掉了。
VB中注释语句怎么写?
VB中注释语句：1、rem后面跟注释内容。以Rem关键字开头并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字则必须使用冒号（:）与语句隔开。2、'后面跟注释内容。使用一个撇号（'）来代替Rem关键字。若使用撇号则在其他语句行...
VB中注释
vb的原程序中注解是以单引号 ' 开头的，但如果这个符号是在双引号之内的，则视为文本，不做为注释引导符，这个符号后面的内容均为注释内容 另外直接以rem引导的行，是作为注释行。
VB中注释
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '设置通用对话框过滤 xls文件 或 所有文件 CommonDialog1.ShowOpen '显示打开对话框 file_name = CommonDialog1.FileName '得到用户选择的文件名 If file_name = "" Then Exit Sub '判断文件名是否有效,无效则退出过程 Lis...
VB 6.0 怎么一次性注释多行? VB 6.0多行注释的使用方法
要掌握Vb6.0一次性注释多行代码的方法，首先要了解Vb6.0的基本操作界面。打开Vb6.0并新建或打开一个工程，如图所示。接着，切换至视图选项，在工具栏找到编辑选项，如图所示。点击编辑后，系统将弹出一个对话框。接着，选中你想要注释的多行代码，然后点击对话框中图示标记的位置。点击后，多行代码便被...
VB中注释语句怎么写?
一为，在注解前加上“Rem ”，如：Rem 这是一个注解语句，你爱怎么写就怎么写 二为，在注解前加上“'”，如：'这也是一个注解语句 但这二个有点小区别，如果用“Rem ”的话，不是在语句的开头时，必须在语句前加上冒号，如下：a = 1:Rem 这是个语句 而用“'”则不要，如下：b = 1 ...
VB注释是做什么的
编写程序时写注释是一个程序员所必备的好习惯之一 注释的作用是帮助理解代码的功能和作用 在程序进行编译时,注释是不会被编译的,被编译所忽略的内容
