Импорт листа из экселя в отчет access средствами vba

@magarych · Регистрация: 15.11.2012

Author24 — интернет-сервис помощи студентам

Всем привет. Подскажите как написать программу, которая при нажатии на кнопку в форме access-а выводила в отчет accessa информацию(весь лист) представленную на листе файла Excel

Добавлено через 48 минут
есть метод позволяющий импортировать данные листа Excel в таблицу access: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "TableName", "C:\File.xls" , но мне требуется обычная вставка листа Excel в отчет access средствами VBA

mobile · 21.03.2013, 18:11

Сделайте запрос к екселю и на основе очет

SQL

1 2	SELECT * FROM [Лист1$] IN 'c:\File.xls'[Excel 5.0;IMEX=2;hdr=Yes;];

@magarych · 21.03.2013, 22:46 **[ТС]**

Не могли бы вы выложить файл пример с реализацией данного запроса, а то суть запроса ясна, но с отчетом как-то непонятно. Мне нужно, чтобы после нажатия кнопки на форме открывался отчет с отображением информации листа ексель.

@alvk · 22.03.2013, 05:05

создайте запрос, перейдите в режим sql, сотрите там всё, вставьте из предыдущего сообщения, поменяйте путь и имя файла, запустите, получите удовольствие

@Agapov_stas · 22.03.2013, 08:16

Сообщение от magarych

но с отчетом как-то непонятно.

Данный запрос сделайте источником данных отчета..(см. pic)

Пример во вложении (расположите файл Excel "Книга1" на диске C, после чего запустите саму БД)

@magarych · 27.03.2013, 20:32 **[ТС]**

Всем большое спасибо

@magarych · 29.03.2013, 15:25 **[ТС]**

Сообщение от Agapov_stas

Данный запрос сделайте источником данных отчета..(см. pic)

Пример во вложении (расположите файл Excel "Книга1" на диске C, после чего запустите саму БД)

Спасибо еще раз за пример, а что делать если в таблице Excel поля данных заданны в вертикальном положении. Пример
----------А---------------B
1 Входное_наряжение:---223В
2 Частота_сети:----------50Гц
3 Напряжение_выхода:---220В
и требуется перенести их значения в таблицу Access. Как это сделать?

@magarych · 29.03.2013, 15:54 **[ТС]**

Точнее ситуация выглядит следующим образом. В файле Excel ключевые поля данных смещены и начинаются по координатам:A7, B7, C7 требуется перебросить данные из Excel в таблицу Access. Excel-ий файл с данными прилагается.

@alvk · 29.03.2013, 16:00

Хотя бы вот, в том же путеводителю по форуму:
Код VBA в Access 2010 работает, в Access 2007 выдает ошибку
Экспорт из access в excel в конкретные ячейки

@magarych · 29.03.2013, 16:27 **[ТС]**

Сообщение от alvk

Хотя бы вот, в том же путеводителю по форуму:
Код VBA в Access 2010 работает, в Access 2007 выдает ошибку
Экспорт из access в excel в конкретные ячейки

Спасибо. Вот разобрался
DoCmd.RunSQL "INSERT INTO Otchet2 SELECT * FROM [Excel 12.0; DATABASE=D:\distributiv\Analog_data.xls].[Analog_data$a7:c77]"

Добавлено через 9 минут

Сообщение от magarych

Спасибо. Вот разобрался
DoCmd.RunSQL "INSERT INTO Otchet2 SELECT * FROM [Excel 12.0; DATABASE=D:\distributiv\Analog_data.xls].[Analog_data$a7:c77]"

А можно ли данную задачу выполнить при помощи DoCmd.TransferSpreadsheet?

Добавлено через 14 минут
Да все получилось
DoCmd.TransferSpreadsheet acImport, , "Otchet3", CurrentProject.Path & "\Analog_data.xls", True, "Analog_data$A7:C77"

Новые блоги и статьи
Чем отличаются HashMap и Hashtable в Java hw_wired 24.01.2025 В мире разработки на Java существует множество инструментов для работы с коллекциями данных, и среди них особое место занимают структуры данных для хранения пар ключ-значение. HashMap и Hashtable. . .	Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .	Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .
Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .	Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .	Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .

@magarych 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 13
		1
	Импорт листа из экселя в отчет access средствами vba 21.03.2013, 17:02. Показов 5500. Ответов 9 Метки нет (Все метки) Всем привет. Подскажите как написать программу, которая при нажатии на кнопку в форме access-а выводила в отчет accessa информацию(весь лист) представленную на листе файла Excel Добавлено через 48 минут есть метод позволяющий импортировать данные листа Excel в таблицу access: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "TableName", "C:\File.xls" , но мне требуется обычная вставка листа Excel в отчет access средствами VBA 0

@magarych 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 13
	21.03.2013, 22:46 [ТС]	3
	Не могли бы вы выложить файл пример с реализацией данного запроса, а то суть запроса ясна, но с отчетом как-то непонятно. Мне нужно, чтобы после нажатия кнопки на форме открывался отчет с отображением информации листа ексель. 0

@alvk 7448 / 4582 / 302 Регистрация: 12.08.2011 Сообщений: 14,303
	22.03.2013, 05:05	4
	создайте запрос, перейдите в режим sql, сотрите там всё, вставьте из предыдущего сообщения, поменяйте путь и имя файла, запустите, получите удовольствие 1

@magarych 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 13
	27.03.2013, 20:32 [ТС]	6
	Всем большое спасибо 0

@magarych 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 13
	29.03.2013, 15:25 [ТС]	7
	Сообщение от Agapov_stas Данный запрос сделайте источником данных отчета..(см. pic) Пример во вложении (расположите файл Excel "Книга1" на диске C, после чего запустите саму БД) Спасибо еще раз за пример, а что делать если в таблице Excel поля данных заданны в вертикальном положении. Пример ----------А---------------B 1 Входное_наряжение:---223В 2 Частота_сети:----------50Гц 3 Напряжение_выхода:---220В и требуется перенести их значения в таблицу Access. Как это сделать? 0

@alvk 7448 / 4582 / 302 Регистрация: 12.08.2011 Сообщений: 14,303
	29.03.2013, 16:00	9
	Хотя бы вот, в том же путеводителю по форуму: Код VBA в Access 2010 работает, в Access 2007 выдает ошибку Экспорт из access в excel в конкретные ячейки 1

@magarych 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 13
	29.03.2013, 16:27 [ТС]	10
	Сообщение от alvk Хотя бы вот, в том же путеводителю по форуму: Код VBA в Access 2010 работает, в Access 2007 выдает ошибку Экспорт из access в excel в конкретные ячейки Спасибо. Вот разобрался DoCmd.RunSQL "INSERT INTO Otchet2 SELECT * FROM [Excel 12.0; DATABASE=D:\distributiv\Analog_data.xls].[Analog_data$a7:c77]" Добавлено через 9 минут Сообщение от magarych Спасибо. Вот разобрался DoCmd.RunSQL "INSERT INTO Otchet2 SELECT * FROM [Excel 12.0; DATABASE=D:\distributiv\Analog_data.xls].[Analog_data$a7:c77]" А можно ли данную задачу выполнить при помощи DoCmd.TransferSpreadsheet? Добавлено через 14 минут Да все получилось DoCmd.TransferSpreadsheet acImport, , "Otchet3", CurrentProject.Path & "\Analog_data.xls", True, "Analog_data$A7:C77" 0