Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запись в текстовый файл и чтение из текстового файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись в текстовый файл и чтение из текстового файла (Макросы/Sub)
Запись в текстовый файл и чтение из текстового файла
DimOzerov Дата: Пятница, 13.04.2018, 10:07 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро. Помогите пожалуйста разобраться.

В ячейку D7 вписан текст, который надо записать в файл C:\1\1.txt , поверх прежнего содержимого.
А после двухсекундной задержки из файла C:\1\2.txt нужно вписать текст в ячейку D10.
Вопрос - как реализовать это - пользовательской функцией ?
К сообщению приложен файл: 0597986.rar (6.4 Kb)


Сообщение отредактировал DimOzerov - Пятница, 13.04.2018, 20:01
 
Ответить
СообщениеДоброе утро. Помогите пожалуйста разобраться.

В ячейку D7 вписан текст, который надо записать в файл C:\1\1.txt , поверх прежнего содержимого.
А после двухсекундной задержки из файла C:\1\2.txt нужно вписать текст в ячейку D10.
Вопрос - как реализовать это - пользовательской функцией ?

Автор - DimOzerov
Дата добавления - 13.04.2018 в 10:07
doober Дата: Суббота, 14.04.2018, 00:39 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Доброе.[vba]
Код
Const file1 As String = "C:\1\1.txt"
Const file2 As String = "C:\1\2.txt"
Sub Order()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(file1) Then
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    Else
        Set objfile = objFSO.CreateTextFile(file1)
        Set objfile = Nothing
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    End If
    objOTS.Write vbNewLine & ActiveSheet.Range("D7")
    Application.Wait (Now + TimeValue("0:00:02"))
    Set objTextFile = objFSO.OpenTextFile(file2, 1)
    ActiveSheet.Range("D10") = objTextFile.Readall
    Set objTextFile = Nothing
    Set objOTS = Nothing
    Set objFSO = Nothing
End Sub
[/vba]


 
Ответить
СообщениеДоброе.[vba]
Код
Const file1 As String = "C:\1\1.txt"
Const file2 As String = "C:\1\2.txt"
Sub Order()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(file1) Then
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    Else
        Set objfile = objFSO.CreateTextFile(file1)
        Set objfile = Nothing
        Set objOTS = objFSO.OpenTextFile(file1, 8)
    End If
    objOTS.Write vbNewLine & ActiveSheet.Range("D7")
    Application.Wait (Now + TimeValue("0:00:02"))
    Set objTextFile = objFSO.OpenTextFile(file2, 1)
    ActiveSheet.Range("D10") = objTextFile.Readall
    Set objTextFile = Nothing
    Set objOTS = Nothing
    Set objFSO = Nothing
End Sub
[/vba]

Автор - doober
Дата добавления - 14.04.2018 в 00:39
DimOzerov Дата: Суббота, 14.04.2018, 04:38 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
doober, но это у вас макрос.
А я же спрашивал про пользовательскую функцию.
 
Ответить
Сообщениеdoober, но это у вас макрос.
А я же спрашивал про пользовательскую функцию.

Автор - DimOzerov
Дата добавления - 14.04.2018 в 04:38
doober Дата: Суббота, 14.04.2018, 11:44 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Трудно под себя изменить?
Основной код есть


 
Ответить
СообщениеТрудно под себя изменить?
Основной код есть

Автор - doober
Дата добавления - 14.04.2018 в 11:44
DimOzerov Дата: Воскресенье, 15.04.2018, 11:43 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
doober, ясно. Спасибо.
 
Ответить
Сообщениеdoober, ясно. Спасибо.

Автор - DimOzerov
Дата добавления - 15.04.2018 в 11:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись в текстовый файл и чтение из текстового файла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!