VPF::Как программно экспортировать в документ блокнота

Izuver

Дата 18.8.2006, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2

Как вторую и более строк записать?
Что значит:
"между ячейками можешь вставлять знаки табуляции имхо значение 9 , а перевод на др. строку 13 (хекс)"
Я думал экспорт - весь лист берется в файл .txt

Добавлено @ 14:10
Например:

descript.ion
Thumbs.db
ZbThumbnail.info

Romikgy

Дата 18.8.2006, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

на экспортирует весь активный лист

Код


Public Function ReadFile(FileName _
       As String) As String
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Input As #FileNumber
  ReadFile = Input(LOF(FileNumber), FileNumber)
  Close #FileNumber
End Function
Public Sub WriteFile(FileName As _
       String, Contents As String)
  Dim FileNumber As Integer
  FileNumber = FreeFile
  Open FileName For Output As #FileNumber
  Print #FileNumber, Contents;
  Close #FileNumber
End Sub
Sub bfg()
Dim strx As String, s1 As String


 'WriteFile "c:\vba.out", Cells(1, 1)
 ix = Worksheets(1).UsedRange.Rows.Count
 iy = Worksheets(1).UsedRange.Columns.Count
 strx = ""
 For j = 1 To ix
 
 For i = 1 To iy
 s1 = Cells(j, i)
 If s1 <> "" Then
 strx = strx + (s1) + Chr(9)
 Else: strx = strx + Chr(9)
 End If
 Next i
 strx = strx + Chr(13) + Chr(10)
 
 
 Next j
 WriteFile "c:\vba.out", strx
 
End Sub

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »