Excel 操作

)P5\]qo/wigp0 Excel.Application

(Ub-Uyh(l$bC0Excel中几个常用对象：WorkBooks,WorkSheets,Cells.可以通过Name属性标识，也可通过index标识。51Testing软件测试网a@5K9B!Y8bJTQ#vB({

 Dim ExcelApp51Testing软件测试网i\0`U*hs"k
 Set ExcelApp = CreateObject("Excel.Application")
4Q-VVr(q/pB-f
u0 ExcelApp.WorkBooks.Open "F:\RandallTest.xls"
F6bC/F#}_^#t0 Dim myWorkBook51Testing软件测试网|$R!w&T9D5M qd!Yy
@
 Set myWorkBook = ExcelApp.workbooks(1)51Testing软件测试网dD@3LMg.u~
 myWorkBook.WorkSheets("Sheet1").Activate51Testing软件测试网AU\wB,YN#vd1] j
 Dim myWorkSheet
q J
ZSEly _0 Set myWorkSheet = myWorkBook.worksheets("Sheet1")
vJ-G3e?`v0 msgbox myWorkSheet.Cells(1,1).Value51Testing软件测试网g!}$wiu9{W.Cp
 myWorkSheet.Cells(1,1).Value = "temp"51Testing软件测试网xQp'Ha*aB
 myWorkBook.SaveAs "C:\RandallTest.xls"51Testing软件测试网3vgC+t l|0X
O
 Set ExcelApp = nothing51Testing软件测试网T0}
s!T"n&Sb