17강  거래처 관리
1번분제 소스코딩한건데.....자꾸 입력파일처리 open서부터 노란 줄 나오더니 53번 런타임 오류라는데 뭐가 잘목된건가요??


Option Explicit

Sub main()

    ''필수변수선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 단가, 이익포인트, 거래포인트, 합계(1000), p, Temp, 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\ans1.txt" For Output As #2
  
        Print #2, 인수1, 인수2, 합계(5)
       
       
   
  
    Close #2
  
       
   
End Sub