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

[µo°Ý] ¦p¦ó¨ú±o¤w¸g¦³ªºFolderBrowserDialog­È

¦^´_ 4# z15935712
¥Î°j°é¶}±Ò¨C­ÓÀÉ®×

f = Dir(TextBox1 & "\*xls*")
Do Until f = ""
fs = TextBox1 & "\" & f
xlApp.Workbooks.Open fs
f = Dir
Loop
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD