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

[¤À¨É] Àɮצ^¨ì©Ò¦b¦a

[¤À¨É] Àɮצ^¨ì©Ò¦b¦a

³o¬O¥i¥H±NÀÉ®× §Ö³t©ñ¸m©Ò­nªº¥Ø¿ý©³¤U
¦pªG¸ê®Æ«Ü¦h ¤â°Ê¥h·h²¾ªº¸Ü ·|¤âµm
¬G¥H¦¹¨Ó°µÂ²³æ³]©w«á ÅýÀɮצ^¨ì¸Ó¦^¥hªº¦a¤è

¦p¡G
D:\¤å¥ó\***-¤å¥ó¹ÏÀÉ.jpg ­n©ñ¦b ***¸ê®Æ§¨©³¤Uªº EXCELÀÉ®×
AAA-¤å¥ó¹ÏÀÉ.jpg ·h²¾¨ì  AAA\EXCEL\AAA-¤å¥ó¹ÏÀÉ.JPG

¨Ï¥Î¤è¦¡¡G
AÄæ¦ì¿é¤J·Q­n©ñ¸mªº¸ê®Æ§¨¦WºÙ
¥B ¸Ó¸ò¥Ø¿ý¤U©ñ¸m·Q·h²¾ªºÀÉ®×
°õ¦æµ{¦¡½X§Y¥i

µ{¦¡½X¦p¤U
  1. Sub test()

  2.     Dim objFs As Object
  3.     Set objFs = CreateObject("Scripting.FileSystemObject")
  4.         MkDir "D:\¤å¥ó\" & Range("a" & wi).Value & "\" & "Excel"             '¦bAÄæ¦ì¸ê®Æ§¨¤º³Ð¥ß EXCEL¸ê®Æ§¨
  5.         MkDir "D:\¤å¥ó\" & Range("a" & wi).Value & "\" & "¹Ï¤ù¦s©ñ°Ï"   '¦bAÄæ¦ì¸ê®Æ§¨¤º³Ð¥ß ¹Ï¤ù¦s©ñ°Ï¸ê®Æ§¨

  6.     Columns("H:H").Select
  7.     Selection.NumberFormatLocal = "@" '¤å¦r«¬ºA
  8.     Columns("t:t").Select
  9.     Selection.NumberFormatLocal = "@" '¤å¦r«¬ºA


  10. Range("h1").Value = Right(Range("e1").Value, 4)
  11.     For xi = 1 To 999
  12.         If Range("a" & xi).Value <> "" Then
  13.             xy = xi
  14.         End If
  15.     Next
  16. For xt = 1 To xy
  17.         xo = Range("j" & xt).Value
  18.                 Columns("H:H").Select
  19.                 Selection.NumberFormatLocal = "@"
  20.                 Range("h" & xt).Value = Right(Range("e" & xt).Value, 4)

  21.                
  22.             For xuo = 1 To 999
  23.                 If Dir("D:\¤å¥ó\" & Range("e" & xuo).Value & "-¤å¥ó¹ÏÀÉ.jpg") <> "" Then
  24.                     objFs.moveFile "D:\¤å¥ó\" & Range("e" & xuo).Value & "-¤å¥ó¹ÏÀÉ.jpg", "D:\¤å¥ó\" & Range("a" & xuo).Value & "\excel\"
  25.                 End If
  26.             Next xuo


  27.            For xww = 1 To 999
  28.                 If Dir("D:\¤å¥ó\" & Range("a" & xt).Value & Range("h" & xww).Value & ".jpg") <> "" Then

  29.                        objFs.moveFile "D:\¤å¥ó\" & Range("a" & xt).Value & Range("h" & xww).Value & ".jpg", "D:\¤å¥ó\" & Range("a" & xt).Value & "\¹Ï¤ù¦s©ñ\"
  30.                 End If
  31.             Next xww
  32. Next xt
  33. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD