Страницы: 1
RSS
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Здравствуйте!
Подскажите, как вставить скопированный диапазон на Листе Exel и вставить его из буфера в шаблон текстового файла в "Блокнот" и сохранение с заполненного файла  с новым именем "Новый.txt"

Код
Sub Bloknot1()
'
Dim ReturnValue

    Sheets("Лист1").Select
    Range("E7:E20").Select
    Selection.Copy
'
ReturnValue = Shell("C:\Windows\system32\notepad.exe C:\Users\Papa\Desktop\Пустой.txt")

End Sub
Изменено: aesp - 24.03.2018 18:27:34
 
Т.е. сохранить диапазон в текстовый файл?
Код
Sub WriteTxt()
Dim txt$, a%, b%, arr(), fn$
arr = Selection.Value
fn = "C:\Users\Papa\Desktop\Пустой.txt"
Open fn For Output As #1
For a = 1 To UBound(arr, 1)
  txt = ""
  For b = 1 To UBound(arr, 2)
    txt = txt & " " & arr(a, b)
  Next
  Print #1, txt
Next
Close #1
End Sub
 
Anchoret, это то, что надо!
БЛАГОДАРЮ! :D
 
Anchoret, радость оказалась не долгой.. Вставляю текст в отдельный модуль в своём проекте - не работает. Даёт ошибку << Run-time Error '6' Overflow >> и останавливается на строке
Код
For a = 1 To UBound(arr, 1)

Вставляемый диапазон с данными (столбец) более 40000 строк. Уменьшаю количество строк с данными - отрабатывает.
К сожалению, не могу выложить файл - весит более 1,5 МБ. Как обойти ошибку?
Изменено: aesp - 25.03.2018 13:43:32
 
Объявляйте a as long
Да и если там 40000 строк - нужно бы доработать код в этой части получения диапазона. Это ведь гемор - выделять вручную именно только нужные 40000...
Изменено: Hugo - 25.03.2018 13:48:08
 
Hugo, решено! Благодарю!
 
aesp, так и писали бы, что работать придется с большими диапазонами)
 
Anchoret, извините, учту)
Страницы: 1
Наверх