뭐가 틀린지 모르겠어요...ㅠ.ㅠ  폴더만들때 뭔가를 잘못해서 이러는건가요?
자꾸 컴파일 오류. 변수가 정의 되지않았습니다. 이렇게 창이 뜨네요.


Option Explicit

Sub main()
''필수 변수 선언
 Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심 변수 선언
 Dim 단가, 이익포인트, 거래포인트, 합계(1000), temp, p, num As Variant
 
 
''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력 파일 처리
Open "c:\c_it\data\abc0001.txt" For Input As #1
    For k = 1 To 인수2
        Line Input #1, 버퍼
        If k >= 인수1 Then
       
           ''변수 저장
            단가 = Val(Mid(버퍼, 12, 3))
            이익포인트 = Val(Mid(버퍼, 20, 3))
            거래포인트 = Val(Mid(버퍼, 27, 3))
        
           If 단가 >= 50 Then
           num = num + 1
           합계(num) = 이익포인트 + 거래포인트
           End If
        End If
    Next k
        ''정렬(내림차순)
        For k = 1 To num
            For p = k To num
                If 합계(k) < 합계(p) Then
                   
                    temp = 합계(k)
                    합계(k) = 합계(p)
                    합계(p) = temp
                   
               
                End If
               
            Next p
        Next k
Close #1

''출력 파일처리
Open "c:\c_it\data\abc0001.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
   
Close #2

End Sub