一段VB的代码:'导入Excel Private Sub cmdInputExcel_Click() Dim n As Long Dim oConn As New ADODB.Connection Dim oRS As New ADODB.Recordset Dim ss As String Dim path As String CommonDialog1.CancelError = True On Error GoTo ErrHandler '设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly '设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" '指定缺省的过滤器 CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen '取得文件路径 path = CommonDialog1.filename '打开Excel oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=Excel 8.0;" oRS.Open "Select * from [LOT明细$]", oConn, adOpenStatic n = 1 readLotnos = "" '循环存入LOTNO Do Until oRS.EOF ss = Trim(oRS.Fields(2)) & "" readLotnos = readLotnos & ",'" & ss & "'" n = n + 1 oRS.MoveNext Loop '显示数据 Call ShowList MsgBox "读取成功!" oRS.Close oConn.Close Exit Sub '按取消按钮 ErrHandler: End Sub