ʵ���������ߴ��С��Ĺ������е�excel��������ɣ�����VBA��̵ķ�������Ȼ����Ϊ����VBA������㣬ֻ��Ҫ�����沽�踴��ճ�����ɡ� ��1 ������Ҫ���ݵ�excel�ļ����ڹ������ǩ���Ҽ�������������鿴���롱�� ��2�� �ڴ�һ��visualbasic���ڣ�˫�����̴����е�thisworkbook��������Ĵ���ճ�����Ҳ�Ĵ����С� ���룺 Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim mypath As String, fname As String fname = Format(Date, "yymmdd") & ThisWorkbook.Name mypath = ThisWorkbook.Path & "/����/" ThisWorkbook.SaveCopyAs mypath & fname End Sub
�ڵ����ı��洰���У�ѡȡ��������Ϊ��Excel ���ú�Ĺ��������� ��4�����ڵ�ǰ�ļ����У��½�һ����Ϊ�����ݡ����ļ��С� |
免責聲明:本站部分文章和圖片均來自用戶投稿和網(wǎng)絡(luò)收集,旨在傳播知識,文章和圖片版權(quán)歸原作者及原出處所有,僅供學習與參考,請勿用于商業(yè)用途,如果損害了您的權(quán)利,請聯(lián)系我們及時修正或刪除。謝謝!
始終以前瞻性的眼光聚焦站長、創(chuàng)業(yè)、互聯(lián)網(wǎng)等領(lǐng)域,為您提供最新最全的互聯(lián)網(wǎng)資訊,幫助站長轉(zhuǎn)型升級,為互聯(lián)網(wǎng)創(chuàng)業(yè)者提供更加優(yōu)質(zhì)的創(chuàng)業(yè)信息和品牌營銷服務,與站長一起進步!讓互聯(lián)網(wǎng)創(chuàng)業(yè)者不再孤獨!
掃一掃,關(guān)注站長網(wǎng)微信