½Ð°Ý«ç»ò¨ú±o¨Ï¥Î¤¤ªºÀɮ׸ô®|
- ©«¤l
- 12
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-5-12
- ³Ì«áµn¿ý
- 2014-5-29
|
½Ð°Ý«ç»ò¨ú±o¨Ï¥Î¤¤ªºÀɮ׸ô®|
¤j®v¦n:
excelÀɮ׬O¦@¥Îªº,¦³¦hÓ¤H¦b¨Ï¥Î,µ{¦¡°õ¦æ·J¾ã®É,
ÀÉ®×±`±`Åܱo¦n¤j.
§Ú·Q¥Î:1.¥ý¨ú±o¦¹Àɮתº¸ô®| 2.¦A¥Î°ßŪ¶}啓.3.¨ú®ø¦@¥Î 4.°õ¦æ·J¾ã.
¥Ø«e¹J¨ì°ÝÃD¬O:«ç»ò¨ú±o¦¹Àɮתº¸ô®|?(¦]¬°³oÀɮ׬O©ñ¦b'¶g'¸ê®Æ§¨,ÀHµÛ¶g·s¼W¸ê®Æ§¨) |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦^´_ 1# ¨Ø¥È
¨ú±oÀɮתº¸ô®|:
application.Path
³oÓ¬O«ö"¶g¥÷"¥Í¦¨¦ì¸m, ¨Ò¦p¥»¶g·|¥Í¦¨: c:\201211\
"C:\"+format(now(),"YYYYWW")&"\"
Ãö©óÀɮצ]¬°¦@¥ÎÅܤj,¦pªG¨S¦³»Ýn°O¤U¾ú¥v, ¥i¥H§â³oÓ±¼¥h
³oÓ¬OÅܤj°ÝÃDªº¨ä¤¤¤@Ó¥Dnì¦] |
|
|
|
|
|
|
- ©«¤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
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-5-12
- ³Ì«áµn¿ý
- 2014-5-29
|
ÁÂÁÂkimbal»Phugh0620¦^ÂÐ,¥Dn¬O¦@¥ÎÀɮצ³6Ósheet,¦P®É¦³6¦ì¦U¦Û塡¤J¸ê®Æ,
¦¹ÀÉ®×ÁÙ¦³¤@Ósheet_·J¾ã,§Ú¦³¼gµ{¦¡±N³o6Ósheet¸ê®Æ·J¾ã¦Ü¦P¤@Ósheet¤¤,
¥Ø«eµo¥Í¦P®É¦³¦hÓ¤H°õ¦æ·J¾ã®É,ÀÉ®×´N·|Åܫܤj.©Ò¥H~
·Q¦b°õ¦æ·J¾ã«e,¦¹ÀÉ®×¥ýÀx¦s¦A¥Î°ßŪ¶}啓,¦A°õ¦æ·J¾ã,·J¾ã«áªºsheet¦Û¦æ¦s¤J«ü©w¸ô®|¤¤.
°ÝÃD¤w¸Ñ¨M¤F,¤Ó·PÁ¤F! |
|
|
|
|
|
|