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

[µo°Ý] ·Q½Ð±Ð¬O§_¦³¤ñ¸û²³æªº§@ªk

¦^´_ 10# ¤p¸ô¦èªk
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, xPath As String
  4.     xPath = "C:\Users\Eternity\Desktop\·s¼W¸ê®Æ§¨ (3)\"
  5.     Set Rng(1) = Workbooks("¥X³fªí1070807-0808¦­ (version 1).xlsb").Sheets("¤u§@ªí1").Range("A2:H9")
  6.                                     '**Rng(1)-> ©Ò«ü©wªº²Ä¤@­Ó½d³ò
  7.     Set Rng(2) = Rng(1).Range("F1") '**«ü©w½d³òªº"F1"
  8.     Do While Rng(2) <> ""           '**«ü©w½d³òªº"F1"¦³¦sÀɪº¦WºÙ,¬O°j°é°õ¦æ¤U¥hªº±ø¥ó.
  9.         With Workbooks.Add(1)       '**½Ð¬d¬Ý Excel ¶}µo¤H­û°Ñ¦Ò¸ê®Æ-> Workbooks.Add ¤èªk °Ñ¼Æ 1 ¬° xlWBATWorksheet
  10.             Rng(1).Copy .Sheets(1).Range("a1")
  11.             .SaveAs xPath & Rng(2)
  12.             .Close
  13.         End With
  14.         Set Rng(1) = Rng(1).Offset(9)  '** ¤U¤@­Ó©Ò«ü©wªº½d³ò»P¤W¤@­Ó½d³ò©T©w®t9­Ó¦C
  15.         Set Rng(2) = Rng(1).Range("F1")
  16.     Loop
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# ¤p¸ô¦èªk

½Ð°Ñ¦Ò
    ¥X³fªí.zip (42.66 KB)

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD