|
银牌草根
 
- 帖子
- 589
- 积分
- 501
- 威望
- 1550
- 金币
- 13 元
|
楼主
大 中
小 发表于 2007-9-27 00:18 只看该作者
( 看帖回帖是一种美德，您的回帖是对楼主最大的支持。)
如何用VC，ado在一张空的EXCEl表中加入字段名？
1。 用vc自动生成EXCEL文件时，总是显示出三张表，有没有办法只生成一张表？% t/ k2 j7 p+ o: q z0 L Z/ T2 q
5 q5 v! K* g4 y( z 2。上面的问题如果解决不了，那有没有办法将生成的表sheet2中用ado加入新的字段名？( W P8 @( n: d; h7 X& ]
1 \& y/ [5 z7 p% v5 h , \7 V( F& D) c: z' r$ p
1 V2 y2 P6 V; _& [: d9 Q5 N
我试过用excelDB->Execute("CREATE TABLE sheet5([xxx] TEXT）% M4 M7 z x5 I; z ~. H/ E) ~6 n( Z
/ z9 g% y G+ O8 {# W0 Y5 G' x然后用excelDB->Execute("ALTER TABLE sheet5 ADD COLUMN [HCJG] TEXT");这样可以添加新的字段，1 t" |) h0 R2 `4 A5 B
3 E$ o h @/ O- M+ T1 j- R- b
但是在1。中自动生成的三张表中用excelDB->Execute("ALTER TABLE sheet1 ADD COLUMN [HCJG] TEXT")：sheet1是在生成EXCEL文件时自动生成的新表，却老是说sheet1找不到，为什么，有办法没？谢谢！) _/ M$ j3 q# X+ J# O
1 ^9 h5 P; K+ Z: N刚注册，分少，很抱歉！6 u+ L7 K' }. V3 [: @5 N
) u* g. N9 t0 I1 I
, r/ ?. A; M# P. i5 y+ x' D) s' c% \* o% u4 ~) d# _
纪念CSDN处女贴，呵呵！
8 x* @5 J, b' k4 X; ~& v; t# g4 @0 b# e+ J- m% S
/ V) L v% m; b& M& a" n
6 y: n5 |1 Y5 Q7 P6 a
: S6 i5 H9 z, p3 _3 t' q# B4 \ p( }5 U( D
, o( q6 o* D( V# x; @5 n+ b! ~" e
3 T* m3 p. ~8 j" {/ E7 s我只回答第一个问题：1。 用vc自动生成EXCEL文件时，总是显示出三张表，有没有办法只生成一张表？2 t; R" e6 |0 a/ s
# n9 d$ c% T. c% V4 Y1 j
2 P* X" l! N7 I6 u- ?: ^. g
0 n+ a. p% z; j2 ?6 l7 r- m
答：＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝, t( U6 i3 W/ E4 Q# c* u3 m/ S6 J' C
3 j. D0 `5 ] V% Q. D4 H& d
Dim intOrigNumSheets As Integer2 {- C6 `8 E) e! z+ ]
! Y' S" {( m, g6 ~
Dim wkbNew As Excel.Workbook
- H) W; Q) S* o. _) E* g) h8 z4 \* i7 E9 K/ b6 n( _5 g$ ^8 m
' 该过程创建一个新工作簿文件( {- P0 i# q& ?+ \
7 E' g$ t/ z" K, T ' 路径和名称保存该文件。# M" f+ S# H' P( B. B, t
7 P1 t# ` Q3 i( I% x ' 参数指定工作簿中工作表的数量；
j( M1 d! i9 W
* v! g5 p9 N* t# y ' 默认值是 3。1 {2 n$ j" X. j& j" b& i
2 {3 L6 \( r' w" ~2 i9 [# L7 f
' g_xlApp 为Excel Application - s$ P" q9 ~& T( O" I4 Y; G* [3 }
% q: {8 a3 W" U. ]6 I
g_xlApp.SheetsInNewWorkbook = 1+ B" a0 w) M- l: H
4 i {0 x9 ?8 j; r& ~+ l Set wkbNew = g_xlApp.Workbooks.Add
( Q. Y5 Q$ v9 ^$ R A! K4 v
4 X9 M- w8 Q9 q+ `7 i If Len(strBookName) = 0 Then strBookName = g_xlApp.GetSaveAsFilename
, V' j! C* A) @: Q4 Z s
, `( m0 v7 l0 e* U wkbNew.SaveAs (strBookName)- t/ k* f4 I3 ?4 X9 h% r6 @
$ W( X& u" V0 O* c4 y4 x9 l( D6 c) F
+ b5 v! y8 a$ r* N
, S% ^4 u) n* a/ q1 n0 r
; i4 V; d5 \: q Z( j0 J6 W+ c7 g" z1 u- ]
' w A) m+ m6 M5 Z I7 O" U& ~8 k* i! J
谢谢！能用VC实现么？* ?9 b8 F6 ]5 E7 C$ w1 C
% s+ V) D7 f2 H1 Y2 N
: ^! h) [- ]$ E. J$ D* }4 p2 ?: P) S& a: N% Y, T
这个和语言没有任何关系,使用JavaScript都可以实现.是控件的一个属性而已.
7 ^, G( n" j6 N6 iUID15 帖子11052 精华0 积分22095 阅读权限200 在线时间10 小时 注册时间2007-8-31 最后登录2007-9-19 查看详细资料( L* @. g$ t1 l! G2 C! a* v
TOP e: M# _5 o/ S) f) Q, Z
6 {# i) e1 z5 X! N: M+ Y3 f
|
) y+ {# i8 B. T, w6 `, N! F6 w
6 t2 i0 L/ F# r. { |
|
