|
|
Public Sub GoGetProducts()3 M0 p0 T% r* w8 Z/ ~" v
Dim rsProducts As ADODB.Recordset
: ]& m. R4 @0 z6 dSet reProducts = New ADODB.Recordset
1 S! z4 g, i$ f& g) ?8 i. @2 ErsProducts.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
( i$ V6 X& m# f/ K6 N' w/ NWith Worksheets("Sheet1")- {5 m5 b. d2 m! v4 c- I( K, [; j
.Range("A1").CurrentRegion.Clear1 j( Y: c5 M, g) ~' u
Application.Intersect(.Range(.Rows(1), .Rows(rsProducts.RecordCount)), .Range(.Columns(1), .Columns(rsProducts.Fields.Count))).Value = MyTranspose(rsProducts.GetRows(rsProducts.RecordCount))
O( r0 g3 o! l# aEnd With. e0 B g8 O7 x' v" K; ~/ v
rsProducts.Close
( m6 q9 v _( x* ` y3 }$ REnd Sub7 g/ K7 L1 x7 F7 L# k
7 _: P( r- C6 ?, E; U3 O
' z1 P& s& ]- T7 ]. U红色字的命令，VBA总是提示“对象变量或with块变量未设置”8 [" P7 t) D7 E) P4 D% I; I# ^
请求高手帮助，到底出了什么问题，应该如何修改？ |
|
发表于 2006-10-25 14:50