ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý«ç»ò¨ú±o¨Ï¥Î¤¤ªºÀɮ׸ô®|

½Ð°Ý«ç»ò¨ú±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¸ê®Æ§¨)

¦^´_ 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ªº¨ä¤¤¤@­Ó¥D­n­ì¦]
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 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°Ñ¦Ò~
  1. Private Sub CommandButton1_Click()
  2. PATCH = Application.GetOpenFilename("Microsoft Excel ¬¡­¶Ã¯ (*.xls), *.xls") 'Ū¨úÀÉ®×
  3. If PATCH = False Then
  4.     Exit Sub
  5. Else
  6.    Workbooks.Open Filename:=PATCH, ReadOnly:=True             '°ßŪ¥´¶}FILE
  7. End If

  8. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

ÁÂÁÂkimbal»Phugh0620¦^ÂÐ,¥D­n¬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!

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD