Экспрт данных из Excel

[Zeke]

Наверно такая тема уже была, поэтому заранее прошу прощения(я в поиске не нашел).
Я никогда не программировал на бэйсике ничего, кроме макросов, а сейчас вот встала такая задача макрос написать. Нужно просто из Excel данные записать в тестовый файл как строки с разделителями.

Пожалуйста, подскажите как это реализовать(хотя бы как создать тестовый файл из экселя, в него записать данные, а потом его сохранить)

[Dzhon]

Ну примерно так:

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

Sub Макрос1()
'
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\evgeniy\ТвойФайл.txt", FileFormat:=xlText, _
        CreateBackup:=False
    Application.CommandBars("Stop Recording").Visible = False
End Sub



[Zeke]

Спасибо за ответ, но то, что ты написал - это просто сохранит имеющиеся данные в текстовый файл.

А как создать этот текстовый файл из экселя и в него уже записывать какие-то данные?

[alibek]

Open "C:\file" For Output As #1
Print #1, "test"
Close #1

[Zeke]

Open "C:\file" For Output As #1
Print #1, "test"
Close #1

Спасибо большое за совет

[Zeke]

еще вопрос возник. Я пишу функцию:

Format(ActiveSheet.Cells(i, 5).Value, "###0.00"),

соответственно она должна вернуть число и разделителем дробной части должна быть точка, но эксель записывает в текстовый файл число с запятой, а не с точкой

может кто-нибудь знает, как записать с точкой?

[Dzhon]

Посмотри какий символ разделителя указан в системных параметрах.
Панель управления/Язык и стандарты

[Zeke]

Посмотри какий символ разделителя указан в системных параметрах.
Панель управления/Язык и стандарты

Точняк! Спасибо, но я уже по-другому сделал

У меня еще один вопрос появился. Я создал файл .xla(там у меня процедурка одна находится) и засунул его в надстройки(меню Сервис->Надстройки). Но что дальше делать я не пойму никак. Эта процедура ниоткуда не видна и я не могу ею пользоваться Как сделать так, чтобы можно было ее применять?

[GSerg]

В модуль, в модуль её...