組態(tài)王報(bào)表保存成excel

組態(tài)王報(bào)表保存成excel文件格式改變解決方案組態(tài)王內(nèi)嵌的表格可以做成各種很精美的格式，也可以保存成xls格式和.csv格式，但是原來(lái)的格式會(huì)蕩然無(wú)存，很不方便。下圖是組態(tài)王報(bào)表格式（組態(tài)王6.52）：系統(tǒng)實(shí)時(shí)眼表才睞日期：06/08/312S;5L；dl域原料展液位反應(yīng)瞄位反應(yīng)罐僵度出料閥進(jìn)料閥水滯設(shè)定水溫.葡出翎00；<J.0095.0C51.C0打開(kāi)打開(kāi)'9,000.0)2；004:00：6；00'8：00ID：OC1巳0014：山16：Jf.18：0020:00柯表單位;煉鋼廠儀表車間制表人,管理員卜面是保存成excel之后的格式:■工忐4渤1顯謚夢(mèng)戳晶皇、廣y:&￡找胤A1，杰’。A0CDEFGH1%4號(hào)72系統(tǒng)實(shí)對(duì)報(bào)表3報(bào)表日期，O0/OS/3L23:54:064時(shí)間原料疑液代反應(yīng)罐液代反應(yīng)罐溫瑯出料閥進(jìn)料閥水溫設(shè)定水溫輸出hoo50：00^7.0064.0091.00打開(kāi)打開(kāi)hoo62i0074：00S6；0098；001010：001112；001214：001316：001418：001520：0016初00171S制表單位；煉鋼廠儀表年間管理員

下圖是應(yīng)用次解決方案后的最終效果圖：P39日應(yīng)1辱套技袈v一一『蠱五“IW戰(zhàn)H碰驚宋佐iT-&■LAfiCDEFG日系統(tǒng)實(shí)時(shí)報(bào)表2很表日斯：2306-8-31報(bào)表時(shí)'22:31:173時(shí)間原料罐液位反應(yīng)曜液位反應(yīng)罐溫度出料閥進(jìn)料闕水溫設(shè)定水溫輸出40斑;21B1?打開(kāi)打開(kāi)■0■Q562■004而7L89810GO：1012例11121416配;1314100Q'2015221617制表單位：-夜徹廠依表車間制表久:下面我們來(lái)說(shuō)明次方案的步驟:打開(kāi)文件J水溫設(shè)定03水溫輸出（）0說(shuō)明：.I打開(kāi)文件J水溫設(shè)定03水溫輸出（）0說(shuō)明：.I一文件路粗:：F:\aa-El3文芥另存為系振表日明：時(shí)間原料建糧位反應(yīng)箍液位反0；3C75.DO26.002:?4:)06:DOS：00io：no12s0014s00ir?nnActivateApp("Excel.exe");ActivateApp("Excel.exe");SendKeys("%(f)abb.xls%(s)%(f)x");“文件轉(zhuǎn)移”按鈕命令語(yǔ)言：stringfilename;filename="F:\report\"+StrFromReal（\\本站點(diǎn)\$時(shí),0,"f"）+StrFromReal（\\本站點(diǎn)\$分,0,"f"）+StrFromReal（\\本站點(diǎn)\$秒,0,"f"）+".xls”;ReportSaveAs（"Report0",fileName）;FileDelete（filename）;FileMove（"F:\bb.xls",filename,DoneTag）;說(shuō)明：這部分是整個(gè)解決方案的核心。利用的是組態(tài)王的報(bào)表可以保存成以時(shí)間為文件名的xls文件，同時(shí)FileMove這個(gè)函數(shù)在文件轉(zhuǎn)移的時(shí)候的名字也是可以改變的?！拔募泶鏋椤卑粹o和“文件轉(zhuǎn)移”按鈕里的命令語(yǔ)言不要寫在一起，否則命令語(yǔ)言不執(zhí)行，要讓這個(gè)程序自動(dòng)執(zhí)行，可以做定時(shí)器實(shí)現(xiàn)。4.組態(tài)王報(bào)表數(shù)據(jù)傳遞到excel組態(tài)王中建立excel的dde連接，報(bào)表中所有數(shù)據(jù)均要建立dde變量，應(yīng)用程序命令語(yǔ)言中通過(guò)賦值語(yǔ)言進(jìn)行實(shí)時(shí)刷新。新保存指定文件名的excel解決方案：建一個(gè)excel模板e(cuò)e.xls（必要時(shí)隱藏最上一行）復(fù)制模板到aa文件夾下ee.xls導(dǎo)出excel到aa下的ee.xls移動(dòng)ee.xls到指定的文件夾下，可以用此移動(dòng)命令改為想要的名字，如bb.xls完成。命令按鈕如下\\本站點(diǎn)\app_inf=InfoAppDir（）;Stringadde;Stringadda;Stringaddc;Stringaddb;adda=\\本站點(diǎn)\app_inf+"\aa.xls";addc=\\本站點(diǎn)\app_inf+"\report";addb=\\本站點(diǎn)\app_inf+"\report\aa.xls";adde=\\本站點(diǎn)'導(dǎo)出+\\本站點(diǎn)'報(bào)告編號(hào).Comment+".xls";ReportSaveAs（"曲線",adda）;導(dǎo)出excel到aa下的ee.xlsFileCopy（adda,addc,\\本站點(diǎn)\文件轉(zhuǎn)移標(biāo)志）；FileMove（addb,adde,\\本站點(diǎn)\文件轉(zhuǎn)移標(biāo)志）；filename=filename+\\本站點(diǎn)\$日期+StrFromi