22.01.2007, 12:19
общий
это ответ
Здравствуйте, Kas!
Код работает при условии, что активный лист и есть bb в c:\pr50.xls. Сначала обрабатываем массив ячеек, затем пишем это всё в файл с соответствующим форматированием. Удач!
Приложение:
Option ExplicitSub qwe()Dim X, str As String ‘переменные временныеDim fs, f ‘для открытия файлаConst ForReading = 1, ForWriting = 2, ForAppending = 3 ‘константы для функции открытия файлаConst TristateUseDefault = -2, TristateFalse = 0, TristateTrue = -1‘по умолчанию перебор слева направо сверху внизFor Each X In Selection str = str & " " & X.TextNext X‘создать системный объект файловой системыSet fs = CreateObject("Scripting.FileSystemObject")‘открыть файл для перезаписиSet f = fs.OpenTextFile("C:\dat\w1.prn", ForWriting, TristateUseDefault)f.Write str ‘перезаписать данныеf.Close ‘закрыть доступ программы к файлуEnd Sub