Ошибка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д