импорт из txt, работа с массивом данных, экспорт в txt

[Danara]

Нужно файл txt (выборочного, а не указанного заранее) , в котором указаны только числа, импортировать его в Excel - 1 число 1 ячейка (на кнопку1). После этого посчитать Сумму всех элементов (на кнопку 2), сумму всех положительных элементов (кнопка 3) и записать 2 результата в другой txt файл (кнопка 4). Спасибо!

[EducatedFool]

Это задание по учёбе?

Что конкретно не получается реализовать?

[Danara]

С первыми вроде как справилась, вот последнее не получается: Нужно конкретные ячейки сохранить в текстовый файл (кнопка 4).
Да, задание по учебе

[EducatedFool]

Sub Кнопка4()    ' пример использования
    SaveTXTfile "C:\WINDOWS\МойФайл.txt", [b4]    ' сохраняем в текстовый файл содержимое ячейки B4
    
    SaveTXTfile "C:\1.txt", "Сумма всех чисел равна: " & WorksheetFunction.Sum(ActiveSheet.UsedRange)
    SaveTXTfile "C:\2.txt", "Сумма всех положительных чисел равна: " & WorksheetFunction.SumIf(ActiveSheet.UsedRange, ">0")
End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function

[Danara]

большое спасибо!