|
|
|
open file.exel
|
|||
|---|---|---|---|
|
#18+
Как открыть файл типа exel в EXEL из аппликации ACCESS кот в той же папке ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2002, 12:10 |
|
||
|
open file.exel
|
|||
|---|---|---|---|
|
#18+
http://msa.km.ru/msa/access/article.asp?id=363 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.04.2002, 13:53 |
|
||
|
open file.exel
|
|||
|---|---|---|---|
|
#18+
Мне надо было сделать отчет в ексел: Dim xlApp As New Excel.Application 'откроем шаблон xlApp.Workbooks.Open "D:\Сводка\SVODKA.XLS" xlApp.Visible = True 'вывод листа на экран 'сводка по производству за сутки xlApp.Worksheets(1).Select СводкаАнгл xlApp.Worksheets(1) ' в этой функции я заполняю листик данными из рекордов 'сохранение копии книги в папке C:\Сводка\Дискета xlApp.Workbooks("SVODKA").SaveCopyAs "D:\Сводка\Дискета\SVODKA-" & Day(КакаяДата()) & "-" & Month(КакаяДата())& ".xls" xlApp.Workbooks("SVODKA").Saved = True ' это чтоб не переспрашивала при закрытии xlApp.Quit Set xlApp = Nothing 'просто подстраховался ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.04.2002, 06:12 |
|
||
|
open file.exel
|
|||
|---|---|---|---|
|
#18+
Перебрасывая данные в Excel, в финале прописываю xlApp.Quit set xlApp = nothing. На всех машинах работает нормально, а у заказчика Excel остается висеть в процессах и пока его по трем клавишам не истребишь висит все В чем может быть причина? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2002, 12:59 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32027536&tid=1683283]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
65ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 344ms |
| total: | 487ms |
| 0 / 0 |
