steven5211 发表于 2006-10-25 14:50

菜鸟请求帮助

Public Sub GoGetProducts()
Dim rsProducts As ADODB.Recordset
Set reProducts = New ADODB.Recordset
rsProducts.Open Source:="Products", activeconnection:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", CursorType:=adOpenStatic, LockType:=adLockOptimistic, Options:=adCmdTable
With Worksheets("Sheet1")
.Range("A1").CurrentRegion.Clear
Application.Intersect(.Range(.Rows(1), .Rows(rsProducts.RecordCount)), .Range(.Columns(1), .Columns(rsProducts.Fields.Count))).Value = MyTranspose(rsProducts.GetRows(rsProducts.RecordCount))
End With
rsProducts.Close
End Sub


红色字的命令，VBA总是提示“对象变量或with块变量未设置”
请求高手帮助，到底出了什么问题，应该如何修改？

wenwengg 发表于 2008-2-29 09:56

你是否在Visual Basic编辑器 工具 已经引用Microsoft Access..

lqm 发表于 2008-2-29 10:49

这个是什么东东呀，看不明白
页: [1]
查看完整版本: 菜鸟请求帮助