Developing.ru

Подскажите, можно ли и как вывести произвольную информацию + информацию из ячеек книги Excel в текстовый файл?

В VB6 это выглядит следующим образом:

dim iF as long

iF = FreeFile()
Open "c:\text.txt" For Output As iF
Print #iF, "тест"
Close #iF

а как это же сделать из Excel?

На самом деле всё точно также :

Код: Выделить всё

Open "C:\Test.txt" For Output As #1

For Each iCell In Worksheets(1).UsedRange
    If iCell <> "" Then
       Print #1, iCell
    End If
Next

Close #1

Комментарий :
И вот только не надо мне говорить, что номер файла(дескриптор) может быть уже занят, так как ничто в моём коде не предполагает, что файл с этим номером уже открыт.

Примечание :
- Не забывайте про существование инструкции Write #
- Dim iF As Integer

Спасибо за совет, помогло

Developing.ru

Excel -> текстовый файд

Excel -> текстовый файд