수다닷컴

학교 과제를 하고 있는데.. 교수님이 주신 첨부자료대로... 했는데 디버그 오류가..ㅠㅠ 개체를 이름은 이렇고... 제가 자료입력을 누르고 저장을 버튼대로 저장을 했다가 파일을 불러 올수 있어야 하는데..?제발 고수님들의 자비 부탁드립니다... 코딩은 이렇게 했습니다.Private Sub FileRead_Click()
Dim fileName As String
Call ReadFile(fileName)
End Sub
Private Sub ReadData(nameFile As String)
Dim ncols As Integer, i As Integer, j As Integer
Open nameFile For Input As #1
Input #1, dataNum, ncols
ReDim inData(ncols, dataNum) As Single
For i = 0 To dataNum
For j = 1 To Cols
Input #1, inData(j, i)
Next j
Next i
Close #1
End SubPrivate Sub Filesave_Click()
Dim fileName As String
Call SaveData(fileName)End Sub
Private Sub SaveData(nameFile As String)
Dim i As Integer
Open nameFile For Output As #1
Write #1, dataNum, 2
For i = 0 To dataNum
Write #1, inData(1, i), inData(2, i)
Next i
Close #1
End SubPrivate Sub inputCommand_Click()
Dim dataNo As Integer
dataNo = Val(noData)
If Not ckArray Then Call numData_Change
Select Case dataNo
Case Is 0
MsgBox 자료번호 0 오류
Case Is dataNum
MsgBox 자료번호 & Str(dataNum) & 오류
Case Else
inData(1, dataNo) = Val(valXo.Text)
inData(2, dataNo) = Val(valYo.Text)
End SelectEnd Sub

신청하기