vba可行,我幹過

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & SourceFile & ";" & _
"extended properties=excel 8.0; "
rs.Open "select * from [Sheet Name$A:F]", cn