0
저는 VBA에 멍청한 사람입니다.이 질문을하기 전에 반나절을 내 자신의 것으로 찾으려고했습니다. 나는 100 .xls 파일의 데이터베이스를 가지고 있고 하나 개의 마스터 파일
에서 이러한 파일의 4 개 구체적인 셀을 복사하고 싶은
:
VBA - .xls 파일을 열어 하나의 마스터 .xls 파일에 3 개의 셀을 복사하십시오.
여기 내 상황입니다. 제품 ID : 통합 된 경우 (IJK2)
. 크기 1 : H71
. 크기 2 : J71
. 차원 3 : L71
각 파일 이름 (.XLS)와 같은 제품 ID
다음
이처럼 내 VBA 코드는 모습입니다 있습니다 : 그것은 일을 does'nt
Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
MyFile = Dir("C:\Users\User\Documents\TEST\")
Do While Len(MyFile) > 0
If MyFile = "zmaster.xls" Then
Exit Sub
End If
Workbooks.Open (MyFile)
Range("H71:L71").Copy
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("sheet1").Range(Cells(erow, 1), Cells(erow, 4))
MyFile = Dir
Loop
End Sub
을 .. 코드 수정을 도와 주시겠습니까?
감사합니다.
정확하게 작동하지 않는 것에 대해 좀 더 자세히 설명해주세요. 뭐하는거야? 아마도 당신이 원하는 것과 그것이 실제로하고있는 것을 화면에 찍을 것입니다. – toddmo