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

[µo°Ý] ¦Û°Ê¶}±Òexcel

[µo°Ý] ¦Û°Ê¶}±Òexcel

Hi All

¤£ª¾¹Dµ{¦¡­þÃ䦳°ÝÃD¡AµLªk¦Û°Ê¶}±Ò«ü©w¸ô®|¤Uªº©Ò¦³excel
½ÐÀ°¦£À˵ø¬Ý¬Ý
  1.     Dim strNowPath As String     
  2.    
  3.     strNowPath = Range("b1")   
  4.       
  5. Dim mFile As String
  6. mFile = Dir("strNowPath & *.CSV")
  7. Do While mFile <> ""
  8. Workbooks.Open Filename:="strNowPath" & mFile
  9. mFile = Dir()
  10. Loop
½Æ»s¥N½X

Hi All

·PÁ¦U¦ìªºÀ°¦£¡A¤pªº§ä¨ì¤èªk¤F¡A·P®¦
  1.     Dim strNowPath As String  
  2.    
  3.     strNowPath = Range("b1")  
  4.    
  5. Dim mFile As String
  6. mFile = Dir(strNowPath & "*.CSV")
  7. Do While mFile <> ""
  8. Workbooks.Open Filename:=strNowPath & mFile
  9. mFile = Dir()
  10. Loop
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD