999久久久精品国产消防器材,国产成人久久综合77777,√最新版天堂资源网在线,精品久久久久区二区8888,卡一卡二卡三乱码视频

技成培訓(xùn)網(wǎng) 技成學(xué)習(xí)APP 技成工具箱 技成企業(yè)服務(wù)

歡迎回到技成培訓(xùn)網(wǎng)

技成培訓(xùn)網(wǎng)

電工題庫(kù)寶典

技成電工課堂

PLC練習(xí)題

技成PLC課堂

變頻器故障查詢

技成PLC學(xué)吧

伺服驅(qū)動(dòng)故障查詢

技成PLC網(wǎng)校

當(dāng)前位置：技成首頁(yè) > 文章中心 > 技成百科 > 點(diǎn)擊按鈕將EXCEL另存為

點(diǎn)擊按鈕將EXCEL另存為

劉玉蓉 發(fā)布于2014-10-11 17:13 19 0 標(biāo)簽：

我現(xiàn)在在畫面上做兩個(gè)按鈕，一個(gè)是打開(kāi)事先做好的文件范本
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)      
Dim objExcelAPP
 Set objExcelAPP=CreateObject("Excel.Application")
 objExcelAPP.Visible=True
 objExcelAPP.Workbooks.Open "D:生產(chǎn)記錄報(bào)表.xls"
End Sub
而另一個(gè)的功能是，當(dāng)操作人員將excel文件中的內(nèi)容填寫完畢后，鼠標(biāo)點(diǎn)擊這個(gè)按鈕，文件按照點(diǎn)擊按鈕的時(shí)間（年、月、日、時(shí)、分、秒）來(lái)將文件在同意文件夾下（即生產(chǎn)記錄文件夾中）另存為新的EXCEL文件，同時(shí)關(guān)閉之前打開(kāi)的范本，這樣每天都利用同一范本可生成新的文件，這個(gè)按鈕的功能我實(shí)在不會(huì)，望指教一下

佳答案

On Error Resume Next ""此句必須有，防止無(wú)EXCEL進(jìn)程時(shí)GetObject出錯(cuò)退出
 Dim objExcelAPP,xlbook,xlsname,isOpen
 xlsname="D:生產(chǎn)記錄報(bào)表.xls"                      ""Excel文檔路徑
   Set objExcelAPP=GetObject(,"Excel.Application") ""獲取當(dāng)前運(yùn)行的Excel應(yīng)用程序?qū)ο?br />   objExcelAPP.Visible=True
 
 If Typename(objExcelAPP)="Application" Then     ""Excel已打開(kāi)，遍歷工作薄查找對(duì)應(yīng)文檔是否已打開(kāi)
    For Each xlbook In objExcelAPP.Workbooks
        If xlbook.FullName=xlsname Then
           isOpen=True
           Exit for
        End if
    Next
 End if
 
 If isOpen Then
    xlbook.SaveAs "D:生產(chǎn)記錄" & Date & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".xls"
 Else
    Msgbox "文件沒(méi)有打開(kāi)!"
 End if  
 
 objExcelAPP.Quit
 Set objExcelAPP = Nothing

若有收獲，就點(diǎn)個(gè)贊吧！

文章來(lái)源于網(wǎng)絡(luò)及文獻(xiàn)如有侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)
分享到:

微信掃一掃分享

閱讀與本文標(biāo)簽相同的文章

相關(guān)推薦

最新文章 熱門文章
最新課程 免費(fèi)課程
PLC資料下載 電工電氣資料下載
應(yīng)用新秀
變頻器故障代碼查詢APP
伺服故障代碼查詢APP
技成
手機(jī)APP
熱門標(biāo)簽