если есть примеры пожалуйста.
эарание спасибо
примеры работы с MsOffice
Сообщений: 8
• Страница 1 из 1
- BuilderSoft
- Постоялец
- Сообщения: 350
- Зарегистрирован: 21.09.2002 (Сб) 10:13
примеры работы с MsOffice
BuilderSoft » 27.09.2005 (Вт) 20:52
Нет глупых,
Один узнал раньше других
אין א-אפשר
Один узнал раньше других
אין א-אפשר
- Ramzes
- Скромный человек
-
- Сообщения: 5004
- Зарегистрирован: 12.04.2003 (Сб) 11:59
- Откуда: Из гробницы :)
Ramzes » 29.09.2005 (Чт) 13:03
А зачем тебе примеры??? Есть два варианта исследования 
1) MSDN
2) Подключить библиотеки к своему проекту, и методом нучного тыка все посмотреть (второй мне лично больше нравиться) там все достаточно просто
1) MSDN
2) Подключить библиотеки к своему проекту, и методом нучного тыка все посмотреть (второй мне лично больше нравиться) там все достаточно просто
- BuilderSoft
- Постоялец
- Сообщения: 350
- Зарегистрирован: 21.09.2002 (Сб) 10:13
BuilderSoft » 09.10.2005 (Вс) 21:48
я конкретно спросил примеры
а не пояснение
а не пояснение
Нет глупых,
Один узнал раньше других
אין א-אפשר
Один узнал раньше других
אין א-אפשר
- SHURUP
- Постоялец
-
- Сообщения: 440
- Зарегистрирован: 15.09.2004 (Ср) 14:24
- Откуда: Ирпень, Украина
Re: примеры работы с MsOffice
SHURUP » 10.10.2005 (Пн) 2:23
BuilderSoft писал(а):если есть примеры пожалуйста.
эарание спасибо
BuilderSoft, есть
!Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...
- BuilderSoft
- Постоялец
- Сообщения: 350
- Зарегистрирован: 21.09.2002 (Сб) 10:13
BuilderSoft » 10.10.2005 (Пн) 20:53
DX486AM писал(а):ты скажи пример чего тебе конкретно нужен
например Excel
спасибо зарание
Нет глупых,
Один узнал раньше других
אין א-אפשר
Один узнал раньше других
אין א-אפשר
- Solaar
- Начинающий
- Сообщения: 15
- Зарегистрирован: 05.02.2005 (Сб) 19:12
Solaar » 11.10.2005 (Вт) 22:34
Такой пример подойдет?
Открытие новой книги в Excel и ее заполнение
Заполнение листа
Построение графиков
Открытие новой книги в Excel и ее заполнение
- Код: Выделить всё
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet, xlSheet1, xlSheet2 As Excel.Worksheet
Dim oRange As Excel.Range
Dim sFile As String
--работа с экселем --
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True 'работает только для Windows
oExcel.ReferenceStyle = Excel.XlReferenceStyle.xlR1C1
oBook = oExcel.Workbooks.Add()
xlSheet2 = oBook.Worksheets.Add
xlSheet2.Name = "оптимальные настройки"
xlSheet1 = oBook.Worksheets.Add
With xlSheet1
.Name = "переходный процесс"
.Application.Visible = True
.Cells(1, 1) = "критерий"
.Cells(1, 2) = "управление"
.Cells(1, 3) = "выход"
.Cells(1, 4) = "время"
End With
With xlSheet2
.Cells(1, 1) = "Номер шага"
.Cells(1, 2) = "X1"
.Cells(1, 3) = "X2"
.Cells(1, 4) = "X3"
.Cells(1, 5) = "T1"
.Cells(1, 6) = "T2"
.Cells(1, 7) = "T3"
.Cells(1, 8) = "X2/X1"
.Cells(1, 9) = "X3/X1"
.Cells(1, 10) = "T1/Tp"
.Cells(1, 11) = "T2/Tp"
.Cells(1, 12) = "T3/Tp"
.Cells(1, 13) = "q"
.Cells(1, 14) = "Ошибка,%"
End With
Заполнение листа
- Код: Выделить всё
With xlSheet2
.Cells(2, 1 + kla) = SumX(kla) 'Sumq(0, ia - 1) 'kl(ia - 1)
.Cells(2, 4 + kla) = "=ВПР(RC[-3];'переходный процесс'!R2C3:R300C4;2;ЛОЖЬ)"
End With
Построение графиков
- Код: Выделить всё
oBook.Worksheets("переходный процесс").Activate()
xlSheet1.Range("A1:C" & ia + 1).Select()
Dim xlchart As Excel.Chart
xlchart = oBook.Charts.Add
With xlchart
.SeriesCollection(1).XValues = "='переходный процесс'!R2C4:R100C4"
.HasTitle = True
.ChartTitle.Text = "график переходного процесса"
.ChartType = Excel.XlChartType.xlLineMarkers
End With
With xlSheet2
.Range("H2").Value = "=C2/B2"
.Range("I2").Value = "=D2/B2"
.Cells(2, 10) = "=E2/'переходный процесс'!D" & ia + 1
.Cells(2, 11) = "=F2/'переходный процесс'!D" & ia + 1
.Cells(2, 12) = "=G2/'переходный процесс'!D" & ia + 1
.Cells(2, 13) = "='переходный процесс'!A" & ia + 1
.Cells(2, 14) = "=100*(1-'переходный процесс'!C" & ia + 1 & ")"
.Range("A1:N1").Font.Bold = True
End With
- BuilderSoft
- Постоялец
- Сообщения: 350
- Зарегистрирован: 21.09.2002 (Сб) 10:13
BuilderSoft » 12.10.2005 (Ср) 10:17
Solaar писал(а):Такой пример подойдет?
Открытие новой книги в Excel и ее заполнение
- Код: Выделить всё
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet, xlSheet1, xlSheet2 As Excel.Worksheet
Dim oRange As Excel.Range
Dim sFile As String
--работа с экселем --
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True 'работает только для Windows
oExcel.ReferenceStyle = Excel.XlReferenceStyle.xlR1C1
oBook = oExcel.Workbooks.Add()
xlSheet2 = oBook.Worksheets.Add
xlSheet2.Name = "оптимальные настройки"
xlSheet1 = oBook.Worksheets.Add
With xlSheet1
.Name = "переходный процесс"
.Application.Visible = True
.Cells(1, 1) = "критерий"
.Cells(1, 2) = "управление"
.Cells(1, 3) = "выход"
.Cells(1, 4) = "время"
End With
With xlSheet2
.Cells(1, 1) = "Номер шага"
.Cells(1, 2) = "X1"
.Cells(1, 3) = "X2"
.Cells(1, 4) = "X3"
.Cells(1, 5) = "T1"
.Cells(1, 6) = "T2"
.Cells(1, 7) = "T3"
.Cells(1, 8) = "X2/X1"
.Cells(1, 9) = "X3/X1"
.Cells(1, 10) = "T1/Tp"
.Cells(1, 11) = "T2/Tp"
.Cells(1, 12) = "T3/Tp"
.Cells(1, 13) = "q"
.Cells(1, 14) = "Ошибка,%"
End With
Заполнение листа
- Код: Выделить всё
With xlSheet2
.Cells(2, 1 + kla) = SumX(kla) 'Sumq(0, ia - 1) 'kl(ia - 1)
.Cells(2, 4 + kla) = "=ВПР(RC[-3];'переходный процесс'!R2C3:R300C4;2;ЛОЖЬ)"
End With
Построение графиков
- Код: Выделить всё
oBook.Worksheets("переходный процесс").Activate()
xlSheet1.Range("A1:C" & ia + 1).Select()
Dim xlchart As Excel.Chart
xlchart = oBook.Charts.Add
With xlchart
.SeriesCollection(1).XValues = "='переходный процесс'!R2C4:R100C4"
.HasTitle = True
.ChartTitle.Text = "график переходного процесса"
.ChartType = Excel.XlChartType.xlLineMarkers
End With
With xlSheet2
.Range("H2").Value = "=C2/B2"
.Range("I2").Value = "=D2/B2"
.Cells(2, 10) = "=E2/'переходный процесс'!D" & ia + 1
.Cells(2, 11) = "=F2/'переходный процесс'!D" & ia + 1
.Cells(2, 12) = "=G2/'переходный процесс'!D" & ia + 1
.Cells(2, 13) = "='переходный процесс'!A" & ia + 1
.Cells(2, 14) = "=100*(1-'переходный процесс'!C" & ia + 1 & ")"
.Range("A1:N1").Font.Bold = True
End With
спасибо
Нет глупых,
Один узнал раньше других
אין א-אפשר
Один узнал раньше других
אין א-אפשר
Сообщений: 8
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 54