Exel и VB

[Dron]

Как програмно из формы передать данные в exel

[Dzhon]

Dim MySheet As Object 'Переменная для листа
Dim Form As Object 'для книги
Set Form = CreateObject("Excel.Application")


Form.Workbooks.Open "C:\temp\XL.xls"
Form.Visible = False 'или True
Set MySheet = Form.Workbooks.Item(1).ActiveSheet

MySheet.Range("A1") = text1.text
MySheet.Range("B1") = text2.text

MySheet.PrintOut 'Отправка на печать

Form.ActiveWorkbook.Close SaveChanges:=False 'или True чтобы сохранить
'и обязательно уничтожить все объекты
Set MySheet = Nothing
Form.Quit
Set Form = Nothing

[Dron]

А если exel лист внедрён на форму как Оле, такие шутки не проходят? Нифига не получается помогите плз

[St.George]

ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!
"Мне нужно создать новый вид ячейки в MS Exel. А вид следующий: "град,мин,сек", где град - градусы, мин - минуты, сек - секунды, причем 1 град=60 мин, а 1 мин = 60 сек. Ячейки должны быть созданы таким образом, чтобы можно было производить расчеты и получать ответы в виде "град,мин,сек", причем число в ячейке может быть как положительным, так и отрицательным"
ПОМОГИТЕ!!!!!!!!!!!!!!!!!