수다닷컴

자꾸 오류가 난다네요..질문 요약 :잴 처음에 Option Explicit적고 시작 햇는데 잘못한건가요?질문 내용 :

Option Explicit 문을 사용할려는데..

프로그램 메인에 Option Explicit

Type 레코드
거래처번호 As String * 6
담당이메일 As String * 4
직위 As String * 1
단가 As String * 3
수량 As String * 3
분류코드 As String * 1
운송코드 As String * 1
이익포인트 As String * 3
거래처등급 As String * 1
배달거리 As String * 3
거래포인트 As String * 3
End Type

Dim 데이터 As 레코드, 시작줄 As Long, 끝줄 As Long, i As Long, j As Long
Dim 자료수 As Long
Dim 임시
Dim 계산결과(1000) As Long, 거래처번호(1000) As String

Sub main()

시작줄 = Val(Left(Command, InStr(Command, )))
끝줄 = Val(Mid(Command, InStr(Command, )))

Open c:\C_it\data\g05032.txt For Random As #1 Len = Len(데이터) + 2
Open c:\C_it\data\ans1.txt For Output As #2

For i = 시작줄 To 끝줄
Get #1, i, 데이터

If 데이터.분류코드 = A And Val(데이터.단가) = 30 Then
자료수 = 자료수 + 1
거래처번호(자료수) = 데이터.거래처번호
계산결과(자료수) = Val(데이터.단가) + Val(데이터.거래포인트)

End If

Next i

For i = 1 To (자료수 - 1)
For j = i + 1 To 자료수

If 계산결과(i) 계산결과(j) Or (계산결과(i) = 계산결과(j) And 거래처번호(i) 거래처번호(j)) Then

임시 = 계산결과(i)
계산결과(i) = 계산결과(j)
계산결과(j) = 임시

End If
Next j
Next i

Debug.Print 시작줄; 끝줄; 계산결과(5)
Print #2, 시작줄; 끝줄; 계산결과(5)

Close #2
Close #1

End Sub
이렇게 작성을 했는데 Option Explicit - 여기서 오류가 난다네요? 왜그런거죠?
Option Explicit 적기 전에 앞에 무엇을 더 추가해야 하는건가요?

신청하기