- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 257
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-27
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-12-1 14:55 ½s¿è
¦^´_ 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´yz²Õ¦¨¡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
Yn¨Ï¥Î¦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 |
|