Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Аксесса в ексель / 12 сообщений из 12, страница 1 из 1
16.11.2004, 12:09:04
    #32783909
Жанна_А
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
Аксесс 97
Есть форма,которая заполняется пользователем.Пользователь нажимая,кнопку, должен получить екселевский файл.Есть шаблон екселевского файла
При нажатии кнопки на форме, должна создаваться копия шаблона,заполняться данными и сохраняться под каким-нибудь именем(можно жестко задать)распечататься и закрыться,т.е пользователь не видит всех манипуляций с файлом, а получает распечатанный документ.
Я делала так:

Private Sub Печать_Click()
Set xlApp = CreateObject("excel.application")

Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open("C:\Шаблон\шаблон.xls")
Set xlsheet = xlWkb.Sheets("Приложение1")
xlsheet.Copy // кажется вот здесь я что-то не так делала
//------
тут заполняется xlsheet - это я сама сделаю
//------

//---тут по идее должен сохраняться и распечатываться файл -тут я незнаю как делать

End Sub

помогите пожалуйста,я начинающая
...
Рейтинг: 0 / 0
16.11.2004, 12:31:44
    #32783982
Жанна_А
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
люди ну посоветуйте хоть что-нибудь
...
Рейтинг: 0 / 0
16.11.2004, 12:38:01
    #32784006
Shurgenz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
как сохранить и распечатать, можно узнать у самого ёкселя... в ёкселе запустить запись макро, сохранить и распечатать, потом глянуть, что в макросе записалось... это и использовать из под аксесса
...
Рейтинг: 0 / 0
16.11.2004, 12:50:02
    #32784057
Раз (1)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
см. хэлп к экселевским методам Save, SaveAs, SaveCopyAs, PrintOut объекта Workbook
...
Рейтинг: 0 / 0
16.11.2004, 13:13:47
    #32784180
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
xlsheet.Copy // кажется вот здесь я что-то не так делала
сдесь ничего делать не надо
//------
тут заполняется xlsheet - это я сама сделаю
заполняешь спокойно данные
//------

//---тут по идее должен сохраняться
сохраняешь используя SaveAs (При этом шаблон останется нетронутым)
и распечатываться файл
...
Рейтинг: 0 / 0
16.11.2004, 14:38:18
    #32784484
Жанна_А
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
2 Ирча
Спасибо Ирина

Я делаю так
Option Compare Database
Option Explicit
Dim NameIn As String
Dim xlApp As Object
Dim xlWkb As Object
Dim xlsheet As Object
Dim rst As Recordset
Dim i As Integer
Dim ê As String
Dim FileName As String
------

Private Sub Печать_Click()
Set xlApp = CreateObject("excel.application")
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open("C:\шаблон\шаблон.xls")
Set xlsheet = xlWkb.Sheets("Приложение")
//-----тут заношу необходимые данные

xlsheet.SaveAs FileName = "C:\file.xls"
End Sub

запускаю, на что мне выдается сообщение "файл FALSE.xls уже существует в данном месте,заменить?"
Нажимаю нет,и вылезает окошко отладка,разрешить,отмена
Причем изменнеия коснулись именно файла шаблона

что не так?
...
Рейтинг: 0 / 0
16.11.2004, 14:59:15
    #32784570
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
xlsheet.SaveAs FileName = "C:\file.xls"


запускаю, на что мне выдается сообщение "файл FALSE.xls

Именованные параметры передают так:
xlsheet.SaveAs FileName:="C:\file.xls"

то есть пропустила двоеточие
...
Рейтинг: 0 / 0
16.11.2004, 15:03:36
    #32784582
Жанна_А
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
2 АлексейК
Спасибо большое заработало!!!!

А где можно прочитать про методы и свойства для работы с екселем?
...
Рейтинг: 0 / 0
16.11.2004, 15:07:01
    #32784597
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
1 в справке VBA эксела
открываешь эксел жмешь ALT + F11
затем F1


2 макрорекордер хорошая штука.
включаешь запись макроса
делаешь желаемое
останавливаешь смотришь полученный код
...
Рейтинг: 0 / 0
16.11.2004, 15:11:42
    #32784610
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
Добавь в конце, если нет
Set xlsheet = Nothing
Set xlWkb = Nothing
Set xlApp = Nothing
...
Рейтинг: 0 / 0
18.11.2004, 07:17:41
    #32788177
REBUS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
У меня нужно использовать переменные при сохранении:

"Dim FNRezult As String

FNRezult = "C:\file.xls"

xlsheet.SaveAs FileName:=FNRezult"

Мне выдается сообщение "файл FALSE.xls уже существует в данном месте,заменить?"

Как сделать правильно?
...
Рейтинг: 0 / 0
18.11.2004, 07:20:47
    #32788181
REBUS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
из Аксесса в ексель
Re:

У меня нужно использовать переменные при сохранении:

"Dim FNRezult As String

FNRezult = "C:\file.xls"

xlsheet.SaveAs FileName:=FNRezult"

Мне выдается сообщение "файл FALSE.xls уже существует в данном месте,заменить?"

Как сделать правильно?


----------

Нашел ошибку!
Моя ошибка была "FNRezult = "C: \\ file.xls""
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Аксесса в ексель / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]