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

½Ð°Ý Application.FileSearch '°õ¦æ¶¥¬q¿ù»~2455 ,½Ð°Ý³oÀ³¸Ó«ç»ò­×§ï?

½Ð°Ý Application.FileSearch '°õ¦æ¶¥¬q¿ù»~2455 ,½Ð°Ý³oÀ³¸Ó«ç»ò­×§ï?

  1. Function ¸ê°T()
  2.     DoCmd.SetWarnings False   
  3.     Dim Filename As Integer   

  4.         Set BK = Application.FileSearch         '°õ¦æ¶¥¬q¿ù»~2455 ,½Ð°Ý³o¸Ó«ç»ò§ï?
  5.             With BK                             
  6.             .LookIn = "D:\¸ê°T-­ì©l\"     
  7.             .Filename = "all*.xls"   
  8.                 If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
  9.                     For B = 1 To .FoundFiles.Count  
  10.                     DoCmd.TransferSpreadsheet acImport, 8, "00 ­ì©l¸ê®Æ", .FoundFiles(B), True
  11.                     Next
  12.                 End If
  13.             End With
  14.         Set BK = Nothing      

  15. End Function
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD