Hsieh

¦^´_ 10# brabus

1. Private Sub CommandButton1_Click()
   
2. 
   
3. fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '¶}±Ò¥ØªºÀÉ®×
   
4. With Workbooks.Open(fs)
   
5.   ThisWorkbook.Sheets("¤u§@ªí1").Columns("B:D").Copy .Sheets("¸ê®Æ½T»{").[B1] '½Æ»s¸ê®Æ
   
6.   ThisWorkbook.Sheets("¤u§@ªí1").Range("h21:j60").Copy .Sheets("¸ê®Æ½T»{").[h21]
   
7. End With
   
8. End Sub

½Æ»s¥N½X

brabus

¦^´_ 11# Hsieh
Hsieh¤j¤j¸ò±z³ø§i
«á­±ªº«ü¥O³£¤@¼Ë
§Ú¬O¤Ö¼gThisWorkbook..©Ò¥H³o¼Ë¥L·|§ì¨ì§Oªº¤u§@ªí¥h¶Ü??

Hsieh

¦^´_ 12# brabus

¦]¬°§Aªº«ö¶s°µ¦b§Oªº¤u§@ªí
©Ò¥H­Y¤£«ü©wÀÉ®×
·|³y¦¨«ü©w¥Ø«e¶}±ÒªºÀÉ®×
©Ò¥H«ü©úthisworkbook´N¯à§ì¨ì¥¨¶°©Ò¦bªºÀÉ®×

brabus

¦^´_ 13# Hsieh


   ¤F¸Ñ
·P®¦§Aªº¦^ÂÐ
ÁÂÁÂ

brabus

·Q¦A°Ý¤@¤U
²{¦b­ncopyªºÀÉ®×Åܦh¤F
¦³®É·|§Ñ¤F¨º­Ó¤v¸g½Æ»s¹L,¨º¨Ç¨S¦³,©ÎªÌ«ö¿ù,¦Ó¦³º|±¼¨S½Æ¨î¨ìªºÀÉ
µ²ªG·|¥X¿ù
½Ð°Ý¦³¨S¦³¥i¯à¼g¤@­Ó«ü¥O
´N§â¸ê®Æ§¨"¤pªÎªÎ"¸Ì­±ªº20~30©Î§ó¦hÀɮתº"¸ê®Æ½T»{"¥þ³¡½Æ¨î¦n¡A¤£¥Î¤@­Ó¤@­ÓÂI¿ï
¦A¥h½Æ¨î©O?
ÁÂÁÂ

GBKEE

¦^´_ 15# brabus

°Ñ¦Ò³o¸Ì ¨Ï¥Î Dir ¶i¦æ°j°é ¤@¤@ªº½Æ»s

brabus

¦^´_ 16# GBKEE [/b
¹ï¤£°_§Ú³o´X¤Ñ¤ñ¸û¨SªÅ
¨ì¤µ¤Ñ¤~¦³®É¶¡¨Ó¬Ý±zªº¦^ÂÐ
¥i¬O§Ú¬Ý¤£¤ÓÀ´±zªº¦^ÂÐ(«¢«¢,§Ú¤ñ¸û²Â)
§Ú§â»Ý¨D¦A»¡©ú¤@¦¸
ªþ¥ó¤¤¸Ñ¶}¦³¦³¤@­ÓexcelÀÉ®×¥s§Ú¬O¥D­n¸ê®Æ,³o¬O­ncopyªº¥DÀÉ
Àɮק¨¤¤¦³¤@­Ó"Àɮ׸ê®Æ"§¨,¸Ì­±À³¸Ó¦³20~30­ÓÀÉ®×(§Ú¨S¦³¥þ³¡§@)
ÀɦW¤£¤@©w,¦ý³£¬OexcelÀÉ
§Ú²{¦b·Q­n¦b§Ú¬O¥D­n¸ê®Æexcel¤¤§@¤@­Ó«ö¶s
¥L¥i¥H§â"§Ú¬O¥D­n¸ê®Æ"¤¤ªº"¸ê®Æ½T»{"¤u§@ªí
copy¨ìÀɮ׸ê®Æ§¨¤º©Ò¦³(20~30­Ó)Àɮתº:¸ê®Æ½T»{"¤u§@ªí
Àɮ׸ê®Æªº©ñ¸ô®|¤£¤@©w¦b¨º
¦ý¥i¥H¥ÎApplication.GetOpenFilename("Excel Files (*.xls), *.xls") ¨Ó¨ú±o
½Ð±zÀ°§Ú¬Ý¬Ý«ç»ò³B²z¤ñ¸û¦n.ÁÂÁÂ

GBKEE

¦^´_ 17# brabus


¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xPath As String, xFile As String, AR(), i As Integer
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.        '.InitialFileName = "D:\TEST\"   '¥i¹w©w¸ê®Æ§¨
   
6.         If .Show = True Then xPath = .SelectedItems(1)
   
7.         '.Show = True  :ÀÉ®×¹ï¸Ü¤è¶ô¤¤«ö¤U½T©w->¿ï©w¸ê®Æ§¨
   
8.     End With
   
9.     If xPath = "" Then MsgBox "¨S¦³¿ï¾Ü¸ê®Æ§¨ !!", vbQuestion : Exit Sub
   
10.     AR = Workbooks("§Ú¬O¥D­n¸ê®Æ.xls").Sheets("¸ê®Æ½T»{").UsedRange.Value
    
11.     xFile = Dir(xPath & "\*xls", vbDirectory)  '¿ï©w¸ê®Æ§¨¤¤·j´M«ü©wÃþ«¬ªºÀÉ®×
    
12.     Application.ScreenUpdating = False
    
13.     Do While xFile <> ""                       '¦³§ä¨ì«ü©wÃþ«¬ªºÀÉ®×
    
14.         With Workbooks.Open(xPath & "\" & xFile)
    
15.             .Sheets("¸ê®Æ½T»{").[a1].Resize(UBound(AR), UBound(AR, 2)) = AR
    
16.             .Close True   'Ãö³¬¦sÀÉ
    
17.         End With
    
18.         xFile = Dir   '¨Ì§Ç ¤U¤@­Ó«ü©wÃþ«¬ªºÀÉ®×
    
19.     Loop
    
20.     Application.ScreenUpdating = True
    
21. End Sub

½Æ»s¥N½X

brabus

ÁÂÁÂGBKEE¤j¤j¦^ÂÐ

§Ú¨Ó¸Õ¸Õ,¦³°ÝÃD¦A¸ò±z½Ð±Ð

brabus

¦^´_ 18# GBKEE

½Ð°ÝGBKEE¤j¤j
§Ú¦b12¤ë¤¤¦¯®É¦³½Ð°Ý±z,¦p¦ó½Æ»sªí®æ¨ì§Oªº¤u§@ªí¤¤¡A©Ó»X±z¦^ÂÐ,«á¨Ó¦]­Ó¤H¨­Åé¦]¯À,ª½¨ì²{¦b¤~¦³ªÅ¸Õ¥Î
¸g­×¥¿°õ¦æ«á¥X²{"°}¦C¯Á¤Þ¶W¥X½d³ò",§Úªþ¤WÀÉ®×,½Ð±zÀ°§Ú¬Ý¬Ý¸Ó¦p¦ó­×¥¿,ÁÂÁÂ,¯¬±z¸t½Ï¸`§Ö¼Ö