| 楼主 a371014988 |
Sub yongxiaoxiao() Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\1.xls;extended properties=excel 8.0;" If conn.State = adStateOpen Then MsgBox "linjiechenggong" End If conn.Execute "insert into [Sheet1$](student) values('xiaohui')" conn.Execute "insert into [Sheet1$] values(1,'xiaohui',27)" End Sub |
| 2楼 wise |
 A 兄，能否上传附件，补充代码完毕，修改署名作者呢？ |