¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ 3# imzues
¹w³] D:\A¸ê®Æ§¨ D:\B¸ê®Æ§¨
°Ê§@¡G ±qEXCEL §PÂ_ÀɦW ¦A±qA ½Æ»s¨ì B (·h²¾·|¦³°ÝÃD)
Sub test()
Dim objFs As Object
Set objFs = CreateObject("Scripting.FileSystemObject")
For xt = 1 To 20
If Range("a" & xt).Value <> "" Then
For xuo = 1 To 20
If Dir("d:\¤ñ¹ï\A¸ê®Æ§¨\" & Left(Range("a" & xt).Value, 9)) & "-051115619000-OEM-T 190.xls" <> "" Then
objFs.copyfile "d:\¤ñ¹ï\A¸ê®Æ§¨\" & Left(Range("a" & xt).Value, 9) & "*.xlsx", "D:\¤ñ¹ï\B¸ê®Æ§¨\"
End If
Next xuo
End If
Next xt
'Set objFs = Nothing
End Sub
text.rar (40.35 KB)
|
|