½Ð°Ý¦p¦ó¥ÎVBA¶}±ÒÀÉ®×Á`ºÞµøµ¡Åª¨úFolder©ÎFilesªº¸ô®|orÀɦW
- ©«¤l
- 46
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP,win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨{¤l¸Ì
- µù¥U®É¶¡
- 2010-5-22
- ³Ì«áµn¿ý
- 2011-10-27
|
½Ð°Ý¦p¦ó¥ÎVBA¶}±ÒÀÉ®×Á`ºÞµøµ¡Åª¨úFolder©ÎFilesªº¸ô®|orÀɦW
Dear ¦U¦ì¤j¤j¡A
½Ð°Ý¤j¤j¦³¨S¦³¿ìªkÅýuser ¦bExcel¸Ì± «ö¤UButton µM«á´N·|¬Ý¨ìÀÉ®×Á`ºÞµøµ¡(Ãþ¦ü¦sÀɵe±ªºµøµ¡)¡AµM«á«ü¥t¤@Ó¸ô®|¡C
ÅýUser ¿ï¨úÀɮק¨©ÎÀɮסAµM«á¥i¥H½Æ»s¸ÓÀÉ®× ©Î Àɮק¨ªº ¸ô®| or ÀɦW¡C
¿ï¦n«á¸ô®|orÀɦW~ ·|¦Û°Ê½Æ»s¨ì¬Y¦s®æ¤W¡C
ÁÂÁ¦U¦ì¼F®`ªº¤j¤j~!!
¥Ø«e§Ú¥uª¾¹D¥i¥H¥´¶}µøµ¡¦Ó¤w ºô¸ô¤W¬d¨ìªº¬O³o¼Ë
Fname = Application.GetOpenFilename
ÁÙ¦³À˵øÀÉ®× ¥ÎMsgBoxÅã¥Ü
Dim NextFile As String
Dim AllFiles As String
AllFiles = ""
NextFile = Dir("C:\", 0)
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend
MsgBox AllFiles
ÁÂÁ¦U¦ì¤j¤j~ |
|
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP,win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨{¤l¸Ì
- µù¥U®É¶¡
- 2010-5-22
- ³Ì«áµn¿ý
- 2011-10-27
|
¦^´_ 2# Hsieh
ÁÂÁª©¥D~
½Ð°Ý«á¥b¬q
§Ú¤£¤ÓÀ´¡A§Ú·Qª¾¹D¦pªG¬On«ü©w¶K¦^¸ô®|¨ì¬Y¤@Àx¦s®æ ¸Ó«ç»ò¼g©O?
ÁÂÁª©¥D¤j¤j!!- For i = 1 To .SelectedItems.Count
- Cells(i, 1) = .SelectedItems(i)
- MsgBox .SelectedItems(i)
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP,win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨{¤l¸Ì
- µù¥U®É¶¡
- 2010-5-22
- ³Ì«áµn¿ý
- 2011-10-27
|
¦^´_ 4# luhpro
ÁÂÁ¤j¤j~ §Ú§¹¥þ©ú¥Õ¤F!! |
|
|
|
|
|
|
- ©«¤l
- 46
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP,win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨{¤l¸Ì
- µù¥U®É¶¡
- 2010-5-22
- ³Ì«áµn¿ý
- 2011-10-27
|
¦^´_ 2# Hsieh
ÁÂÁª©¥Dªº«ü¾É!! |
|
|
|
|
|
|