扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
Private Sub Command2_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'" Do While Not rs.EOF |