|
|
Public Sub GoGetProducts()5 `9 Q) H3 W3 i. E, u/ C
Dim rsProducts As ADODB.Recordset" g0 c' e' S+ K+ z
Set reProducts = New ADODB.Recordset
- J8 }& [0 F& e4 t8 W3 v8 ursProducts.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
2 z7 P7 ?4 Y- UWith Worksheets("Sheet1")
* d: J( o. X& @$ M3 l. |.Range("A1").CurrentRegion.Clear- T2 b3 T: ~, M4 D/ ^7 S0 T, h0 V
Application.Intersect(.Range(.Rows(1), .Rows(rsProducts.RecordCount)), .Range(.Columns(1), .Columns(rsProducts.Fields.Count))).Value = MyTranspose(rsProducts.GetRows(rsProducts.RecordCount))
1 H; K/ K) k s; g- bEnd With/ P( c9 H7 s* F. K
rsProducts.Close
5 c8 C7 v* x% u) J& EEnd Sub% |7 r! n* N* l! l
, j* N4 l4 t0 D% m2 N9 Q% u
1 a( y! R# l$ X/ B红色字的命令，VBA总是提示“对象变量或with块变量未设置”
; _/ p _# ^0 u% `! d( O; e请求高手帮助，到底出了什么问题，应该如何修改？ |
|
发表于 2006-10-25 14:50