powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Аксесса в ексель
12 сообщений из 12, страница 1 из 1
из Аксесса в ексель
    #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
из Аксесса в ексель
    #32783982
Жанна_А
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
люди ну посоветуйте хоть что-нибудь
...
Рейтинг: 0 / 0
из Аксесса в ексель
    #32784006
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
как сохранить и распечатать, можно узнать у самого ёкселя... в ёкселе запустить запись макро, сохранить и распечатать, потом глянуть, что в макросе записалось... это и использовать из под аксесса
...
Рейтинг: 0 / 0
из Аксесса в ексель
    #32784057
Раз (1)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
см. хэлп к экселевским методам Save, SaveAs, SaveCopyAs, PrintOut объекта Workbook
...
Рейтинг: 0 / 0
из Аксесса в ексель
    #32784180
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
xlsheet.Copy // кажется вот здесь я что-то не так делала
сдесь ничего делать не надо
//------
тут заполняется xlsheet - это я сама сделаю
заполняешь спокойно данные
//------

//---тут по идее должен сохраняться
сохраняешь используя SaveAs (При этом шаблон останется нетронутым)
и распечатываться файл
...
Рейтинг: 0 / 0
из Аксесса в ексель
    #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
из Аксесса в ексель
    #32784570
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
xlsheet.SaveAs FileName = "C:\file.xls"


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

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

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

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


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

"Dim FNRezult As String

FNRezult = "C:\file.xls"

xlsheet.SaveAs FileName:=FNRezult"

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

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

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

"Dim FNRezult As String

FNRezult = "C:\file.xls"

xlsheet.SaveAs FileName:=FNRezult"

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

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


----------

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


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