마스터 시트에 데이터 결합

매일 MIS 코디네이터로서 폴더에 포함 된 21 개의 서로 다른 파일을 통해 마스터 시트에 데이터를 수집해야합니다. 21 개의 파일을 열고 각 파일의 일별 데이터를 복사하고 전날의 작업을 붙여 넣은 마스터 시트에 붙여 넣는 것은 매우 시간이 많이 걸립니다. 하나의 장점은 21 개의 파일이 동일한 형식이므로 모든 파일을 교차 점검 할 필요가 없다는 것입니다. 어떤 도움을 주시면 감사하겠습니다. 어떻게 효율적으로이 작업을 수행 할 수 있습니까?

microsoft-excel

— sujay nimbare
소스

사무실에 .NET 개발자가 있다고 가정하지 않습니까? 제쳐두고 농담하면,이 소프트웨어는 당신을 노크하기 쉬운 부분 일 것입니다. 미안하지만 나는 진짜 도움이 될 수 없다.

— Dave

통합 스프레드 시트? office.microsoft.com/en-gb/excel-help/...

— mcalex

파일 이름이 바뀌거나 일관성이 있습니까? 공통 디렉토리 또는 어디에 위치합니까? 이 작업을 수행 한 후 원본을 가지고 무엇을하고 싶습니까? 그들을 이동하거나 삭제 또는 다른 뭔가?

— datatoo

답장을 보내 주셔서 감사합니다 ... 여기에 몇 가지 세부 정보가 있습니다 ... 1. 파일 이름은 같을 것입니다 (예 : Countsheet - 5 월 13 일 - 사용자 이름). 이러한 파일은 이러한 파일 만 포함 된 공유 공유 폴더에 저장됩니다. 원본 파일은 직원이 매일 저장하므로 드라이브 상태로 유지됩니다 (다른 옵션을 제안 할 수 있음) ...

— sujay nimbare

이렇게하면 시작할 수 있습니다. 이 파일은 Excel 파일 찾기를 위해 디렉토리를 반복하고 열어 대상 통합 문서의 범위를 복사 한 다음 마스터 통합 문서에 붙여 넣은 다음 저장하지 않고 대상 통합 문서를 닫습니다.

Sub CopyFiles()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Dim StrFile As String
StrFile = Dir("C:\folder\*.xls")
Dim wbdata As Workbook
Dim wbtarget As Workbook
Dim i As Integer
i = 1
Set wbdata = ActiveWorkbook


    Do While Len(StrFile) > 0
        Set wbtarget = Workbooks.Open(StrFile)

            'Your operation here
            wbtarget.Range("A1:C1").Copy
            wbdata.Range(Cells(i, 1), Cells(i, 3)).PasteSpecial xlPasteValues
            i = i + 1
            wbtarget.Close savechanges:=False
            Application.CutCopyMode = False

        StrFile = Dir
    Loop

Application.ScreenUpdating = True

End Sub

— Raystafarian
소스