Hsieh

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

½Æ»s¥N½X

¦^´_ 1# brabus

Hsieh

¦^´_ 3# brabus


    fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
³o¬O¶}±ÒÂÂÀɪº¹ï¸Ü¤è¶ô¡A¥i¨Ñ¨Ï¥ÎªÌ¿ï¾Ü­n¶K¤W¸ê®ÆªºÀÉ®×
.Sheets("¸ê®Æ½T»{").[B1]
´N¬O³Q¶}±ÒªºÀɮפ¤¸ê®Æ½T»{¤u§@ªíªºB1Àx¦s®æ¡A¤]´N¬O³Q¶K¤W¸ê®Æªº¦ì¸m
¦Ü©ó2­Ó*.xls½Ð°Ñ¾\GetOpenFilenameªºFileFilter ¤Þ¼Æ»¡©ú
FileFilter     ¿ï¾Ü©Êªº Variant¡C¬O«ü©wÀɮ׿z¿ï³W«hªº¦r¦ê¡C
¦¹¦r¦ê¥Ñ¤@Àɮ׿z¿ï¦r¦ê»P MS-DOS ¸U¥Î¦r¤¸ªí¹FªºÀɮ׿z¿ï³W«h´y­z²Õ¦¨¡A¤¤¶¡¥H³rÂI¤À¹j¡C[ÀÉ®×Ãþ«¬] ¤U©Ô¦¡²M³æ¤è¶ô¤¤·|¦C¥X¦U²Õ¦r¦ê¡C¨Ò¦p¡A¤U¦C¦r¦ê«ü©w¨â­ÓÀɮ׿z¿ï¡A¤å¦r©M¼W¯q¶°¡G¤å¦rÀÉ (*.txt),*.txt,¼W¯q¶°ÀÉ®× (*.xla),*.xla¡C
­Y­n¨Ï¥Î¦h­Ó MS-DOS ¸U¥Î¦r¤¸¹Bºâ¦¡²Õ¦¨³æ¤@Àɮ׿z¿ïÃþ«¬¡A¦U¸U¥Î¦r¤¸¤§¶¡»Ý¥H¤À¸¹¤À¹j¡F¨Ò¦p¡A"Visual Basic Files (*.bas; *.txt),*.bas;*.txt"¡C
¦pªG¬Ù²¤¡A«h¦¹¤Þ¼Æ±N¹w³]¬° "All Files (*.*),*.*"¡C

Hsieh

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

Hsieh

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

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

Hsieh

¦^´_ 12# brabus

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