VB导入Excel到数据库软件（持续更新中。）

1.选择Excel文件版本

电脑上用的　Ｏffice2010

引用：Mircosoft Excel 14.0 Object Library

2.选择Excel文件

 '选择文件公共变量
 Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 Public Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
 End Type
 '----------------------------------
 '选择文件函数
 Public Function selectFile() As String
 Dim OFName As OPENFILENAME
     OFName.lStructSize = Len(OFName)
     'OFName.hwndOwner = Me.hWnd
     OFName.hInstance = App.hInstance
     OFName.lpstrFilter = "Excel文件xls(*.xls)" & Chr$() & "*.xls" & Chr$() & "所有文件(*.*)" & Chr$() & "*.*" & Chr$()
     OFName.lpstrFile = Space()
     OFName.nMaxFile =
     OFName.lpstrFileTitle = Space()
     OFName.nMaxFileTitle =
     OFName.lpstrInitialDir = App.path '起始目录
     OFName.lpstrTitle = "打开文件" '标题
     OFName.flags =
     If GetOpenFileName(OFName) >=  Then
         selectFile = OFName.lpstrFile
     Else
         selectFile = "未选择文件"
     End If
 End Function

 Private Sub Command1_Click()
 '选择文件
 Text1.Text = selectFile
 End Sub

3.遍历Excel工作表

 Private Sub Command2_Click()
 '遍历Excel工作表
 List1.Clear
 Dim excelFile As String
 excelFile = Text1.Text
 If excelFile = "" Or excelFile = "未选择文件" Then Exit Sub
 '定义Excel对象
 Dim XlsObj As Excel.Application
 Dim XlsBook As Excel.Workbook
 Dim XlsSheet As Excel.Worksheet

 '打开Excel文件
 Set XlsObj = New Excel.Application
 XlsObj.Visible = False

 Set XlsBook = XlsObj.Workbooks.Open(excelFile)
 For i =  To XlsBook.Worksheets.Count
 '遍历Excel表名
     List1.AddItem XlsBook.Sheets(i).Name
 Next
 XlsObj.Quit
 End Sub

4.选择Excel工作表进行预览，前几行，或全部有效数据，显示总数据条数。

5.选择标题列所在行

6.选择数据类型

7.选择新建数据表或现有表

8.选择Excel标题对应数据表的列

9.导入数据