这段不打开EXCEL读写数据的VBA代码如何改成VB代码?
Sub Test()With CreateObject("ADODB.connection")
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO;';Data Source=" & ThisWorkbook.Path & "\W.XLS"
arr = .Execute("select * from [SHEET1$H5:H5]").getrows
.Execute "UPDATE [SHEET1$H5:H5] SET F1='" & arr(0, 0) + 1 & "'"
.Close
End With
End Sub
以上VBA代码实现功能:不打开W.XLS,将SHEET1,H5中的值以原值加上1更新. 在EXCEL2003中测试成功.
请问以上VBA代码如何写成VB6代码?
[ 本帖最后由 ranrise 于 2012-9-10 15:43 编辑 ]