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

¦h­Óexcel sheet¤u§@ªí¦p¦ó§Ö³tÂন¦U­Ó¿W¥ßªºexcelÀÉ®×

¦^´_ 4# HUNGCHILIN
  1. Sub BrowDir()
  2. On Error GoTo error1
  3.     Dim bi As BROWSEINFO
  4.     Dim pidl&, rtn&, path$, pos%
  5.     pidl& = SHBrowseForFolder(bi)
  6.     path$ = Space$(512)
  7.     rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
  8.    ...
  9. error1: End Sub
½Æ»s¥N½X
¥H¤Wµ{¦¡ºI¦ÜHUNGCHILIN¤jªºªþÀÉ¡A
½Ð°Ý¦U¦ì«e½ú¡ADim pidl&, rtn&, path$, pos%¬O¦b«Å§iÅܼƫ¬ºA¡A&=Long¡B$=String¡A
¹³Dim pidl&=Dim pidl as Long¡AÅܼƬOpidl¡A¦ý¬°¤°»ò¤U­±µ{¦¡¦b¨Ï¥Î®É¡A¬O¥Îpidl& = SHBrowseForFolder(bi)¦Ó¤£¬Opidl = SHBrowseForFolder(bi)?
¨âºØ¼gªk¨Ï¥Î¤W·|¦³®t§O¶Ü? ÁÂÁ¡C
1

µû¤À¤H¼Æ

    • HUNGCHILIN: ¦b¨Ï¥Î¤W§Úªº·Pı¡AÀ³¸Ó¬O¨S¦³®t§O¡A¤£¹L«á ...ª÷¿ú + 5

TOP

¦^´_ 7# HUNGCHILIN


    ÁÂÁÂHUNGCHILIN¤j¡Aªº½Tpidl&»Ppidl¨â­ÓÅܼƳ£·|³Q©w¸q¦¨Long¡A¬Ý¨Ó¥u¬O²ßºD°ÝÃD¡C

TOP

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