Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Dim SHT As Worksheet
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.ConnectionString = "data source=\\pzx003\业务进度表\练习.xls;extended properties=excel 8.0"
Set rs = New ADODB.Recordset
Set SHT = Sheets("练习")
' On Error Resume Next
'清空已有记录
SHT.Range("a6:r65535").Clear
cn.Open
rs.Open strsql, cn, 1, 3
'显示表中所有数据
SHT.Range("a6").CopyFromRecordset rs
rs.Close
‘删除练习表中序号为7的记录
strSql=”delete from [练习$] where 序号=7”
‘下面行出现自动化(Automation)错误,为什么?是不是连接的错误?
cn.Execute strsql
cn.Close
问题1:访问主机中的练习.xls必须放在共享文件夹下,否则无法访问。这样练习.xls文件无法保密,有没有其他方法解决共享保密问题?
问题2:删除记录出现自动化(Automation)错误,不知道是什么原因?
请坛里的老师帮我解答下。
谢谢!
QQ:294300121