hugh0620

¦^´_ 1# shauefu

VBA¡A¤À¬q¸¨¼g¡G
1.  ¥ý¼g¥X¦p¦ó«ü©w¸ê®Æ§¨
2.  Åª¨ú¨ä¤¤¤@­ÓEXCEL¤¤ªº¸ê®Æ
     ¤U­±½d¨Ò¦¡«ü©w¸ê®Æ§¨¨ä¤¤¤@­Óexcel±N¸ê®Æ¶K¨ì¥Ø¼Ðexcel¤¤

1. Private Sub CommandButton2_Click() '¶×¥X¸ê®Æ
   
2. Application.ScreenUpdating = False
   
3. 
   
4. patch = Application.GetOpenFilename("Microsoft Excel ¬¡­¶Ã¯ (*.xls), *.xls")    'ÂI¿ïÀÉ®×
   
5. 
   
6. If patch = False Then
   
7.     Exit Sub
   
8. Else
   
9.      Workbooks.Open (patch)                                                      '¶}±ÒÀÉ®×
   
10.     '¶×¤J·s¸ê®Æ
    
11.     ActiveWorkbook.Sheets(2).Select
    
12.     Sheets(2).Range("A3:M3").Select
    
13.     Sheets(2).Range(Selection, Selection.End(xlDown)).Copy ThisWorkbook.Worksheets.Item(4).Range("A1").End(xlDown).Offset(1, 0)
    
14.     ActiveWorkbook.Close 0
    
15. End If
    
16. Application.ScreenUpdating = True
    
17. End Sub

½Æ»s¥N½X

3.  ³Ì«á¡Arun¾ã­Ó¸ê®Æ§¨¤¤ªºexcel¡AŪ¨ú¨C¤@­Óexcel¯S©w¦ì¸mªº¸ê®Æ¡C
      ¤U­±¦¡®×¨Ò°w¹ï¦P¤@­Óexcel¤¤sheetªº§R°£¡A¥Î¬Û¦Pªº¤è¦¡¥i¥H¶]¨C¤@­ÓexcelÀÉ

1. Private Sub CommandButton2_Click() '§R°£
   
2.     Dim Sh As Worksheet
   
3.     Application.DisplayAlerts = False
   
4.     For Each Sh In Sheets
   
5.         If Sh.Name <> "Data¶×¾ã" And Sh.Name <> "­ì©lData" Then Sh.Delete
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8. End Sub

½Æ»s¥N½X