½Ð°Ý¦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
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 13
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-10-25
|
¦^´_ 3# webbliu
¦b¤W±ªºµ{¦¡¸Ì´N¦³¶K¨ìÀx¦s®æ¸Ìªº¥\¯àÅo.
Cells(i, 1) = .SelectedItems(i)
´N¬O±N©Ò¿ïªºÀɦW¨Ì§Ç¶K¨ì A1 A2 A3 ... ªºÀx¦s®æ¤º,
Cells(a, b)
a ¬°¦C¸¹ 1,2,3,4...
b ¬°Ä渹 A,B,C,D...
©Ò¥H Cells(i, 1) ´Nªí¥Ü A1 Àx¦s®æ. |
|
|
|
|
|
|
- ©«¤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ªº«ü¾É!! |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-5-12
- ³Ì«áµn¿ý
- 2014-5-29
|
¤j®v:
¦pªG§Ún¶}±Òªº¸ô®|¬O: D\¤å¥óÀÉ\ªþÄÝÀÉ®×
½Ð°Ýµ{¦¡n«ç»òקï? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Shell "explorer D:\¤å¥óÀÉ\ªþÄÝÀÉ®×" |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-5-12
- ³Ì«áµn¿ý
- 2014-5-29
|
OK~~·PÁÂ~~ |
|
|
|
|
|
|