锘??xml version="1.0" encoding="utf-8" standalone="yes"?>成人亚洲一区,午夜精品视频在线观看,亚洲三区在线观看http://www.aygfsteel.com/tambc/category/18609.htmlzh-cnWed, 28 Feb 2007 03:40:55 GMTWed, 28 Feb 2007 03:40:55 GMT60C#濡備綍鍦‵orm涓祵鍏ュ茍涓旀搷浣淓xcel琛ㄦ牸http://www.aygfsteel.com/tambc/articles/89235.htmltambctambcThu, 21 Dec 2006 03:34:00 GMThttp://www.aygfsteel.com/tambc/articles/89235.htmlhttp://www.aygfsteel.com/tambc/comments/89235.htmlhttp://www.aygfsteel.com/tambc/articles/89235.html#Feedback0http://www.aygfsteel.com/tambc/comments/commentRss/89235.htmlhttp://www.aygfsteel.com/tambc/services/trackbacks/89235.html 鍦ㄧ綉涓婃敹闆嗘潵鐨勶紝蹇樿浠庡摢閲屽緱鏉ョ殑浜?br />
緗戜笂姣旇緝澶氳榪板浣曟搷浣淓xcel琛ㄧ殑鏂囩珷錛屼絾閮芥槸鍚姩Excel鐨勭獥鍙f潵鎵撳紑Excel鏁版嵁鏂囦歡銆傛湁鏃跺欓渶瑕佹妸Excel琛ㄥ祵鍏ュ埌鑷繁紼嬪簭鐨凢orm涓紝緇欏鎴蜂竴涓笉鐢ㄥ垏鎹㈢獥鍙g殑鎿嶄綔鐣岄潰錛屼技涔庢洿濂姐傝繖鍦╒C涓敤OLE鎶鏈緢瀹規(guī)槗瀹炵幇錛屼絾鏄湪C#涓柟娉曞氨涓嶄竴鏍峰暒銆備笅闈㈠皢灝辨榪涜闃愯堪銆?

涓銆侀鍏堢畝瑕佸洖欏句竴涓嬪浣曟搷浣淓xcel琛?

聽(tīng)聽(tīng)鍏堣娣誨姞瀵笶xcel鐨勫紩鐢ㄣ傞夋嫨欏圭洰-銆夋坊鍔犲紩鐢?銆塁OM-銆夋坊鍔燤icrosoft Excel 9.0銆傦紙涓嶅悓鐨刼ffice璁蹭細(xì)鏈変笉鍚岀増鏈殑dll鏂囦歡錛夈偮?br />聽(tīng)聽(tīng)
聽(tīng)1using聽(tīng)Excel;聽(tīng)
聽(tīng)2聽(tīng)聽(tīng)聽(tīng)using聽(tīng)System.Reflection;聽(tīng)
聽(tīng)3聽(tīng)聽(tīng)聽(tīng)
聽(tīng)4聽(tīng)聽(tīng)聽(tīng)//浜х敓涓涓狤xcel.Application鐨勬柊榪涚▼聽(tīng)
聽(tīng)5聽(tīng)聽(tīng)聽(tīng)Excel.Application聽(tīng)app聽(tīng)=聽(tīng)new聽(tīng)Excel.Application();聽(tīng)
聽(tīng)6聽(tīng)聽(tīng)聽(tīng)if聽(tīng)(app聽(tīng)==聽(tīng)null)聽(tīng)
聽(tīng)7聽(tīng)聽(tīng)聽(tīng){聽(tīng)
聽(tīng)8聽(tīng)聽(tīng)聽(tīng)聽(tīng)statusBar1.Text聽(tīng)=聽(tīng)"ERROR:聽(tīng)EXCEL聽(tīng)couldn鈥檛聽(tīng)be聽(tīng)started!";聽(tīng)
聽(tīng)9聽(tīng)聽(tīng)聽(tīng)聽(tīng)return聽(tīng);聽(tīng)
10聽(tīng)聽(tīng)聽(tīng)}
聽(tīng)
11聽(tīng)聽(tīng)聽(tīng)
12聽(tīng)聽(tīng)聽(tīng)app.Visible聽(tīng)=聽(tīng)true;聽(tīng)//濡傛灉鍙兂鐢ㄧ▼搴忔帶鍒惰excel鑰屼笉鎯寵鐢ㄦ埛鎿嶄綔鏃跺欙紝鍙互璁劇疆涓篺alse聽(tīng)
13聽(tīng)聽(tīng)聽(tīng)app.UserControl聽(tīng)=聽(tīng)true;聽(tīng)
14聽(tīng)聽(tīng)聽(tīng)
15聽(tīng)聽(tīng)聽(tīng)Workbooks聽(tīng)workbooks聽(tīng)=app.Workbooks;聽(tīng)
16聽(tīng)聽(tīng)聽(tīng)
17聽(tīng)聽(tīng)聽(tīng)_Workbook聽(tīng)workbook聽(tīng)=聽(tīng)workbooks.Add(XlWBATemplate.xlWBATWorksheet);聽(tīng)//鏍規(guī)嵁妯℃澘浜х敓鏂扮殑workbook聽(tīng)
18//聽(tīng)聽(tīng)_Workbook聽(tīng)workbook聽(tīng)=聽(tīng)workbooks.Add("c:\\a.xls");聽(tīng)//鎴栬呮牴鎹粷瀵硅礬寰勬墦寮宸ヤ綔綈挎枃浠禷.xls聽(tīng)
19
20聽(tīng)聽(tīng)聽(tīng)Sheets聽(tīng)sheets聽(tīng)=聽(tīng)workbook.Worksheets;聽(tīng)
21聽(tīng)聽(tīng)聽(tīng)_Worksheet聽(tīng)worksheet聽(tīng)=聽(tīng)(_Worksheet)聽(tīng)sheets.get_Item(1);聽(tīng)
22聽(tīng)聽(tīng)聽(tīng)if聽(tīng)(worksheet聽(tīng)==聽(tīng)null)聽(tīng)
23聽(tīng)聽(tīng)聽(tīng){聽(tīng)
24聽(tīng)聽(tīng)聽(tīng)聽(tīng)statusBar1.Text聽(tīng)=聽(tīng)聽(tīng)"ERROR:聽(tīng)worksheet聽(tīng)==聽(tīng)null";聽(tīng)
25聽(tīng)聽(tīng)聽(tīng)聽(tīng)return;聽(tīng)
26聽(tīng)聽(tīng)聽(tīng)}
聽(tīng)
27
28聽(tīng)聽(tīng)聽(tīng)//聽(tīng)This聽(tīng)paragraph聽(tīng)puts聽(tīng)the聽(tīng)value聽(tīng)5聽(tīng)to聽(tīng)the聽(tīng)cell聽(tīng)G1聽(tīng)
29聽(tīng)聽(tīng)聽(tīng)Range聽(tīng)range1聽(tīng)=聽(tīng)worksheet.get_Range("A1",聽(tīng)Missing.value);聽(tīng)
30聽(tīng)聽(tīng)聽(tīng)if聽(tīng)(range1聽(tīng)==聽(tīng)null)聽(tīng)
31聽(tīng)聽(tīng)聽(tīng){聽(tīng)
32聽(tīng)聽(tīng)聽(tīng)聽(tīng)statusBar1.Text聽(tīng)=聽(tīng)聽(tīng)"ERROR:聽(tīng)range聽(tīng)==聽(tīng)null";聽(tīng)
33聽(tīng)聽(tīng)聽(tīng)聽(tīng)return;聽(tīng)
34聽(tīng)聽(tīng)聽(tīng)}
聽(tīng)
35聽(tīng)聽(tīng)聽(tīng)const聽(tīng)int聽(tīng)nCells聽(tīng)=聽(tīng)2345;聽(tīng)
36聽(tīng)聽(tīng)聽(tīng)range1.value2聽(tīng)=聽(tīng)nCells;聽(tīng)

聽(tīng)聽(tīng)
浜屻佸皢Excel鐢ㄦ埛鐣岄潰宓屽叆鍒拌嚜宸辯殑Windows Form涓?

聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)鐢變簬鐩墠錛孋#鍜寁b.net閮戒笉鏀寔OLE鎶鏈?鍙傝寰蔣鏀寔涓績(jī)Info:304562)錛岋紝鎵浠ュ彧鏈変嬌鐢╓ebBrowser鎺т歡鏉ュ畬鎴愭鍔熻兘銆傦紙浠ヤ笅鏂規(guī)硶鍙傝寰蔣鏀寔涓績(jī)Howto:304662錛?
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)1銆佸彸鍑誨伐鍏風(fēng)錛岄夋嫨鑷畾涔夊伐鍏風(fēng)錛屾坊鍔燙OM緇勪歡錛岄夋嫨鈥淢icrosoft Web 嫻忚鍣ㄢ濓紙瀵瑰簲鏂囦歡鏄痋winnt\system32\shdocvw.dll錛夛紝紜畾銆傚湪宸ュ叿綆變腑灝嗕細(xì)鍑虹幇鏂囨湰涓篍xplorer鐨刉ebBroser鎺т歡鍥炬爣銆?
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)2銆佸湪Form1涓坊鍔燱ebBrowser鎺т歡銆傦紙瀵硅薄鍚嶅嵈鐪佹槸axWebBrowser1錛?
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)3銆佸亣瀹氳鎵撳紑鐨別xcel鏂囦歡鏄? c:\a.xls銆?
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) string strFileName = @"c:\a.xls";
聽(tīng)聽(tīng)聽(tīng)聽(tīng) Object refmissing = System.Reflection.Missing.value;
聽(tīng)聽(tīng)聽(tīng)聽(tīng) axWebBrowser1.Navigate(strFileName, ref refmissing , ref refmissing , ref refmissing , ref refmissing);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)鍊煎緱娉ㄦ剰鐨勬槸鐢╓ebBrowser鎺т歡涓嶆敮鎸佽彍鍗曞悎騫訛紝涔熷氨鏄鏃犳硶鎶奅xcel琛ㄧ殑鑿滃崟甯﹀叆鍒版垜浠殑紼嬪簭涓傝繖鏄浉瀵逛簬OLE瀹炵幇鏂規(guī)硶鐨勪竴澶х己鐐廣傚垢濂芥彁渚涗簡(jiǎn)鍙互鎶婂伐鍏鋒爮娣誨姞榪涙潵鐨勫姛鑳斤紝閫氳繃宸ュ叿鏍忓彲浠ヨ繘琛岃澶欵xcel涓撴湁鐨勬搷浣溿?
聽(tīng)聽(tīng)聽(tīng)聽(tīng) //涓嬮潰榪欏彞鍙互灝唀xcel鏈韓鐨勫伐鍏瘋皟娣誨姞榪涙潵
聽(tīng)聽(tīng)聽(tīng)聽(tīng)axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,ref refmissing , ref refmissing);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)
涓夈佸洖鍒版湰鏂囨彁鍑虹殑闂錛屽浣曟搷浣滃祵鍏ョ殑Excel?

聽(tīng)聽(tīng) 棣栧厛闇瑕佹槑鐧斤紝鐢╓ebBrowser鈥滆杞解滶xcel"琛紝瀹為檯涓婁粛鐒舵槸鍦ㄦ柊鐨勮繘紼嬬┖闂翠腑榪愯Excel.exe銆傚彲浠ョ敤浠誨姟綆$悊鍣ㄨ瀵熴傚洜姝わ紝鍙鎴戜滑鑳藉鑾峰彇Excel.Application瀵硅薄錛屽氨鑳藉儚涓婃枃涓涓墍璇寸殑閭f牱鎿嶄綔Excel鏁版嵁銆?
聽(tīng)聽(tīng) 騫稿ソ鍙互閫氳繃WebBrowser鐨勬柟娉昇avigateComplete鎻愪緵鐨勪簨浠跺弬鏁癳鏉ヨ闂瓻xcel.Application銆?
聽(tīng)聽(tīng)public void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)
聽(tīng)聽(tīng){
聽(tīng)聽(tīng) Object o = e.pDisp;
聽(tīng)聽(tīng) Object oDocument = o.GetType().InvokeMember("Document",BindingFlags.GetProperty,null,o,null);
聽(tīng)聽(tīng) Object oApplication = o.GetType().InvokeMember("Application",BindingFlags.GetProperty,null,oDocument,null);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)//Object oName = o.GetType().InvokeMember("Name",BindingFlags.GetProperty ,null,oApplication,null);

聽(tīng)聽(tīng) //鐢變簬鎵撳紑鐨勬槸excel鏂囦歡錛屾墍浠ヨ繖閲岀殑oApplication 鍏跺疄灝辨槸Excel.Application
聽(tīng)聽(tīng) Excel.Application eApp =(Excel.Application)oApplication;//榪欐牱灝卞彲浠ヨ薄涓婃枃涓墍榪版潵鎿嶄綔Excel浜?jiǎn)銆?
聽(tīng)聽(tīng)}

鍥涖佸寘鍚WebBrowser鐨凢orm閫鍑烘椂鍊欙紝濡備綍紜繚Excel榪涚▼涔熼鍑猴紵錛堝弬瑙丮icrosoft甯姪涓績(jī)KB317109錛?

聽(tīng)聽(tīng)鐢變簬WebBrowser鍙笉榪囨槸瀵笶xcel琛ㄧ殑嫻忚錛岃孍xcel鍦ㄥ崟鐙殑榪涚▼涓繍琛屻傛墍浠ヨ淇濊瘉瀵硅Excel瀵硅薄eApp鍙?qiáng)鍏剁浉搴旂殑鎵鏈夋垚鍛樺彉閲忛兘閲婃斁寮曠敤錛屾墠鑳戒繚璇佸湪Form閫鍑烘椂excel榪涚▼璺熺潃閫鍑恒傝繖涓鐐瑰湪涓涓▼搴忛渶瑕佸嬈℃墦寮鍏抽棴excel琛ㄦ椂灝や負(fù)閲嶈銆?
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)Excel.Application oApp;
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)Excel.Workbooks oBooks;
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)Excel.Workbook oBook;
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)Excel.Worksheet oSheet;
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)...........
聽(tīng)聽(tīng)聽(tīng)聽(tīng)private void ExcelExit()
聽(tīng)聽(tīng)聽(tīng)聽(tīng){
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) NAR(oSheet);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) oBook.Close(False);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) NAR(oBook);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) NAR(oBooks);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) oApp.Quit();
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) NAR(oApp);

聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) Debug.WriteLine("Sleeping...");
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) System.Threading.Thread.Sleep(5000);
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) Debug.WriteLine("End Excel");
聽(tīng)聽(tīng)聽(tīng)聽(tīng)}
聽(tīng)聽(tīng)private void NAR(Object o)
聽(tīng)聽(tīng){
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)try{System.Runtime.InteropServices.Marshal.ReleaseComObject(o);}
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)catch{}
聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)finally{o = null;}
聽(tīng)聽(tīng)聽(tīng)聽(tīng)}
聽(tīng)聽(tīng)緇忚繃璇曢獙錛屾垜鍙戠幇闄や簡(jiǎn)閲婃斁榪欎簺鍙橀噺浠ュ錛屽繀欏繪妸璇xWebBroswer1涔熼攢姣佹帀錛孍xcel榪涚▼鎵嶉鍑恒傚惁鍒欑殑璇濓紝鍗充嬌璁゛xWebBroser1鍘籒avigate絀哄唴瀹?about:blank", excel榪涚▼浠嶇劧涓嶄細(xì)閫鍑恒傚洜姝ゅ簲璇ュ皢axWebBroser1鎵鍦ㄧ殑Form鍏抽棴鎺夛紝鎴栬呯洿鎺ヨ皟鐢╝xWebBrowser1.Dispose();
聽(tīng)聽(tīng)濡傛灉榪樻槸鍏跺畠闂瀵艱嚧涓嶈兘姝e父閫鍑猴紝灝卞彧鏈夎皟鐢ㄥ瀮鍦懼洖鏀朵簡(jiǎn)銆?
聽(tīng)聽(tīng)GC.Collect();


tambc 2006-12-21 11:34 鍙戣〃璇勮
]]>
主站蜘蛛池模板: 大英县| 北川| 阿拉善左旗| 奉化市| 鱼台县| 肥城市| 山阳县| 始兴县| 宁晋县| 宝丰县| 襄樊市| 琼结县| 靖安县| 香格里拉县| 怀宁县| 张家港市| 泸溪县| 开封县| 庆安县| 和林格尔县| 九江市| 陵水| 应城市| 平乡县| 玉溪市| 师宗县| 安仁县| 海伦市| 垫江县| 镇江市| 江北区| 晋州市| 分宜县| 南部县| 曲周县| 修水县| 东山县| 镇安县| 科技| 德惠市| 富裕县|