|
|
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
Здравствуйте. Подскажите пожалуйста. Есть форма, на ней 4 текстбокса, в которые выводятся значения определенных вычислений. Как сделать так, чтобы эти же значения вывелись и в фал экселевский. Т.е. например, есть следующий код: Private Sub Command1_Click() a = 5 Text1.Text = a + 5 Text2.Text = a / 1 Text3.Text = a * 3 Text4.Text = a - 5 End Sub Хочется увидеть в экселе: "А1"=10, "В1"=5, "С1"=15, "D1"=0 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 07:43 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
пока вопрос снят, нашел ответ: 'открываем документ Dim oe1 As Excel.Application Set oe1 = New Excel.Application oe1.Visible = True oe1.Workbooks.Open ("c:\1.xls") 'пишем oe1.Cells(i, 1) = "qqq" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 08:14 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
а как этот файл закрыть, а то после выполнения когда я запускаю экселевский файл, то мне пишет система, что файл уже открыт. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 08:22 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
oe1.Quit Set oe1 = Nothing ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 09:25 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
спасибо за помощь! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 11:06 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
MotoCV oe1.Workbooks.Open ("c:\1.xls") Господа, еще один вопросик. Данный экселевский файл всегда будет вместе с exe`шником в котором выполняются расчеты (в смысле, в той же директории). Как мне указать путь неявно, если я пишу просто: "oe1.Workbooks.Open ("1.xls")" не работает. Как можно обойти данную ситуацию??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 12:33 |
|
||
|
экспорт результатов в эксель?
|
|||
|---|---|---|---|
|
#18+
Может быть можно как-то определить место положение файла ехе и этот путь подставлять? Только как это сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2006, 12:41 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2164770]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
190ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 251ms |
| total: | 546ms |
| 0 / 0 |
