GBKEE

¦^´_ 15# brabus

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

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?
ÁÂÁÂ

brabus

¦^´_ 13# Hsieh


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

Hsieh

¦^´_ 12# brabus

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

brabus

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

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

¦^´_ 9# Hsieh

Àɮצs¦b°Ú,
§Ú¸ÕµÛ½Õ¾ã¤F¤@°}¤l
,²{¦b°õ¦æ«á¥X²{With Workbooks.Open»yªk¿ù»~
§Ú§â·sÀɤW¶Ç¤F
½Ð±zÀ°§Ú¬Ý¸Ó«ç»ò½Õ¾ã­×¥¿
ÁÂÁÂ

Hsieh

¦^´_ 8# brabus
"°}¦C¯Á¤Þ¶W¥X½d³ò"
ªº­ì¦]À³¸Ó¬O¦]¬°¤u§@ªí¤£¦s¦b
§AÀˬdÀɮ׬ݬݧAªº¤u§@ªí¦WºÙ¬O§_¥¿½T

brabus

¦^´_ 7# Hsieh


    §A¦n§Ú¤v¸g­×¥¿ªþ¥ó¬¡­¶Ã¯1¤F
§Ú¤W¦¸°Ýªº¬O¦b¬¡­¶Ã¯1ªº¤u§@ªí1³]«ö¶s
§â¸ê®Æcopy¨ì¬¡­¶Ã¯2³o­ÓÀɮפWªº"¸ê®Æ½T»{"¤u§@ªí¤¤
²{¦b·Q§â¤u§@ªí1³o­Ó«ö¶s²¾¨ì¦P¬¡­¶Ã¯ªº¤u§@ªí2¤W
¦]¬°¤£·QÅý¤H¬Ý¨ì¤u§@ªí1¤Wªº¤H¦W¸ê®Æ
·Q¦b¤u§@ªí2¤W«ö«ö¶s,´N¥i¥H§¹¦¨¤W­±­ì¨Ó©Ò»¡ªº½Æ¨îªº¤u§@
ÁÂÁ§A

Hsieh

¦^´_ 6# brabus
§â«ö¶s·h¨ìªÅ¥Õ¤u§@ªí2
¨º³o­ÓªÅ¥Õ¤u§@ªí2¬O§_»P­n½Æ»sªº¨Ó·½¤u§@ªí¦b¦P¤@­ÓÀɮשO?
´N¬OSheets("sheet1")¬O§_¦s¦b?