Sub Frequency_gtr()
Dim strFile As Variant
Dim i As Variant
Dim j As Variant
Dim A As String
Dim Newfilename As String
strFile = Application.GetOpenFilename(Title:="Data파일을 선택하세요", MultiSelect:=True) 'Data파일 선택상자 호출
If TypeName(strFile) = "Boolean" Then Exit Sub '취소 선택 시 매크로 종료
Workbooks.Add
For i = 1 To UBound(strFile) 'UBound(strFile)= 선택한 파일 개수
j = i + 1
ActiveWorkbook.Sheets(1).Range(Cells(2, j), Cells(102, j)).Vaule = Workbooks(strFile(i)).Sheets("Sheet3").Range(Cells(2, 3), Cells(102, 3)).Value
ThisWorkbook.Sheets(2).Cells(1, j) = strFile(i) & "_Frequency 16KHz"
Next
End Sub
-----
빨간부분에서 '9런타임 오류가 발생하였습니다: 아래 첨자 사용이 잘못되었습니다. 라고 오류 뜨는데 이유가 뭔지 모르겠음
4시간째 고민중인데 이유를 모르겠다
제발 불쌍한 대학원생좀 살려주세요 ㅠㅠ
VBA는 안 해봐서 모르겠는데 Cells(2, j) 값으로 리턴되는게 정수야?
아 깜빡하고 안적었는데 엑셀 VBA임
Cells(2, j)로 입력되는 Cells(2, 3)는 수식이 들어가있고 Cells(2, j)는 빈칸이야
ActiveWorkbook 때문에 그래. 좌측에서 작업중인 파일(=이것을 A라고 하면,)이 현재 ActiveWorkbook 인데, 우측의 파일(=이것을 B 라고 하면)을 상대로 작업하면 ActiveWorkbook이 그 순간 B로 바뀌어 버림. 다시 말해 저 구문은 B를 상대로 B에다 작업하라는 명령이 돼 버리니까 런타임 오류가 나는 것.