[µo°Ý] ¦p¦ó½Æ»sªí®æ¨ì§Oªº¤u§@ªí

brabus

¦pªþ¥ó¬¡­¶Ã¯1¤¤©Ò¥Ü
§Ú·Q¦b«ö¤U¦P¨B«ö¶s«á
§â¬¡­¶Ã¯1Àx¦s®æ¤¤b1¨ìd87ªº¸ê®Æ
½Æ»s¨ì¬¡­¶Ã¯2¤¤ªº"¸ê®Æ½T»{"¨º±i¤u§@ªíªºb1¨ìd87Àx¦s®æ(¥¼¨Ó¦pªG¸ê®Æ¼W¥[ªº¸Ü,­n¥i¥H¥þ³¡½Æ»s,¤£¹L¥u·|¥Î¨ìb¨ìdªº3­ÓÄæ¦ì)
²{¦b¬¡­¶Ã¯2¤¤ªº"¸ê®Æ½T»{"¤u§@ªí³Q"ÁôÂÃ"vba ªº±K½X¬Otwbts
¥ý¤£¦Ò¼{¬¡­¶Ã¯1¤¤ªº¸ê®Æªº¤º®e,¦]¬°¨ì®É·|key¤J¥¿½T¸ê®Æ
­n¦Ò¶qªº¬O³o2­ÓÀÉ¥i¯à©ñ¦b¥ô¤@ºÏºÐ¤¤
¤£­­¬O¦b®à­±©Î¬O"§Úªº¤å¥ó"¤¤,¥i¯à¦bd¼Ñ©Îe¼Ñ......
¥¼¨Ó¤]¥i¯à­n¦P®É¦s¨ì¬¡­¶Ã¯3¤¤ªºb¨ìdÄæ....
½Ð°ª«ü¾É¤@¤U­n«ç»ò¼gvba

brabus

¦^´_ 23# GBKEE

½Ð°ÝGBKEE¤j¤j
§Ú¾Þ§@«áµo²{,¥¦¥u¦³§â"­È"½Æ¨î¹L¥h¦Ó¤w,¨Ã¨S¦³§â"¤½¦¡"©M"®æ¦¡"½Æ¨î¹L¥h吔....
¸Ó«ç»ò­×¥¿????
ÁÂÁÂ

brabus

¦^´_ 23# GBKEE

©êºpGBKEE¤j,§Ú¸Ó¥´§¾ªÑ,¨S¬Ý²M·¡.®ö¶O§AÄ_¶Qªº®É¶¡¦^µª.......
ÁÂÁ§A,§Ú¬Ý¨ì¿ùªº¦a¤è¤F....,­×¥¿¦n¤F
·P~~®¦~~

GBKEE

¦^´_ 22# brabus

¤U¸ü (66.55 KB)

2016-12-25 13:43

¹Ï¤ùÀÉ¥iª½±µ¤W¶Ç.

§AÁÙ¬O¨S±N¤u§@ªíªº¦WºÙ"¸êªUÀÉ"
»PvbaªºWorkbooks("³]©w¥Î.xls").Sheets("¸ê®ÆÀÉ").UsedRange.Value
§ï¦¨¤@­Pªº

brabus

¦^´_ 21# GBKEE


    «ç»ò¿ì,§Ú§ï§¹«á°õ¦æ,¤@¼Ë¬O°}¦C¯Á¤Þ¶W¥X½d³ò~~~Ãø¹D¬O§Ú·~»Ù­«¶Ü????

GBKEE

¦^´_ 20# brabus

§A¥´¿ù¦r¤F,³]©w¥Î¤u§@ªí¦WºÙªº¬O  ¸êªUÀÉ
µ{¦¡½Xªº¬O,AR = Workbooks("³]©w¥Î.xls").Sheets("¸ê®ÆÀÉ").UsedRange.Value

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½Ï¸`§Ö¼Ö

brabus

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

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

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

¦^´_ 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.ÁÂÁÂ