Excel 怎样指定导入数据列? - ExcelVBA程序开发 - Excel Home论...

来源:百度文库 编辑:神马文学网 时间:2024/04/30 00:28:26
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