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

[µo°Ý] VBA ÅÜ¼Æ Åª¨ú³¡¤À¤¤¤å¦rÅܰݸ¹

[µo°Ý] VBA ÅÜ¼Æ Åª¨ú³¡¤À¤¤¤å¦rÅܰݸ¹

¨Ò¦p......
Àx¦s®æ A1 ©ñ  伃

¥Î a = range("A1") ÅܼƵøµ¡§e²{ "?"
½Ð°Ý³o¦³¸Ñ¶Ü?

­n°õ¦æ§R°£Àɮתº¥\¯à,¦ýÅܦ¨°Ý¸¹´N·|µLªk§ä¨ì©Ò¸Ó§R°£ªºÀÉ®×

¤¤¤åÅܰݸ¹.rar (10.3 KB)

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

·P®¦¡I

TOP

Sub §R°£()
Dim T$, xObj, xFL
T = Range("A1")
Set xObj = CreateObject("Scripting.FileSystemObject")
Set xFL = xObj.GetFile("D:\" & T)
xFL.Delete
End Sub

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD