Dim ConnExcel
Dim Rs1 As New ADODB.Recordset
Set ConnExcel = CreateObject("ADODB.Connection")
ConnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DesktopPath & NameNewList & ".xls" & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
Rs3.Open "SELECT * FROM [" & NameNewList & "$]", ConnExcel, 3, 1
Rs1.Open "SELECT * FROM ['" & MyLoanDate & "w余额" & "$']", ConnExcel, 3, 1