½Ð°Ý«ç»ò¨ú±o¨Ï¥Î¤¤ªºÀɮ׸ô®|
- ©«¤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
|
¦^´_ 1# ¨Ø¥È
¦]¼Ó¥D©pªº»¡©ú¤£¬O«Ü²M·¡~
¶È¯à´N©p©Ò¼gªº¨BÆJ¨Ó¦Û¦æ³]p~
1. ¤@ӪťÕEXCEL
2. °õ¦æ«ö¶s¤¤ªºµ{¦¡
3. ¿ïÁ|n¥´¶}ªºÀÉ®×
4. ¥H°ßŪªº¤è¦¡OPEN file
³Ñ¤Uªº¨âÓ¨ú®ø¦@¥Î¸ò°õ¦æ¶×¾ã~
´N¨S¦³¼g¤F~ ¶È¨Ñ§Ú·|ªº³¡¥÷µ¹±z°Ñ¦Ò~- Private Sub CommandButton1_Click()
- PATCH = Application.GetOpenFilename("Microsoft Excel ¬¡¶Ã¯ (*.xls), *.xls") 'Ū¨úÀÉ®×
- If PATCH = False Then
- Exit Sub
- Else
- Workbooks.Open Filename:=PATCH, ReadOnly:=True '°ßŪ¥´¶}FILE
- End If
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|