Импорт из экселя, обработка данных, экспорт в эксель с открытием файловых диалогов

@Nika5 · Регистрация: 22.02.2012

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

В моей таблице есть столбец "Наименование, характеристики". В этом столбце указан тип оборудование и его описание, например: "Монитор DELL со звуковой панелью". Я хочу создать Запрос для вывода всех наименований из этого столбца, содержащих слово DELL. Я создала Макрос с Макрокомандой НайтиЗапись, Образец поиска DELL, совпадение С любой частью поля. Как мне теперь правильно создать Запрос в MS Access 2003?

@Nika5 · 28.02.2012, 13:55 **[ТС]**

Как сделать переменную TableName глобальной?

Есть две кнопки: Импорт и Обработка. В обработчике Импорта данные из экселя сохраняюся с использованием переменной TableName (создаётся таблица с именем по умолчанию NewTable с импортированными из экселя данными). При обработке данных с помощью кнопки Обработка Access ругается если использовать переменную TableName и нормально работает если в SQL-запросе использовать только имя таблицы NewTable. Это неудобно, т.к. есть вероятность, что при импорте таблице будет задано другое имя (не NewTable).

Добавлено через 6 минут
Да, и можно ли всё-таки сделать чтобы при выполнении

Visual Basic

1	ParamNew = InputBox("Введите название столбца: Наименование \| Количество\| Цена \| Стоимость", "Параметр", " ")

(или чего-то подобного) вместо пустого поля для заполнения вручную появлялся список, состоящий из заголовков импортированной таблицы NewTable?

Добавлено через 8 минут
Можно ли сделать так, чтобы при нажатии Кнопки появлялся список имён таблиц для обработки (чтобы имя выбранной таблицы записать в переменную TableName)? Может, тогда и не надо делать TableName глобальной? Просто использовать это имя переменной для удобства, а по сути это будут разные переменные в разных обработчиках.

@Ameli · 28.02.2012, 17:09

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

Можно ли сделать так, чтобы при нажатии Кнопки появлялся список имён таблиц

Visual Basic

1	ПолеСоСписком0.RowSource = "SELECT Name FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Flags = 0"

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

список, состоящий из заголовков импортированной таблицы NewTable?

Уже ответила, и даже пример приложила, в чем проблема?

@Nika5 · 28.02.2012, 17:49 **[ТС]**

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

@Ameli · 28.02.2012, 17:55

"Всплывающим" может быть MsgBox либо InputBox, для более сложных запросов, например, выбора значения со списка, надо создавать форму и включать в нее все, что нужно. Форму можно сделать похожей на форму-запрос с помощью различных свойств. Для 2007 аксесса, например, задайте Всплывающее окно = Да, также можно убрать кнопки перехода, разеделительные линии, области перехода, кнопку закрытия, задать подпись и т.д.
Запустить такую форму можно командой

Visual Basic

1	DoCmd.OpenForm "Название формы"

Пример в приложении

@alvk · 29.02.2012, 02:18

Не по теме:

я сегодня по ходу пришёл на форум для того, чтобы Амели спасибки понаставить

@Ameli · 29.02.2012, 08:16

Не по теме:

ну а че, дело нужное!))

@Nika5 · 01.03.2012, 12:26 **[ТС]**

Как записать выбранное в ПолеСоСписком значение в переменную TableName и чтобы эта переменная была видна в обработчике Кнопка2?

Visual Basic

Option Compare Database
 
Private Sub Form_Load()
ПолеСоСписком0.RowSource = "SELECT Name FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Flags = 0"
 
TableName = ПолеСоСписком0.RowSource ‘запись в переменную TableName  выбранного в ПолеСоСписком0.RowSource значения  
 
End Sub

Visual Basic

Private Sub Кнопка2_Click()
 
 
ParamNew = InputBox("Введите название столбца: Наименование | Количество | Цена | Стоимость", "Параметр", "  ")
 
 
Param = InputBox("Введите параметр", "Параметр", "  ")
 
 
DoCmd.RunSQL "SELECT  * INTO Temp FROM  " & TableName & "  WHERE " & ParamNew & " Like '*" & Param & "*'"
‘ ругается на FROM, похоже не видит переменную TableName
 
End Sub

@Ameli · 01.03.2012, 12:47

Запускается форма для выбор таблицы, обработка загрузки:

Visual Basic

1
2
3

Private Sub Form_Load()
ПолеСоСписком0.RowSource = "SELECT Name FROM MSysObjects WHERE MSysObjects.Type = 1 AND MSysObjects.Flags = 0"
End Sub

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

Visual Basic

Private Sub КнопкаОК_Click()
'Если не выбрано название таблицы выдать сообщение
If IsNull(ПолеСоСписком0) Then 
MsgBox "Не выбрано название таблицы!"
'В противном случае записать выбранное значение на главную форму, с кот. запускаем импорт/экспорт
'Предварительно надо создать на ней поле, например, "TableName" (скрытое)
Else: Forms![Название формы]![TableName] = Me![ПолеСоСписком0]
'Дальше надо запустить еще одну форму/запрос с выбором поля выбранной таблицы из списка
DoCmd.OpenForm "Название формы-запроса2"
DoCmd.Close acform,"Назание формы-запроса"
End If
End Sub

В форме-запросе2 будет код, аналогичный этому, на обработку кнопки ОК, после выбора поля, записываем его также в заранее созданное поле на главной форме FieldName, т.о. на главной форме будут сохранены и название таблицы, и название поля, а дальше используй их, где нужно.
Попробуй, если что, выкладывай, что получилось

@Nika5 · 01.03.2012, 15:23 **[ТС]**

Что-то у меня не работает: не может найти ни одну форму, и я не знаю как создать скрытое поле

@Ameli · 01.03.2012, 16:48

1) С импортом все нормально - данные из файла эксель импортируются в таблицу с введенным именем. Кстати, если обрабатывать затем надо эту же таблицу, то нет смысла делать отдельную кнопку Обработка и выбирать таблицу из списка. Пока сделала раздельно, двумя кнопками.
2) Кнопка Обработка:

Visual Basic

'Очищаем поле с названием таблицы
Me![TableName] = Null
'Открываем форму-запрос таблицы
DoCmd.OpenForm "Выбор названия таблицы"

3) Кнопка ОК на форме "Выбор названия таблицы":

Visual Basic

'Если не выбрано название таблицы выдать сообщение
If IsNull(ПолеСоСписком0) Then
MsgBox "Не выбрано название таблицы!"
'В противном случае записать выбранное значение на главную форму
Else: Forms![Главная форма]![TableName] = Me![ПолеСоСписком0]
'Ошибка была потому что на главной форме это должно быть просто поле
'Запускаем вторую форму-запрос
DoCmd.OpenForm "Выбор названия поля"
DoCmd.Close acForm, "Выбор названия таблицы"
End If

4) На загрузку формы "Выбор названия поля":

Visual Basic

1
2
3

Private Sub Form_Load()
ПолеСоСписком5.RowSource = Forms![Главная форма]![TableName]
End Sub

Для этого поля со списком5 Тип источника строк - Список полей!
Т.о. получаем в списке поля выбранной таблицы
5) Кнопка ОК формы Выбор названия поля

Visual Basic

'Если не выбрано название поля выдать сообщение
If IsNull(ПолеСоСписком5) Then
MsgBox "Не выбрано название поля!"
Else
'Запрос параметра
Param = InputBox("Введите параметр", "Параметр", "dell")
'Создаем таблицу Temp и добавляем в нее записи выбранной таблицы с условием отбора: выбранное поле содержит введенный параметр
DoCmd.RunSQL "SELECT  * INTO Temp FROM  " & Forms![Главная форма]!TableName & "  WHERE " & Me![ПолеСоСписком5] & " Like '*" & Param & "*'"
 
'Файловый диалог для выбора пути и имени файла для сохранения таблицы Temp
Dim FName2 As String
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Укажите путь и имя файла для сохранения"
.AllowMultiSelect = False
.InitialFileName = "Результат" 'Название файла по умолчанию
result = .Show
FName2 = .SelectedItems(1)
End With
 
'Экспортируем таблицу Temp в эксель с выбранным названием и заданным путем сохранения
DoCmd.TransferSpreadsheet acExport, , "Temp", FName2 & ".xls", True
 
'Удалим временную таблицу
DoCmd.DeleteObject acTable, "Temp"
'Закроем текущую форму
DoCmd.Close acForm, "Выбор названия поля"
End If

Чтобы скрыть поле, в свойствах Вывод на экран = Нет

@alvk · 02.03.2012, 03:38

Ameli, По-моему черезчур жирно уже, за это деньги брать надо! ТС вообще палец о палец не ударила и не прочла даже справки по тем функциям, что ей предоставили. Гольная халява.

@Ameli · 02.03.2012, 08:47

Не по теме:

alvk, я согласна, я слишком добрая

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	29.02.2012, 02:18	25
	Не по теме: я сегодня по ходу пришёл на форум для того, чтобы Амели спасибки понаставить 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	02.03.2012, 03:38	31
	Ameli, По-моему черезчур жирно уже, за это деньги брать надо! ТС вообще палец о палец не ударила и не прочла даже справки по тем функциям, что ей предоставили. Гольная халява. 0

Импорт из экселя, обработка данных, экспорт в эксель с открытием файловых диалогов

Решение

Решение

@Nika5 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 13
		1
	Импорт из экселя, обработка данных, экспорт в эксель с открытием файловых диалогов 22.02.2012, 13:21. Показов 10523. Ответов 31 Метки нет (Все метки) В моей таблице есть столбец "Наименование, характеристики". В этом столбце указан тип оборудование и его описание, например: "Монитор DELL со звуковой панелью". Я хочу создать Запрос для вывода всех наименований из этого столбца, содержащих слово DELL. Я создала Макрос с Макрокомандой НайтиЗапись, Образец поиска DELL, совпадение С любой частью поля. Как мне теперь правильно создать Запрос в MS Access 2003? 0

@Nika5 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 13
	28.02.2012, 17:49 [ТС]	23
	Пример очень хороший. Но я немного другое имела ввиду. В Вашем примере список располагается на форме, а можно ли сделать, чтобы он был "всплывающим"? Так же как и когда "всплывает" диалог с пустым полем для введения параметра, но только вместо пустого поля чтобы был тот список. 0

@Ameli
	29.02.2012, 08:16 #26
	Не по теме: ну а че, дело нужное!)) 1

@Ameli
	02.03.2012, 08:47 Импорт из экселя, обработка данных, экспорт в эксель с открытием файловых диалогов #32
	Не по теме: alvk, я согласна, я слишком добрая 3