Из Access в Excel
Проблема проста, никак не могу решить. Я из Access'a создают на основе запроса таблицу в Excel. Возникли следующие трудности:
1) Я хочу, чтобы открывался Excel и в нем была моя таблица, которую можно было потом сохранить.
У меня же она открывалась на несколько секунд, а потом закрывалась (т.к. я исп. Quit), но без него что-то не работает.
2) У меня есть шапка таблицы в Excel, и мне нужно добавить или изменить данные. Т.е. я пишу Getobject("aaa.xls",Excel.Worksheet), дальше изменяю, дальше сохраняю. Потом пытаюсь открыть файл, он не открывается.
1) Я хочу, чтобы открывался Excel и в нем была моя таблица, которую можно было потом сохранить.
У меня же она открывалась на несколько секунд, а потом закрывалась (т.к. я исп. Quit), но без него что-то не работает.
2) У меня есть шапка таблицы в Excel, и мне нужно добавить или изменить данные. Т.е. я пишу Getobject("aaa.xls",Excel.Worksheet), дальше изменяю, дальше сохраняю. Потом пытаюсь открыть файл, он не открывается.
Цитата:
Originally posted by 1000@
Проблема проста, никак не могу решить. Я из Access'a создают на основе запроса таблицу в Excel. Возникли следующие трудности:
1) Я хочу, чтобы открывался Excel и в нем была моя таблица, которую можно было потом сохранить.
У меня же она открывалась на несколько секунд, а потом закрывалась (т.к. я исп. Quit), но без него что-то не работает.
2) У меня есть шапка таблицы в Excel, и мне нужно добавить или изменить данные. Т.е. я пишу Getobject("aaa.xls",Excel.Worksheet), дальше изменяю, дальше сохраняю. Потом пытаюсь открыть файл, он не открывается.
Проблема проста, никак не могу решить. Я из Access'a создают на основе запроса таблицу в Excel. Возникли следующие трудности:
1) Я хочу, чтобы открывался Excel и в нем была моя таблица, которую можно было потом сохранить.
У меня же она открывалась на несколько секунд, а потом закрывалась (т.к. я исп. Quit), но без него что-то не работает.
2) У меня есть шапка таблицы в Excel, и мне нужно добавить или изменить данные. Т.е. я пишу Getobject("aaa.xls",Excel.Worksheet), дальше изменяю, дальше сохраняю. Потом пытаюсь открыть файл, он не открывается.
Dim xlApp As Object
Dim xlWbk As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.workbooks.Open("aaa.xls")
xlApp.Visible = True
xlWbk.Visible = True
Set xlSheet = xlWbk.worksheets(1)
ячейка11 = xlSheet.Cells(1,1).Value
....
....
xlWbk.Close
видимо так :)
Цитата:
Originally posted by ziv
Dim xlApp As Object
Dim xlWbk As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.workbooks.Open("aaa.xls")
xlApp.Visible = True
xlWbk.Visible = True
Set xlSheet = xlWbk.worksheets(1)
ячейка11 = xlSheet.Cells(1,1).Value
....
....
xlWbk.Close
видимо так :)
Dim xlApp As Object
Dim xlWbk As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.workbooks.Open("aaa.xls")
xlApp.Visible = True
xlWbk.Visible = True
Set xlSheet = xlWbk.worksheets(1)
ячейка11 = xlSheet.Cells(1,1).Value
....
....
xlWbk.Close
видимо так :)
А, а я делал через Modules. И там прописывал объекты Excel