VB6 EXCEL导入SQL

[xiaxue77701]

请问用以下代码做excel导入sql时，如果本机开着一个excel文件时，那么被导入的excel文件也会打开，并且VB程序关不了，只能手工关，因为只是想把文件导入到sql中，不想打开再关闭，其中file_name是被导入excel文件路径，谢谢！

  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim cn1 As New ADODB.Connection
  Dim rs4 As New ADODB.Recordset
  cn.ConnectionString = "driver={microsoft excel driver (*.xls)};dbq=" & file_name & ";Readwrite=True"
  cn.Open
  rs.Open "select no1,no2 from [Sheet1$] ", cn, adOpenKeyset, adLockOptimistic
  cn1.Open ConnectionString
  rs4.CursorLocation = adUseClient
  rs4.Open "select * from aa ", cn1, adOpenKeyset, adLockOptimistic

  For t = 1 To rs.RecordCount
      If rs.EOF = True Then
         Exit Sub
      Else
         rs4.AddNew
         For r = 1 To 2
             rs4.Fields(r) = rs.Fields(r - 1)
         Next r
         rs4.Fields(3) = "SO"
         rs4.Fields(4) = ""
         rs4.Fields(5) = Now()
         rs4.Update
         rs.MoveNext
      End If
  Next t
  rs.Close
  rs4.Close
  cn.Close
  cn1.Close
  Set rs = Nothing
  Set rs4 = Nothing
  Set cn = Nothing
  Set cn1 = Nothing

[赵4老师]

CreateDesktop ？

[xiaxue77701]

请问excel怎样关闭后，再打开呢？

  Dim file_name As String
  Dim rs1 As New ADODB.Recordset
  Dim rs2 As New ADODB.Recordset
  Dim i As Long
  Dim j As Long
  Dim XlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Set XlApp = CreateObject("Excel.Application")
  XlApp.Visible = False
  Set xlBook = XlApp.Workbooks.Add
  xlBook.SaveAs (CommonDialog1.FileName), 39
  Set xlSheet = xlBook.Worksheets(1)
  file_name = CommonDialog1.FileName
  
  Adodc1.Recordset.MoveFirst
  For i = 0 To Adodc1.Recordset.RecordCount - 1
  For j = 0 To Adodc1.Recordset.Fields.Count - 4
  xlSheet.Cells(i + 2, j + 2) = Adodc1.Recordset(j) & ""
  Next j
  Adodc1.Recordset.MoveNext
  Next i
  xlBook.Save
  xlBook.Close
  XlApp.Quit
  Set xlBook = Nothing
  Set xlSheet = Nothing
  Set XlApp = Nothing

[X-i-n]

应该用XlApp.Workbooks.Open获取一个打开的excel对象，#2楼代码有问题，用Workbooks.Add会得到一个新的空的excel工作簿，而不是打开老的工作簿，并且在saveas以后，老文件直接就被覆盖掉了。