ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·s¼W¤@­ÓÀɮתº»yªk

¦^´_ 10# ziv976688


Sub ·s¼WÀÉ®×()
Dim S, P$, T$, xB As Workbook, N%
P = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each S In Array("§¡­È", "§À¼Æ", "¦X¼Æ", "¥Í¨v", "¤­¦æ", "¤K¨ö")
    T = Dir(P & "¤µ¤éÁ`ªí(" & S & "±Æ§Ç)-*_*-(????-??-??).xls")
    If T = "" Then GoTo 101
    T = Left(T, 11) & Left(Right(T, 16), 12) & "_²Î­p.xls"
    Sheets("²Î­p").Copy
    With ActiveWorkbook: .SaveAs Filename:=P & T, CreateBackup:=False: .Close: End With
    N = N + 1
101: Next
If N > 0 Then MsgBox "¦@«Ø¥ß " & N & " ­Ó·sÀÉ®×!  "
End Sub

TOP

¦^´_ 11# ­ã´£³¡ªL

ª©¥D:±z¦n!
·PÁ¸ÑÃD¡C
´ú¸ÕOK¦p»Ý¨D¡C
±z¤Ó¼F®`¤F¡A³º¯à¥ô¿ï1­Ó©Î2­Ó©Î...©Î¥þ¿ï ¡A
³o¼Ë§Ú´N¤£¥Î§@6­Ó¥DÀɤF¡C
ÁÂÁ±zªº­@¤ß«ü¾É~·P®¦^^

TOP

¥»©«³Ì«á¥Ñ zheng211016 ©ó 2019-4-15 21:47 ½s¿è

¦^´_ 8# ziv976688

§Ú¦b©î¦rªº³¡¤À ³]©w¿ù»~ ©Ò¥H°»¿ù·|¥X²{¥t¦sÀÉ®×¥¢±Ñ
©¯¦n¦³ª©¤j ¥X¤âÀ°¦£
¨º§Ú´N¨ó§U µù¸Ñªº³¡¤À

TOP

¦^´_ 13# zheng211016
zheng211016¤j¤j:±z¦n!
±z¤ÓÁ¾µê¤F^^
ÁÂÁ±zªº¸Ô²Óµù¸Ñ¡A¨Ï§Ú§óÁA¸Ñµ{¦¡½Xªº·N²[¡C

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD