[µo°Ý] «ü©wEXCEL~ ±N¸ê®Æ¶×¥X

hugh0620

Dear ¤j¤j­Ì

§Ú¦b¤w¶}ªºÀɮפ¤~ ­n±N¸ê®Æ¶×¨ì«ü©wªºÀɮפ¤~ (¥H«e¨S¼g¹L³o¼Ëªº¤è¦¡)

¤U­±¬O§Ú¼gªºµ{¦¡½X~ ¦ý¬O­n¶K¨ì«ü©wªºÀɮפ¤®É~ ½Tµo¥Í¿ù»~~ ½Ð¤j¤j«ü¾É¤@¤U~

1. Private Sub CommandButton1_Click()
   
2. 
   
3. patch = Application.GetOpenFilename("Microsoft Excel ¬¡­¶Ã¯ (*.xls), *.xls")
   
4. If patch = False Then
   
5.     Exit Sub
   
6. Else
   
7.         With ThisWorkbook
   
8.              Sheet6.Range("A10:N10").Select
   
9.              Sheet6.Range(Selection, Selection.End(xlDown)).Copy
   
10.             
    
11.             With Workbooks.Open(patch)
    
12.             Paste .Sheet1.Range("A65536").End(xlUp).OFFST(1, 0)
    
13.            End With
    
14.         End With
    
15. End If
    
16. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 1# hugh0620

¨þ¨þ~ ­ì¨Ó¤£§xÃø
¥u­n¼g¦¨¤U­±³o¼Ë´N¥i¥H¤F~

1. Private Sub CommandButton1_Click()
   
2. 
   
3. patch = Application.GetOpenFilename("Microsoft Excel ¬¡­¶Ã¯ (*.xls), *.xls")
   
4. If patch = False Then
   
5.     Exit Sub
   
6. Else
   
7.     Sheet6.Range("A10:N10").Select
   
8.     Sheet6.Range(Selection, Selection.End(xlDown)).Copy Workbooks.Open(patch).Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
   
9. End If
   
10. 
    
11. End Sub

½Æ»s¥N½X