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

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

==
А почему через связывание не хочешь?
...
Рейтинг: 0 / 0
13.11.2003, 15:52
    #32323236
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
дело в том что таких экселевских таблиц более 100 и они будут пополнятся...
единственное что они все шаблонные. Мне кажется что легче написать макрос в шаблон и таким образом заносить данные в единую базу.
...
Рейтинг: 0 / 0
13.11.2003, 15:54
    #32323240
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
Можно одной связанной таблицей бегать по разным файлам
...
Рейтинг: 0 / 0
13.11.2003, 15:55
    #32323244
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
идея хорошая только как
...
Рейтинг: 0 / 0
13.11.2003, 15:57
    #32323250
TRoUbLEs
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
> идея хорошая только как
тем же самым макросом.
...
Рейтинг: 0 / 0
13.11.2003, 16:03
    #32323263
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
каким образом из одной эксел-таб перенести в другую?
...
Рейтинг: 0 / 0
13.11.2003, 16:09
    #32323274
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
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
13.11.2003, 16:16
    #32323294
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
почему-то не работало говоришь... гыыы
CurrentDb.TableDefs явным образом сохраняй в переменную
...
Рейтинг: 0 / 0
13.11.2003, 16:20
    #32323300
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
Меня устраивает так как есть, так как я обновляю не одну, а кучу таблиц(все кроме локальных для вычислений). Если путь указан-они берутся с путя, если нет- ищут файл данных рядом с файлом проекта.
...
Рейтинг: 0 / 0
13.11.2003, 16:20
    #32323302
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel->Access
>CurrentDb.TableDefs явным образом сохраняй в переменную

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

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


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


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