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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD