如何做和Access导入Excel一样的向导

Question

如题
   可以选择一个Excel文件,然后选择一个Sheet出现该Sheet的内容
可以决定数据从第几行开始,哪一行包含标题(突出显示出来),若没有可以自己添加.

Answer 1

Dim strFile As String'文件名
Dim strSheet() As String'存放sheets名称
Dim x1 As New Excel.Application
Dim iSheet As Integer
Dim i As Integer
'得到文件
dlgExcel.Filter = "excel file|*.xls"
dlgExcel.ShowOpen
strFile = dlgExcel.FileName
'得到sheet名
x1.Workbooks.Open strFile, , False
iSheet = x1.Worksheets.Count
LstSheet.Clear
ReDim strSheet(iSheet)
For i = 1 To iSheet
    x1.Worksheets(i).Name = Trim$(x1.Worksheets(i).Name)
    strSheet(i) = x1.Worksheets(i).Name
    LstSheet.AddItem strSheet(i)
Next 'i
x1.ActiveWorkbook.Save
x1.DisplayAlerts = False
x1.Workbooks.Close
'使用Datagrid显示 datagrid 与adodc1捆绑
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0 ;Extended Properties=Excel 8.0;Data Source =" & strFile
strSql = "select * from [" & strSheet(LstSheet.LstIndex + 1) & "$]"
Adodc1.RecordSource = strSql
Adodc1.CursorType = adOpenKeyset
Adodc1.CursorLocation = adUseClient
Adodc1.LockType = adLockReadOnly
Adodc1.Refresh
不过，显示出来后，这个Excel文件不能访问，程序不能读，直接双击也不行