ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Импорт из файла .xls
9 сообщений из 9, страница 1 из 1
Импорт из файла .xls
    #32684226
def-or
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
def-or
Гость
нужно импортировать или прилинковать прас лист из файла excel в Access( http://forum3.ru/price/forum_price.zip ). При линковании в первом столбце(код товара и название групп) названия групп заменяются на #число. Вставка в екселе в первую строчку букв не помогла, все равно аксесс воспринимает столбец как числовой и буквы не выводит. Попробовал сделать импорт. С виду всё хорошо, столбец получается текстовым, всё видно, но возникает новая неожиданная проблема, нарушается порядок строк, причем нарушается в случайном порядке, то есть при одном импортировании видеокарты окажутся в группе жестких дисков, а при следующем видеокарты будут на месте, но вебкамеры окажутся в графических планшетах, etc.... Может кто-нибудь помочь справиться с такой проблемой?
...
Рейтинг: 0 / 0
07.09.2004, 21:57:57
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684227
def-or
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
def-or
Гость
P.S. Я впринципе сделал это, но уж больно не через то место, у меня файл у меня из аксесса запускается екселевский макрос, который сохраняет екселевский файл в тестовом формате, а потом аксесс уже импортирует данные из текстового файла, тогда получается нормально, но не удобно, так как задаются вопросы на перезапись текстового файла, которые убрать нельзя. хочется сделать как-нибудь понормальному.
...
Рейтинг: 0 / 0
07.09.2004, 22:01:11
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684228
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
def-orВставка в екселе в первую строчку букв не помогла
Так не бывает. Вставь апострофы.
...
Рейтинг: 0 / 0
07.09.2004, 22:01:29
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684254
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
def-orнужно импортировать или прилинковать прас лист из файла excel в Access( http://forum3.ru/price/forum_price.zip ). При линковании в первом столбце(код товара и название групп) названия групп заменяются на #число. Вставка в екселе в первую строчку букв не помогла, все равно аксесс воспринимает столбец как числовой и буквы не выводит. Попробовал сделать импорт. С виду всё хорошо, столбец получается текстовым, всё видно, но возникает новая неожиданная проблема, нарушается порядок строк, причем нарушается в случайном порядке, то есть при одном импортировании видеокарты окажутся в группе жестких дисков, а при следующем видеокарты будут на месте, но вебкамеры окажутся в графических планшетах, etc.... Может кто-нибудь помочь справиться с такой проблемой?
а так пробовал ?
SRC vba]
SELECT *
FROM [Прайс-Лист$] IN 'd:\FORUM.XLS'[EXCEL 5.0;];
[/src]#число! - потому - что склееные(merge) ячейки
а порядок не нарушен!
...
Рейтинг: 0 / 0
07.09.2004, 22:31:33
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684278
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
если надо добыть группы товаров ,то:
ссылку на excel не забудь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim MySql As String
Dim myrst As ADODB.Recordset
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim ct As Long
Dim maxct As Long
MySql = "SELECT count(*) FROM [Прайс-Лист$] IN 'd:\FORUM.XLS'[EXCEL 5.0;];"
Set myrst = New ADODB.Recordset
myrst.Open MySql, CurrentProject.Connection
maxct = myrst( 0 )
myrst.Close
Set myrst = Nothing
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("d:\FORUM.XLS")
Set mysheet = MyWo.Worksheets("Прайс-Лист")
For ct =  1  To maxct
 Debug.Print mysheet.Cells(ct,  1 ).Formula; "  "; mysheet.Cells(ct,  2 ).Formula
Next ct
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
Set myOlApp = Nothing
FORUM
Рули
8742 Genius Speed Wheel 3 Formula with peddle (2960537)
11190 Genius Speed Wheel Formula 3 с виброотдачей (2960537)
7395 Logitech WingMan Formula Force GP.Руль с педалями (963221)
7396 Logitech WingMan Formula GP USB. Руль с педалями (963220)
7946 Logitech Руль с педалями "MOMO" Racing Force (feedback) (963282)
19044 THRUSTMASTER Руль NASCAR Force Fedback 2 (2960634)
7767 THRUSTMASTER Руль с педалями 360 Spider (2960606)
11434 THRUSTMASTER Руль с педалями Enzo Force Feedback (2960640)
7771 THRUSTMASTER Руль с педалями F1 Force Feedback (2960625)
Уцененные товары
Товары б/у
20040 б/у INWIN IW-A700 ATX 250W Pentium IV
20014 б/у Logitech Cordless Desktop MX (радио клав+опт.радио мышь MX700) (967300)
13275 б/у 4S648 Socket 478,SIS648, DDR, Sound, USB2.0, UDMA133 ATX
...
Рейтинг: 0 / 0
07.09.2004, 23:03:08
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684452
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
def-orP.S. Я впринципе сделал это, но уж больно не через то место, у меня файл у меня из аксесса запускается екселевский макрос, который сохраняет екселевский файл в тестовом формате, а потом аксесс уже импортирует данные из текстового файла, тогда получается нормально, но не удобно, так как задаются вопросы на перезапись текстового файла, которые убрать нельзя. хочется сделать как-нибудь понормальному.

В екселевском макросе:

Код: plaintext
1.
If Dir("C:\Doc\Temp\Book1.txt") <> "" Then Kill "C:\Doc\Temp\Book1.txt"
WorkBooks("Book1.xls").SaveAs ...

И никаких перезапросов на сохранение. Что надо укажи в параметрах сохранения.

А то что предлагает Shuhard - обрабатывать в цикле (я бы сразу в рекордсет вгонял) работает много точнее, поскольку кучу проверок можно поставить, но гораздо медленнее...
...
Рейтинг: 0 / 0
08.09.2004, 09:12:19
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684819
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
присоединяюсь - использовать в случае крайней необходимости
...
Рейтинг: 0 / 0
08.09.2004, 11:13:14
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32684840
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Shuhardприсоединяюсь - использовать в случае крайней необходимости

"По назначению врача..." - ВС или ЛП
...
Рейтинг: 0 / 0
08.09.2004, 11:19:52
| Ответить | Цитировать | Написать  
Импорт из файла .xls
    #32685198
def-or
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
def-or
Гость
Спасибо, после ночи мучений таки удалось нормально обработать. Кстати интересно, пытался этот файл открыть из VC, не получается, просто не видит содержимого. Хотя другие екселевские файлю открывает спокойно.
...
Рейтинг: 0 / 0
08.09.2004, 13:13:28
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Импорт из файла .xls
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32684226&tid=1671916]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 212ms
total:  328ms
созд. / загр.: 328ms
x
x
Закрыть


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