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

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

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

¦U¦ì¤j¤j!§Ú¦³1­ÓexcelÀɮ׸̭±¦³¬ù50­Ó¤u§@ªí,¦³µL§Ö³t¤èªk±N³o50­Ó¤u§@ªíÂন50­ÓexcelÀÉ®×.
alexwin

¦^´_ 1# alexwin

°ò¥»¾Þ§@
¤u§@ªí­¶ÅÒ«ö¥kÁä
¿ï²¾°Ê©Î½Æ»s
¦p¹Ï²¾°Ê¨ì·sªº¬¡­¶Ã¯
    ¥¼©R¦W.PNG
¦Ü©ó§Ö³t´N¼g­Óvba§@³o¨Ç­«Âаʧ@
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Sub §å¶q«þ贝¤u§@ªí()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
Next
End Sub
学习

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-6-27 10:32 ½s¿è

¦^´_ 1# alexwin

§A¥ý¥Î³o­ÓÀɧa
¥i¥H¸Ñ¨M§Aªº°ÝÃD
¶}ÀÉ «ö·s¤u¨ã¦C«ö¯Ã«á
¦³¤@­Óªí³æ¤u§@ªí²M³æ¥i¥H½Æ¿ï

³o«h¬O¦Ñ°ÝÃD¤F
«Ü¤[¥H«eOFFICEFANS¦³¤H¦^¹L
¦h¦~«e¬ã¨s¤F¤@°}¤l ³o¬O¥H«e½m²ß®É­×§ïÀu¤Æ¤§«áªº¦¨«~ÀÉ
«á¨Ó´N¦¬¨ìÀÉ®×®w¤F
²{¦b¬Ý¤F¤@¤Uµ{¦¡»Pªí³æ ¤£¬O¨º»ò§¹¬ü¦]¬°ÁÙ¥i¥H¼W¥[³\¦h§ó¨Îªº¤H©Ê¤Æ¬É­±»P¥\¯à
¥i¥H¸Ñ¨M°ÝÃD´N¦n

¦Û°Ê¦w¸Ë(&¨Ï¥Î»¡©ú)¾É¥X¤u§@ªí.rar (79.51 KB)

TOP

¦^´_  alexwin

§A¥ý¥Î³o­ÓÀɧa
¥i¥H¸Ñ¨M§Aªº°ÝÃD
¶}ÀÉ «ö·s¤u¨ã¦C«ö¯Ã«á
¦³¤@­Óªí³æ¤u§@ªí²M³æ¥i¥H½Æ ...
HUNGCHILIN µoªí©ó 2010-6-27 01:16



    ³o­Ó¦n¥Î!ÁÂÁÂ!¥u­n10¬í´Nok¤F!
alexwin

TOP

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

¦b¨Ï¥Î¤W§Úªº·Pı¡AÀ³¸Ó¬O¨S¦³®t§O¡A¤£¹L«áÄò´N¹³±z©Ò»¡ªº¤£­n¥Î¤~·|²±¶¡C

TOP

¦^´_ 7# HUNGCHILIN


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

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD