卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

application對(duì)象的方法 如何在VB中,調(diào)用Excel.Application對(duì)象?

如何在VB中,調(diào)用Excel.Application對(duì)象?在項(xiàng)目中引用Microsoft Excel類(lèi)型庫(kù):從“項(xiàng)目”菜單中選擇“引用”列,選擇“Microsoft Excel 11.0對(duì)象庫(kù)(Exc

如何在VB中,調(diào)用Excel.Application對(duì)象?

在項(xiàng)目中引用Microsoft Excel類(lèi)型庫(kù):從“項(xiàng)目”菜單中選擇“引用”列,選擇“Microsoft Excel 11.0對(duì)象庫(kù)(Excel 2003)”,然后選擇“確定”。指示應(yīng)在項(xiàng)目中引用excel類(lèi)型庫(kù)。DimxlAppAsExcel.ApplicationDimxlBookAsExcelB.工作BookDimxlSheetAsExcel.WorksheetDimFileName文件名,sheetnameastringfilename=“e: 數(shù)據(jù).xls“”excel文件名sheetname=”Sheet1“”表名setxlapp=CreateObject(”Excel應(yīng)用程序“”“創(chuàng)建excel對(duì)象setxlbook=xlApp.Workbooks.Open打開(kāi)(文件名)“打開(kāi)現(xiàn)有excel工作簿文件xlApp.Visible=真“Set”設(shè)置excel對(duì)象可見(jiàn)(或不可見(jiàn))setxlsheet=xlBook.工作表(sheetname)“設(shè)置活動(dòng)工作表”示例:xlSheet.單元格(5,2)=文本1。文本“分配文本2。文本到單元格B5=xlSheet.單元格(2,3)“取C2的值xlBook.關(guān)閉(true)“關(guān)閉工作簿”xlApp.退出“End excel object setxlapp=Nothing”釋放xlapp對(duì)象