发布网友
共1个回答
热心网友
>>.用vba连接ACESS: Set Conn= Server.CreateObject("ADODB.Connection") Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sample.mdb") Conn.Open >>.用vba连接EXCEL,打开EXCEL记录集: Set connExcel = Server.CreateObject("ADODB.Connection") connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "InputExcel\sample.xls") &";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';" connExcel.Open connStr Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From [sheet1$]", connExcel, 0, 1 >>.vba数据处理