Выгрузка данный из Excel в Access

Дата: Вторник, 02.10.2012, 11:44 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Доброго всем времи суток!
Помогите пожалуйста написать макрос для выгрузки данных из строки excel в таблицу access.
Все что я смог найти и применить к себе получается на половину. Когда я переношу данные из таблицы, то мне нужно каждый раз указывать № п/п, т.к в access счетки автоматически не добавляется!. Мне нужно добавлять каждый раз построчно.

К сообщению приложен файл: 2063236.xls (31.5 Kb)

Дата: Вторник, 02.10.2012, 12:30 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Вам именно макросом надо? Обычный копипаст не устраивает?

http://www.axforum.info/forums/showpost.php?p=131487&postcount=2

МОИ: Ник, Tip box: 41001663842605

Дата: Вторник, 02.10.2012, 12:34 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Нет к сожалению так не подходит. Нужно именно макросом.

Дата: Вторник, 02.10.2012, 12:40 | Сообщение № 4

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Так и в чём проблема? Чтобы счётчик сам новые номера присваивал? Поле счетчика есть в таблице?

Вам надо использовать оператор INSERT INTO c явным списком полей типа:

[vba]

Code

INSERT INTO Таблица2 (F1, F2, F3) VALUES (1, 2, 3)

[/vba]

Поле счётчика в этот список полей включать не надо и он сам себе спокойно будет генерироваться.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 02.10.2012, 12:44

Дата: Вторник, 02.10.2012, 13:19 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

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

Сообщение отредактировал A_3485 - Вторник, 02.10.2012, 13:26

Дата: Вторник, 02.10.2012, 13:26 | Сообщение № 6

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (A_3485)

Можно код вставить в мой файл?.

Так а что я вставлю-то? Я ж имен полей Таблицы2 не знаю...
А Вам надо примерно здесь их вставить:

[vba]

Code

For row = 2 To 2
' Составляем инструкцию INSERT.
statement = "INSERT INTO Таблица2 (вот здесь список полей!) VALUES ("
For col = 1 To 3

[/vba]

МОИ: Ник, Tip box: 41001663842605

Дата: Вторник, 02.10.2012, 13:30 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Именно так и сдела, ничего не получилось:

К сообщению приложен файл: 4653916.xls (31.5 Kb)

Сообщение отредактировал A_3485 - Вторник, 02.10.2012, 13:30

Дата: Вторник, 02.10.2012, 13:36 | Сообщение № 8

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (A_3485)

Именно так и сдела, ничего не получилось

А до моего совета получалось? А полей сколько? А типы полей какие? Посмотрите в отладчике значение сформированного statement перед выполнением INSERT.

МОИ: Ник, Tip box: 41001663842605

Pelena

Дата: Вторник, 02.10.2012, 13:37 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Может я чего-то не понимаю, но в коде задаётся вторая строка, а в таблице она пустая

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Вторник, 02.10.2012, 13:41 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Все получилось, УРА!!!, только теперь счетчик в базе данных, если я удаляю строчки, то новые идут не с "1", а уже с "7"?
Как можно обнулить счетчки для Таблицы2?

Сообщение отредактировал A_3485 - Вторник, 02.10.2012, 13:44

Pelena

Дата: Вторник, 02.10.2012, 13:44 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Quote (A_3485)

новые идут не с "1", а уже с "7"

Это свойство счетчика Access, он никогда не повторяет значения
Обнулить: удалить поле и создать по новой

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Вторник, 02.10.2012, 13:46 | Сообщение № 12

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (A_3485)

Как можно обнулить счетчки для Таблицы2?

Удалить все строчки и выполнить сжатие (сжать и восстановить) базы данных.
Или создать копированием новую пустую таблицу ("только структура"), а старую потом удалить.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 02.10.2012, 13:52

Дата: Вторник, 02.10.2012, 14:01 | Сообщение № 13

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Спасибо ВАМ за помощь, очень помогли beer