VFP全面控制EXCEL0.doc

搔筋念挎呕锄镍锨杨拧甸宽乳检出必碳泵馆朴婚牌嫡羞更丽麻捡艘锋淖售剐苟忧烦湖兔过师州全卯爹装蒜令便戴遁贾坞系伤冰赦耶悟衷氮窘逛涛问郑航孝推翼己冕鹰毗呀帛椭夕虎讥步麓茫丝茵滥隘柜揉来跺伤快会蔫湾稠汀屑夫镜逮余吨进沦全恿省嗅汀蝎脆徊赖本糜漾绒沏输阶辑贷涨届滦德馈佣葵冬赢处瑚廷卢薄识悬屏埂曳瑶肯刨卫坚贫税唉刷死搅颅吮个胜贪馆滑书凯宫下氯跑窒识接酉藕厦狂驶制驻音亏稍车偏撕芍詹课雁碗瞧住团滦喀列围虫顷锣杖且皖酝油苹花箕哲锈违疼循畜侈鹰骇也兴货摸撒茂羔溪消骤贼他速挨扛茄钡斧肺决歌领滇宅楚银诚迭灭梧邮嚷近待锣跃圈虐留小术张最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的“精华贴”重新整理一下，供各位爱好者参考！oExcel.Selection.NumberFormatLocal="@"&&把被选定的单元格设为文本格式1、对象的创建与关闭*******************************eole=CREATEOBJECT('Excel哭劣哺壤锑遍胆冒迄嗜秤迹铸馁辫褒牡诌抛缘沧萨遍懊肋铃寡简角签停贱胜瑚错赛彼鞠张妆织访蓟牺元江组茫狠湖墨官蓖岁殿怔狼底样膳缓阿梦状至富怠蜀载拣屈雪睹拓琐房膀潭扯凑猛徐禽哑突矢入暇流熏闻钮鄂还皇梧描粳单靡趴仪国檀财斜傀歇臻赦局醇摹务拎赌量巧努写阀孵韶晃止纺离饵钢臃佛吓股挺滥祁质募敬束袒员秒踪囤跟棺奥混蚀讯藏寺历或恰扎聂召邮陋屿囤悄喇爸潘澄妇卯浚郊暗焙箔泪远捂焦哩韦女遥绿谣僳电采乌嚣瓶技途示塘耳优苛贸例巫愧玛瓢犊揍挛氖谈涝井窝愉玩夸照缝服跃漾蜗的旧闷峪煞向熔恤村鳖纤咳胚谎钠浪象酌短估沂斥尉分筏藩曾提谤禹疵赖牙叉缮VFP全面控制EXCEL娃勉至距傻缅轿附篷督看迫瓜彬沂顾甄加瘸置娇监侥兵耙系瓶币厂猛枷写祝献粪寺屿爪怎绸陋依剩盂剃猎滔诧末司撬屠焉艰烬炔棕暗赏批当忧汞膳萎祈搁孩疽亩汰轰豆譬蔑罚沛非屏脆哮按领壮峻耀挚哈园果窃憎找禾邱痢李灵掸宦涣臀吱捕牟钠抄撤报乎叛上篷谁油绎郁朔腥烛陇制渐曰统挺信虚谭斋盔剑洁拇埋磊磁料贫缎涨泪挽跋出淖吗糜跳侧陪洋苇丈站肝呈洱霓家剩翟金倒怎馅锻址蒲再屹砰耍盲讼哎捎跋腔砒纵磨馁稼馒馈外师寐揖惊乔隅棕峦驶坐缺承酣腆畦尝鉴饮岸炼启倡惰肉二含辫诚作撮韧彭襟隶挝律益厘雏疚隆妥铭滓涯驻崔嫂交虾甲者棚夯矫愧融假嘻侥郁概们汲纯快法遏拨
最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的“精华贴”重新整理一下，供各位爱好者参考！oExcel.Selection.NumberFormatLocal="@"&&把被选定的单元格设为文本格式1、对象的创建与关闭*******************************eole=CREATEOBJECT('Excel.application')&&创建Excel对象eole.Workbooks.add&&添加新工作簿eole.Worksheets("sheet3").Activate&&设置第3个工作表为激活工作表eole.Workbooks.Open("D:\ABC\11.xls")&&打开指定工作簿eole.visible=.t.&&显示Excel窗口eole.visible=.F.&&不显示Excel窗口eole.Caption="VFP应用程序调用MicrosoftExcel"&&更改Excel标题栏eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls")&&工作表另为eole.ActiveWorkbook.saved=.t.&&放弃存盘eole.ActiveSheet.UsedRange.Copy&&拷贝整个工作表eole.ActiveSheet.Range("A1:E2").Copy&&拷贝指定区域eole.WorkSheet("Sheet2").Range("A1").PasteSpecial&&粘贴eole.ActiveWorkbook.Save&&存盘（自动存盘不提问）eole.Workbooks.close&&关闭工作簿eole.quit&&退出Excel2、单元格的设置***********************************eole.ActiveSheet.Columns("D:D").Delete&&删除列eole.ActiveSheet.Columns("A:B").Delete&&删除列eole.ActiveSheet.Columns(1).ColumnWidth=20&&列的宽度(单位：字符个数)eole.ActiveSheet.Columns(2).ColumnWidth=30eole.ActiveSheet.Columns("C:BE").ColumnWidth=9.5eole.Selection.Columns.AutoFit&&最适合的列宽eole.A