Excel (изменение формата ячейки).

[jr13]

Привет всем, кто на форуме.
Работаю на Vb6 с Excel.
У меня возникла проблема, мне нужно программно поменять формат ячейки.

Всё это нужно для того, чтобы избежать некорректного ввода данных.
Попробуйте написать в любой ячейке(без ошибки Excel'a) текст = "=).txt"


Вот пример для создания и сохранения excel файла с данными:
Нужно подключить Excel
Проект->Информация->Microsoft Excel 11.0 Object Library

Код:

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

Private Sub Command1_Click()
Dim EXL As Object
Dim STR As String
'создаем объект
Set EXL = CreateObject("Excel.Sheet")
Set EXL = EXL.Application.ActiveWorkbook.ActiveSheet

'Изменение формата
'???

'Заносим данные в ячейки
EXL.Range("A1").Value = "Пробный"
EXL.Range("B1").Value = "Файл"
EXL.Range("C1").Value = "по"
EXL.Range("D1").Value = "Работе"
EXL.Range("E1").Value = "с Exelem"

'сохраняем Excel документ на диске
On Error Resume Next
EXL.SaveAs App.Path & "\Proba.xls"
'удаляем объект из памяти
Set EXL = Nothing
End Sub

Внимание:
Для работы с переменными нужно заменить строку:
Dim EXL As Object
на:
Dim EXL As Excel.application


Нужно сделать так, чтобы на выходе лист с ячейкой ("A1") имел "текстовый" формат.
В excel'e так много этих Cell и format констант и переменных. Я перепробовал почти всё и то, что надо не получилось.
Может быть кто-то работал с Excel и знает как поставить формат, то напишите пожалуйста.

[alibek]

.NumberFormat="@"

[Alec]

Я перепробовал почти всё и то, что надо не получилось.

Ты не попробовал самого главного: записи макроса в Excel
Вот что он дает при изменении формата выбранной ячейки на "текстовый"

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

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 30.05.2009 (Alec)
'

'
    Selection.NumberFormat = "@"
End Sub


[jr13]

EXL.Range("A1").NumberFormat = "@"

Просто не нужно торопиться, если не знаешь как делать...
Пройдёт день, два, три, и тогда может быть дойдёт...

Всем Спасибо как бы за участие, да и за помощь тоже.

[jr13]

Только как тему закрыть, я не знаю.

[Viper]

Только как тему закрыть, я не знаю.

И не надо знать, тему закрывают модераторы в случае, если она не соответствует правилам форума.

[jr13]

ок.