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

·s¼W¸ê®Æ§¨°ÝÃD¸ß°Ý

·s¼W¸ê®Æ§¨°ÝÃD¸ß°Ý

DEAR  ALL  ¤j¤j
1.¦p¹Ï¤@¬°«ü©w¸ê®Æ§¨¤U­n·s¼W¦WºÙ¬° Sheet1.Range("A1")  ¤§EXCELÀÉ®×
2.¤p§Ì·Q©ó ¦U°Ï¦­·|DATA\ ¤U¥ý·s¼W¤@¦WºÙ¬°  Sheet1.Range("A1")  ¤§¸ê®Æ§¨
    «á¦A©ó Sheet1.Range("A1")  ¸ê®Æ§¨¤U·s¼W¦WºÙ¬°Sheet1.Range("A1")  ¤§EXCELÀÉ®×
2.1 ½Ð±Ð¦p¦ó·s¼W¦WºÙ¬° Sheet1.Range("A1")  ¤§¸ê®Æ§¨.
2.2 ·Ð¤£§[½ç±Ð   THANKS*10000

¹Ï¤@
Sub ·s¼WEXCEL()
    Range("A1").Select
    Application.DisplayAlerts = False 'Ãö
    Workbooks.Add
    ChDir "\\Pcbfs02\C701\²£³]¦­·|·|ij°O¿ý¿é¤J¨t²Î"
    ActiveWorkbook.SaveAs Filename:= _
        "\\Pcbfs02\C701\²£³]¦­·|·|ij°O¿ý¿é¤J¨t²Î\¦U°Ï¦­·|DATA\" & Sheet1.Range("A1") & " .xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
    Range("A1").Select
End Sub
ù

DEAR  ALL   SIRS
¤w§ä¨ìµª®×¦p¤U   THANKS

Sub ³Ð«Ø¸ê®Æ§¨()
f = Dir("C:\Users\N000017371\Desktop\ROUBER\" & Sheet1.Range("A1") & ", vbDirectory") '§PÂ_¬O§_¦s¦b
On Error Resume Next
If f = "" Then MkDir ("C:\Users\N000017371\Desktop\ROUBER\" & Sheet1.Range("A1")) '¦pªG¤£¦s¦b´N«Ø¥ß
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD