點(diǎn)擊藍(lán)字關(guān)注我們

每月月底，各位同事把考勤表報(bào)到部門后，檢查核對再匯總一份總考勤表上報(bào)，傳統(tǒng)的復(fù)制粘貼總是占用不少時間，還容易出錯。為提高工作效率，現(xiàn)利用Excel實(shí)現(xiàn)考勤快速匯總。

01??統(tǒng)一考勤模板，每個人按統(tǒng)一模板填報(bào)自己當(dāng)月考勤。

02??按考勤號和姓名統(tǒng)一文件名。

03??收齊每個人考勤表，并存放在同一文件夾下(如：考勤)。

04??新建考勤匯總Excel文件，另存Excel啟用宏的xlsm格式，存于考勤文件夾下。

05??打開考勤匯總表，設(shè)計(jì)好表頭后，進(jìn)入設(shè)計(jì)模式，插入命令按鈕(ActiveX控件)，并修改命令按鈕名稱。

06??雙擊命令按鈕(匯總表)，進(jìn)去VBA編輯模式，并輸入代碼。

Private?Sub?CommandButton1_Click()

????Dim?MyPath,?MyName,?AWbName

????Dim?Wb?As?Workbook,?WbN?As?String

????Dim?i?As?Long

????Dim?Num?As?Long

????Dim?BOX?As?String

????Application.ScreenUpdating?=?False?'關(guān)閉屏幕更新

????MyPath?=?ActiveWorkbook.Path?'獲取當(dāng)前工作簿的文件位置

????MyName?=?Dir(MyPath?&?"\"?&?"*.xls")?'獲取文件夾下的所有以“.xls”結(jié)尾的文件，根據(jù)實(shí)際情況可改成“.xlsx”

????AWbName?=?ActiveWorkbook.Name?'獲取當(dāng)前工作簿的名稱

????Num?=?0

????Do?While?MyName?<>?""

????????If?MyName?<>?AWbName?Then

????????????Set?Wb?=?Workbooks.Open(MyPath?&?"\"?&?MyName)

????????????????Num?=?Num?+?1

????????????For?i?=?1?To?Wb.Sheets.Count?'寫入Excel文件內(nèi)容

????????????????Wb.Sheets(i).UsedRange.Copy?Range("A65536").End(xlUp).Offset(2,?0)

????????????Next

????????????????WbN?=?WbN?&?Chr(13)?&?Wb.Name

????????????????Wb.Close?False

????????End?If

????????MyName?=?Dir

????Loop

????Range("A1").Select

????Application.ScreenUpdating?=?True?'恢復(fù)屏幕更新

????MsgBox?"共合并了"?&?Num?&?"個工作簿。如下："?&?Chr(13)?&?WbN,?vbInformation,?"提示"

? ? ? ? ?End?Sub

07 ?退出設(shè)計(jì)模式，單擊命令按鈕(匯總表)。

08??保存考勤匯總表Excel，完成20人考勤匯總。制作好模板后，只需要每人按期上報(bào)自己的考勤，部門收齊后存放同一文件夾下，點(diǎn)擊考勤匯總表中的匯總表按鈕，就可以快速完成考勤匯總。

作者：海航

排版：曾鈺

金鷹電力

微信號：jinyingdianli

▇?掃碼關(guān)注我們

總結(jié)

以上是生活随笔為你收集整理的phpexcel 获取工作簿名称_工作分享 | Excel快速汇总考勤的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。