VBA 코드를 사용하여 dat 파일을 무의미하게 검색하여 동일한 통합 문서의 별도 시트에서 열 수 있음

Question

Excel 파일에서 여러 파일을 열 수있는 코드가 있습니다. 원하는 파일을 수동으로 선택하지 않아도됩니다. open 내 코드를 반복하여 p00001, p00002, p00003 등의 모든 dat 파일을 검색합니다. 누구든지 내 코드를 편집하여이 모든 파일을 선택하는 방법을 알고 있습니까?

내 코드는 다음과 같습니다 당신은 폴더를 드릴 다운 할 필요가

Sub ImportFiles() 
    Dim sheet As Worksheet 
    Dim total As Integer 
    Dim intChoice As Integer 
    Dim strPath As String 
    Dim i As Integer 
    Dim wbNew As Workbook 
    Dim wbSource As Workbook 
    Set wbNew = Workbooks.Add 


    'allow the user to select multiple files 
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True 
    'make the file dialog visible to the user 
    intChoice = Application.FileDialog(msoFileDialogOpen).Show 

    Application.ScreenUpdating = False 
    Application.DisplayAlerts = False 

    'determine what choice the user made 
    If intChoice <> 0 Then 
     'get the file path selected by the user 
     For i = 1 To Application.FileDialog(msoFileDialogOpen).SelectedItems.Count 
      strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(i) 

      Set wbSource = Workbooks.Open(strPath) 

      For Each sheet In wbSource.Worksheets 
       total = wbNew.Worksheets.Count 
       wbSource.Worksheets(sheet.Name).Copy _ 
       after:=wbNew.Worksheets(total) 
      Next sheet 

      wbSource.Close 
     Next i 
    End If 

End Sub 

Answer 1

. 아래 샘플을 볼 수 있습니다. Statement If InStr(File, ".dat") And InStr(File, "\p0") Then 만 있으면 원하는 파일 만 표시되므로이 작업을 수행하기 만하면됩니다.

Public sheet As Worksheet 
    Public total As Integer 
    Public intChoice As Integer 
    Public strPath As String 
    Public i As Integer 
    Public wbNew As Workbook 
    Public wbSource As Workbook 


Sub main() 
Set wbNew = Workbooks.Add 
     Dim FileSystem As Object 
     Dim HostFolder As String 

     HostFolder = "D:\test" 

     Set FileSystem = CreateObject("Scripting.FileSystemObject") 
     DoFolder FileSystem.GetFolder(HostFolder) 
    End Sub 

Sub DoFolder(Folder) 
    Dim SubFolder 
    For Each SubFolder In Folder.SubFolders 
     DoFolder SubFolder 
    Next 
    Dim File 
    For Each File In Folder.Files 
     If InStr(File, ".dat") And InStr(File, "\p0") Then 

      strPath = File 
      Set wbSource = Workbooks.Open(strPath) 
      For Each sheet In wbSource.Worksheets 
       total = wbNew.Worksheets.Count 
       wbSource.Worksheets(sheet.Name).Copy _ 
       after:=wbNew.Worksheets(total) 
      Next sheet 
      wbSource.Close 
     End If 
    Next 
End Sub