¦p¦ó±N¤U±ªºµ{¦¡½X§ï¦¨¥u¶×¦b¦P¤@Ó¸ê®Æªí
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-7-9 17:31 ½s¿è
¦^´_ 4# qwern
¸Õ¸Õ¤U±ªº¼gªk~ ¨Ì§A¤W¸üªº¸ê®ÆÁÙ¼¶¼g~ ±N¸ê®Æ§¨¤¤ªºEXCELÀɶצb¦P¤@Ósheet¤¤~
A3="ÀɮצWºÙ"
B3=Äæ¦ìA
A3&B3¬On¦³Äæ¦ì¦WºÙò- Application.Calculation = xlCalculationManual
- Dim Ar()
- With Application.FileDialog(msoFileDialogFolderPicker)
- If .Show = 0 Then Exit Sub ' Y¬O¨S¦³¿ï¨ú¸ê®Æ§¨¸ô®|¡A´N¸õ¥Xµ{§Ç
- Sheet1.Rows("4:1048576").ClearContents
- fd = .SelectedItems(1)
- If .ButtonName = "½T©w" Then
- fs = Dir(fd & "\*.xls")
- Do Until fs = ""
- fds = fd & "\" & fs
- With Workbooks.Open(fds)
- A = .Sheets(1).Range("A65536").End(xlUp).Row
- BN = .Sheets(1).Name
- .Sheets(1).Range("A1:CW" & A).Copy Sheet1.Range("B1048576").End(xlUp).Offset(1, 0)
- .Close 0
- End With
- C1 = Sheet1.Range("A1048576").End(xlUp).Offset(1, 0).Row
- C2 = Sheet1.Range("B1048576").End(xlUp).Row
- Sheet1.Range("A" & C1 & ":A" & C2) = BN
- fs = Dir
- Loop
- End If
- End With
- Application.Calculation = xlCalculationAutomatic
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 7# qwern
Hsieh ¤j¤jªº¼gªk¬Oª½±µ±N¸ê®Æ§¨¤¤©Ò¦³ªºexcel¸ê®Æ¶×¦b¤@°_~
§Úªº¼gªk¤]¬O¤§«e¦U¤j¤j±Ðªº~ ©Ò¥H¬Ý°_¨Ó¤£·|®t²§¤Ó¤j~
¦b¶×¾ã¸ê®Æ®É~ ¬OÀ°§A¦Ò¶q¨ì~ ±N¨C¤@ÓÀɮ׶פJ®É~ ²K¥[¤WÓÀɮתº¦WºÙ~
³o¼Ë·|¤è«K¨Ï¥ÎªÌ¦b¸ê®Æ¦³ºÃ°Ý®É~ ¯à°÷¤ñ¸û§Ö³t§äÓ¬Oþ¤@ÓÀɮתº¸ê®Æ~ þÃäµo¥Í°ÝÃD
·íµM~ ³o¤]¬On¬Ý§A¦Û¤vªº»Ý¨D~ ¬O¤£¬O¦³»Ýn~
§Q¥Î Hsieh ¤j¤jªº¼Ò¦¡¥i©µ¦ù¦Û¤v»Ýnªºµ²ªG~ |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|