Ошибка 64 в VBAProject в Экселе

Узнай цену своей работы

Формулировка задачи:

Выходит ошибка 64 Input pas end of file. Кажется, что где-то здесь ошибка, но могу ошибаться. Как можно исправить? Файл с кодом в архиве, ибо просто xlsm не загружается.

Решение задачи: «Ошибка 64 в VBAProject в Экселе»

textual
Листинг программы
Private Sub StoreAuthInfo(Token As String)
    Dim path As String
    Dim fso As Object, txt As Object
    
    path = "G:\Codetoken.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile(path, True)
    txt.Write Token: txt.Close
End Sub
 
Private Function LoadAuthInfo() As String
    Dim path As String
    Dim fso As Object, txt As Object
 
    path = "G:\Codetoken.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path) = True Then
       Set txt = fso.OpenTextFile(path)
       If Not txt.AtEndOfStream Then _
          LoadAuthInfo = txt.ReadAll
       txt.Close
    End If
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы