powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Excel->Access
14 сообщений из 14, страница 1 из 1
Excel->Access
    #32323196
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день.
Знает ли кто как данные из excel таблицы занести в таблицу access , не прибегая к связыванию таблицы в акцессе.
...
Рейтинг: 0 / 0
Excel->Access
    #32323208
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно обычным запросом : Select * From In 'Path book.xls'
Подробности конструкции - в справке.

Можно тупым перебором (энто, если на листе не удобоваримая каша)

==
А почему через связывание не хочешь?
...
Рейтинг: 0 / 0
Excel->Access
    #32323236
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дело в том что таких экселевских таблиц более 100 и они будут пополнятся...
единственное что они все шаблонные. Мне кажется что легче написать макрос в шаблон и таким образом заносить данные в единую базу.
...
Рейтинг: 0 / 0
Excel->Access
    #32323240
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно одной связанной таблицей бегать по разным файлам
...
Рейтинг: 0 / 0
Excel->Access
    #32323244
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
идея хорошая только как
...
Рейтинг: 0 / 0
Excel->Access
    #32323250
TRoUbLEs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
> идея хорошая только как
тем же самым макросом.
...
Рейтинг: 0 / 0
Excel->Access
    #32323263
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
каким образом из одной эксел-таб перенести в другую?
...
Рейтинг: 0 / 0
Excel->Access
    #32323274
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim TblDf1 As TableDef
For Each TblDf1 In CurrentDb.TableDefs
If (TblDf1.Name = "МояТаблица") Then
TblDf1.Connect = "blablabla"
TblDf1.RefreshLink
End If
Next TblDf1
Этот код родился в результате плясок с бубном, и наличие For Each в нем принципиально
Tabledefs("МояТаблица").Connect="blablabla"
TblDf1.RefreshLink
Почему-то не работало(для 97 Accessа)
...
Рейтинг: 0 / 0
Excel->Access
    #32323294
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
почему-то не работало говоришь... гыыы
CurrentDb.TableDefs явным образом сохраняй в переменную
...
Рейтинг: 0 / 0
Excel->Access
    #32323300
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Меня устраивает так как есть, так как я обновляю не одну, а кучу таблиц(все кроме локальных для вычислений). Если путь указан-они берутся с путя, если нет- ищут файл данных рядом с файлом проекта.
...
Рейтинг: 0 / 0
Excel->Access
    #32323302
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>CurrentDb.TableDefs явным образом сохраняй в переменную

маленькое уточнение: не CurrentDb.TableDefs, а CurrentDb

Код: plaintext
1.
2.
Set db=CurrentDb ' Set db=DbEngene( 0 )( 0 )
For Each TblDf1 In db.TableDefs 
...


Но если не знать прикола - то можно долго весилится в одиночестве :)
...
Рейтинг: 0 / 0
Excel->Access
    #32323330
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для For each ничего объявлять не надо, работает и так. Как я понял, если объявить Tabledefs, то можно без For each.
...
Рейтинг: 0 / 0
Excel->Access
    #32323341
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем.
попробую.
...
Рейтинг: 0 / 0
Excel->Access
    #32323350
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Сенин Виктор
Можно или CurrentDb сохранять, или TableDefs, или и то и другое
Хотя бы что-то одно. Иначе Set td = CurrentDb.TableDefs(i) ссылку теряет.
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Excel->Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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