GBKEE

¦^´_ 3# am0251
¥i¬O§Ú¥u·Q¶×¤J§Ú·Q­nªº¦æ¼Æ  ³o¼Ëªº°Ýªk,«ÜªÅ¬}ªº Ãø©Ç¨S¤H¦^µª
­nªþ¤W¤å¦rÀÉ: »¡©ú­n·j´Mªº¯S©wªº¦r¦ê? ¦p¦ó ¶×¤J? ¦ó®É°±¤î¶×¤J?

GBKEE

¦^´_ 6# am0251

1. Sub Ex()
   
2.     Dim ¶×¥XÀÉ As String, ¶×¤JÀÉ As Workbook
   
3.     Set ¶×¤JÀÉ = ActiveWorkbook     'Set ¶×¤JÀÉ = Workbooks("TEST.XLS")
   
4.     ¶×¥XÀÉ = "D:\TEST\270710.CSV"
   
5.     With Workbooks.Open(¶×¥XÀÉ).Sheets(1)
   
6.         .Range("A5").Resize(5).EntireRow.Copy ¶×¤JÀÉ.Sheets(1).[A1]
   
7.         '.Range("A5").Resize(5) ->5¦C  ,  EntireRow ¾ã¦C½d³ò
   
8.           .Parent.Close False    'Ãö³¬ ¶×¥XÀÉ
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# am0251

1. Sub Ex()
   
2.     Dim ¶×¥XÀÉ As String, ¶×¤JÀÉ As Workbook
   
3.     Set ¶×¤JÀÉ = ActiveWorkbook
   
4.     'Set ¶×¤JÀÉ = Workbooks("TEST.XLS")
   
5.     ¶×¥XÀÉ = "D:\TEST\270710.CSV"
   
6.     With Workbooks.Open(¶×¥XÀÉ).Sheets(1)
   
7.         ¶×¤JÀÉ.Sheets(1).Range("A:A") = .Range("B:B").Value
   
8.         ¶×¤JÀÉ.Sheets(1).Range("B:B") = .Range("E:E").Value
   
9.         .Parent.Close False    'Ãö³¬ ¶×¥XÀÉ
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# toromru
°Ñ¦Ò³o¸Ì
http://forum.twbts.com/viewthread.php?tid=8522