Добрый день!
Есть текстовый файл с данными
Мне необходимо прежде чем вставлять данные на лист проверить его, например по первой строчке.
При запуске проверки с помощью If - программа перестает отвечать и все время выдает сообщение об ошибке проверки ключа
Где ошибка в коде? Может кто поправит
Интересно что при отключении Оператора If...Else...End If все работает и данные прекрасно загружаются
Есть текстовый файл с данными
Мне необходимо прежде чем вставлять данные на лист проверить его, например по первой строчке.
При запуске проверки с помощью If - программа перестает отвечать и все время выдает сообщение об ошибке проверки ключа
Где ошибка в коде? Может кто поправит
Интересно что при отключении Оператора If...Else...End If все работает и данные прекрасно загружаются
| Код |
|---|
Sub Открыть_урок()
Dim MyPath As String
Dim SaveDriveDir As String
SaveDriveDir = CurDir
MyPath = "C:\"
ChDrive MyPath
ChDir MyPath
On Error Resume Next
FOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt")
If VarType(FOpen) = vbBoolean Then Exit Sub
Application.ScreenUpdating = False
Range("G49").Select
Set ImpRng = ActiveCell
Open FOpen For Input As #1
Dim s As String
Input #1, s
'If s = "XX#1#2#3#4#5#6#7#8#9#10#11#12#13#14#15#16" Then
Range("G49").Value = s
r = 1
Do Until EOF(1)
Line Input #1, data
ActiveCell.Offset(r, 0) = data
r = r + 1
Loop
Close #1
Application.ScreenUpdating = True
'Else: MsgBox "Файл не прошел проверку ключа! " & vbNewLine & "Выберите другой файл", vbInformation, "Ошибка в данных"
'Exit Sub
'End If
End Sub |
Изменено: - 21.07.2013 13:06:54
