|
Sub Data_set_total()
Dim fileNo As Variant
Dim fileAdd As String
Dim i As Integer
Dim ingFile As Workbook
Dim ingsheet As Worksheet
Dim sumbook As Workbook
Dim sumsheet As Worksheet
Set sumsheet = ThisWorkbook.ActiveSheet
Set sumbook = ThisWorkbook
fileNo = Application.GetOpenFilename(filefilter:="(*.csv*),*.csv*", MultiSelect:=True)
i = 0
For i = 1 To UBound(fileNo)
fileAdd = CStr(fileNo(i))
Set ingFile = GetObject(fileAdd)
Set ingsheet = ingFile.Worksheets(1)
ActiveSheet.Cells(i, 1) = ingsheet.Cells(1, 1)
ingsheet.Range("A1", "Z5").Copy
ingsheet.Range(Cells(i, 1), Cells(i + 12, 1)).Copy
Next
End Sub
------------------------------------------------------------------------------------
위와 같은 VBA 코드를 만들었습니다.
(간략한 설명 : 매크로 실행 후 파일 N개 선택하면 N개 엑셀 파일을 열지 않고 데이터를 한 곳으로 옮기는...)
ingsheet.Range("A1", "Z5").Copy
ingsheet.Range(Cells(i, 1), Cells(i + 12, 1)).Copy
Range 설정 시 "A1" 형식으로 설정하면 작동하지만,
Cells(i, 1) 형식으로 설정하면 오류가 발생합니다.
피드백 부탁드리겠습니다.
감사합니다. |
|