vfp全面控制excel(文件)
【正文】 單元格公式(1,4).ClearContentsamp。39。 Str1=Str1+Chr(13)+Alltrim(Str(i))+39。+(i).Name+39。 obj=(i).Controls(j) 39。(ID:39。 If Not Empty((k).acame ) 39。 (ID：39。 Exit Exit 39。39。例：ExcelSheet = GetObject(39。)If Type(ExcelSheet)39。amp。W_Pwd) amp。新建工作表數(shù)量定為1個◆新增EXCEL工作?。骸舢斍肮ぷ鞅」ぷ鞅砜倲?shù)： amp。不帶參數(shù)為增加至當前工作表之前 在指定工作表后新建工作表：(,(lnSheet),1,4167) amp。lnSheetCnt為工作表總數(shù)◆激活工作表：(Sheet1).Activate amp。刪除工作表2 命名工作表：(Sheet3).Name=新表 amp。最小化=4140，最大化=4137，還原=4143◆后臺操作報警關閉：=.F. amp。lcFileName,4158) 加密碼換名存盤：(amp。amp。P+頁 共+amp。amp。amp。amp。D:\39。amp。SYSTEM39。Excel39。) amp。,64,39。+lcFileName+39。) = DDETerminate(mChanNum) = DDESetOption(SAFETY,lOldSetOpt) RETURNENDIF。,64,39。)** = messagebox(39。lcFileName某XLS文件名，如：D:\IF mChanNum 1 = messagebox(39。amp。amp。Excel39。D:\39。amp。amp。amp。amp。amp。amp。關閉(.F.) 打開(.T.)◆設置工作薄的標題：=Vfp控制Excel操作◆當前工作薄換名存盤：(amp。重命名工作表3◆使EXCEL可視：=.T.◆Excel的窗口控制： = 4140 amp。激活工作表1 刪除工作表：(Sheet2).Delete amp。lnSheet為指定表號 在最后工作表后新建工作表：(,lnSheetsCnt,1,4167) amp。如：lnSheetCnt=◆新增EXCEL工作表： amp。lcFileName文件名,R_Pwd讀密碼,W_Pwd寫密碼,第二個參數(shù)表示讀寫方式：.，.◆設置新增工作薄的工作表數(shù)：=1 amp。lcFileName,.F.,amp。 THEN =MessageBox( 訪問Excel失敗！請檢查你的系統(tǒng)是否正確安裝 Excel 軟件！,48,Excel不正常) RETURNENDIF◆創(chuàng)建EXCEL實例：oExcel=CreateObject() 該實例創(chuàng)建后，任何對EXCEL的操作都針對該實例進行，關閉EXCEL后應釋放該實例變量：RELEASE oExcel◆打開已存在的EXCEL文件：(amp。,39。39。%39。 / 39。 Endfor Endfor Endif)39。、39。 For k=1 To )39。、39。 For j=1 To bars2+Alltrim(Str((i).Index))+39。+(i).accName+39。amp。*!* 39．打印輸出工作表*!* 35．設置字體為斜體(1,1).=.T.*!* 31．在第2行之前插入一行(2).Insert*!* 27．打印單元格網(wǎng)線=.T.*!* 23．設置右邊距為2厘米=2/*!* 19．設置頁腳到底邊距為3厘米=3/
環(huán)評公示相關推薦
鄂ICP備17016276號-1