sub 导入()
set cnn=createobject("adodb.connection") cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;'data source=" & thisworkbook.path & "\另外这个.xls" sql="select * from [一组$E1:P65536]" sheets("一组").[c1].copyfromrecordset cnn.execute(sql) cnn.close set cnn=nothing end sub |
|