Архив форумов ЦИТФорума

[Уэйман]

Sub Create_File()
Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
'Запись линии
txtfile.Write <b><i>("This is a test. ")</i></b>
'Запись линии с символом newline
txtfile.WriteLine("Testing 1, 2, 3.")
'Запись трех символов newline в файл
txtfile.WriteBlankLines(3)
txtfile.Close
End Sub

Люди, подскажите плиз, как вместо вот этого "This is a test. " можно было бы вставить данные из ячейки допустим с А1 по А10???

[wildwind]

[Уэйман]

Спасибо, немного не так, но смыс мне понятен...
У меня сейчас вот так все работает.
Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 07.08.2004 (fgowork)
'
' Ñî÷åòàíèå êëàâèø: Ctrl+a
'
Range("E10:G12").Select
Selection.Copy
Sheets("rabota").Select
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\fgowork\Ìîè äîêóìåíòû\save.txt", FileFormat:= _
xlText, CreateBackup:=False
Sheets("save").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
End Sub

[wildwind]

Ну можно и так, если создание/удаление лишних листов не напрягает.

[Уэйман]

еще вопросик..
а как теперь из txt все это перекинуть в Excel?
спасибо.

[wildwind]

Не понял... Из Excel в txt чтобы потом обратно в Excel? Издеваешься?

[Гость]

это преподавательно надо мной издевается...

[wildwind]

А ты над нами, да? Хелп почитай хотя бы.