ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу импортировать файл Excel
25 сообщений из 32, страница 1 из 2
  1  все
Не могу импортировать файл Excel
    #39474943
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
Всем добрый день!

Не могу проимпортировать данные из файла Excel 2007 в Access 2003, вернее даже подключиться к этому файлу - выдает постоянно ошибки, подскажите как их можно обойти, если можно.

В Excel 2003 открывает с ошибками, а в Excel 2007 без вопросов

С другими делал так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
 Dim ExlApp As Object
 Dim WrkBk As Object
 Set ExlApp = CreateObject("Excel.sheet")
 Set WrkBk = ExlApp.Parent
 With WrkBk
     .DisplayAlerts = False
     .AskToUpdateLinks = False
     .Workbooks.Open ExcelPath 'открываем файл ексель
     .Visible = False '= False делаем невидимым
 End With

     Set rs = CurrentDb.OpenRecordset("tmp_PL")
     For i = j + 1 To ExcelRow
     rs.AddNew
     rs.Update
     rs.Bookmark = rs.LastModified
     rs.Edit
     rs.Fields(0) = WrkBk.Cells(i, a(1)) 
     rs.Fields(1) = WrkBk.Cells(i, a(2)) 
     .... 
     rs.Update
     rs.Bookmark = rs.LastModified
     Next i
     Set rs = Nothing
...
Рейтинг: 0 / 0
20.06.2017, 16:50
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39474951
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
Почему-то файл не прикрепился
...
Рейтинг: 0 / 0
20.06.2017, 17:00
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475012
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-sl,
если у вас на компе стоит офис 2003, то вам нужен "Конвертер файлов Office 2007 в Office 2003", поищите в интернете, после его установки с файлами офиса 2007 можно будет работать в Access 2003, как с родными файлами офиса 2003
...
Рейтинг: 0 / 0
20.06.2017, 18:22
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475034
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport

Это я понимаю. У меня установлен офис 2003, установлен конвертер, установлен офис 2007 "урезаный" (ворд, эксель + поверпоинт)
Но мне нужно чтобы импорт происходил автоматом без участия пользователя.
Скажите, у Вас при открытии приложенного файла офис 2003 как реагирует?
...
Рейтинг: 0 / 0
20.06.2017, 19:03
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475037
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-slСкажите, у Вас при открытии приложенного файла офис 2003 как реагирует?
Множественная "ругань" (хотя конвертер установлен)... Начинается вот с этого -
...
Рейтинг: 0 / 0
20.06.2017, 19:16
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475039
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-sl,
если у вас установлен Excel 2007, попробуйте подключить его библиотеку через References и используйте ранее связывание при создании объектов Excel в Access (чем отличается раннее связывание от позднего можно почитать тут http://www.askit.ru/custom/vba_office/m4/04_02_objects_creation.htm)
...
Рейтинг: 0 / 0
20.06.2017, 19:26
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475054
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport,

А как можно победить
...
Рейтинг: 0 / 0
20.06.2017, 20:08
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475091
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-slguest_rusimport,

А как можно победить
я же уже писал выше, если получится подключить библиотеку для Excel 2007, то работайте с ней (я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? )
...
Рейтинг: 0 / 0
20.06.2017, 21:18
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475337
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
bosse-sl,
Код: vbnet
1.
2.
3.
4.
 Set ExlApp = CreateObject("Excel.sheet")
 Set WrkBk = ExlApp.Parent
...
  rs.Fields(0) = WrkBk.Cells(i, a(1))



лист "потерялся"
либо "выдернуто" некорректно, либо ошибка.
Dim wks As Object
Set wks= WrkBk .Worksheets("BODY & ENGINE NO")
...
rs.Fields(0) = wks.Cells(i, a(1))
...
Рейтинг: 0 / 0
21.06.2017, 11:40
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475472
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
Добрый день.
aleckoлист "потерялся"
это не самое страшное, проблема только с этими файлами, другие нормально открываются. У меня выполнение, прерывается на строке:
With WrkBk
.DisplayAlerts = False
.AskToUpdateLinks = False
.Workbooks.Open ExcelPath 'открываем файл ексель
.Visible = False '= False делаем невидимым
End With

И выдаёт ошибку "слишком много различных форматов"
...
Рейтинг: 0 / 0
21.06.2017, 14:07
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475480
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport(я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? ) Да нормально открывается.
guest_rusimportесли получится подключить библиотеку для Excel 2007, то работайте с ней Пробовал через References -> библиотеку Microsoft Excel 12.0 Object Library подключил, изменений нет, пробовал через ранее связывание при создании объектов Excel в Access - победить не смог.
...
Рейтинг: 0 / 0
21.06.2017, 14:13
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475671
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-slguest_rusimport(я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? ) Да нормально открывается.
guest_rusimportесли получится подключить библиотеку для Excel 2007, то работайте с ней Пробовал через References -> библиотеку Microsoft Excel 12.0 Object Library подключил, изменений нет, пробовал через ранее связывание при создании объектов Excel в Access - победить не смог.
Приложите к форуму скрин подключенных библиотек в References, и код VBA, которым пытались с вашим файлом Excel работать.
...
Рейтинг: 0 / 0
21.06.2017, 17:35
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475695
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport,
...
Рейтинг: 0 / 0
21.06.2017, 18:11
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475708
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport,

Первый вариант - самое первое сообщение
вариант два:
Код: vbnet
1.
2.
3.
4.
5.
Dim xl As Excel.Application 'пробовал Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Set xl = CreateObject("Excel.Application") 'пробовал "Excel.Application.12" и "new: excel.application"
MsgBox xl.version ' выдает 11.0
Set wb = xl.Workbooks.Open(ExcelPath)



пробовал через
Код: vbnet
1.
Set xl = GetObject(ExcelPath)
...
Рейтинг: 0 / 0
21.06.2017, 18:27
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475747
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-slguest_rusimport,

Первый вариант - самое первое сообщение
вариант два:
Код: vbnet
1.
2.
3.
4.
5.
Dim xl As Excel.Application 'пробовал Dim xl As New Excel.Application
Dim wb As Excel.Workbook
Set xl = CreateObject("Excel.Application") 'пробовал "Excel.Application.12" и "new: excel.application"
MsgBox xl.version ' выдает 11.0
Set wb = xl.Workbooks.Open(ExcelPath)



пробовал через
Код: vbnet
1.
Set xl = GetObject(ExcelPath)



при таких подключенных библиотеках , как вы указали , вот так пробовали?
Код: vbnet
1.
2.
3.
4.
5.
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Set xl =  New Excel.Application 
MsgBox xl.version
Set wb = xl.Workbooks.Open(ExcelPath)
...
Рейтинг: 0 / 0
21.06.2017, 19:01
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475762
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
Сообщение чуть выше:
bosse-sl
Dim xl As Excel.Application 'пробовал Dim xl As New Excel.Application
...
Рейтинг: 0 / 0
21.06.2017, 19:54
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475764
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-sl,
а вы всёж попробуйте мой вариант, и напишите какую версию показывает msgbox
...
Рейтинг: 0 / 0
21.06.2017, 20:04
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475765
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
Простите, торопился ответил не совсем то, сейчас заметил разницу
guest_rusimport
при таких подключенных библиотеках , как вы указали , вот так пробовали?
Код: vbnet
1.
Set xl =  New Excel.Application


Но всё равно выдает версию 11.0
...
Рейтинг: 0 / 0
21.06.2017, 20:05
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475768
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-slПростите, торопился ответил не совсем то, сейчас заметил разницу
guest_rusimportпри таких подключенных библиотеках , как вы указали , вот так пробовали?
Код: vbnet
1.
Set xl =  New Excel.Application


Но всё равно выдает версию 11.0
что-то где-то вы не то делаете, странно что этот мой кусочек кода при подключенной единственной библиотеке excel 2007 у вас выдает сообщение с 11 версией, у меня есть подозрение , что вы где то упорно продолжаете использовать CreateObject, чего делать совершенно не правильно... Или я не прав?
...
Рейтинг: 0 / 0
21.06.2017, 20:15
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39475774
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Verbovsky Innokenty
Гость
А почему через TransferSpreadsheet не хотите?

Код: vbnet
1.
2.
3.
4.
5.
DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel9, _
        TableName:="tb", _
        FileName:="" & FileName & "", HasFieldNames:=True
...
Рейтинг: 0 / 0
21.06.2017, 20:28
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39476001
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimport... есть подозрение , что вы где то упорно продолжаете использовать CreateObject, чего делать совершенно не правильно... Или я не прав?
Создал отдельную форму с одной кнопкой, вставил Ваш код,
вот весь код формы:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Compare Database

Private Sub Êíîïêà0_Click()
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Set xl = New Excel.Application
MsgBox xl.Version
'Set wb = xl.Workbooks.Open(ExcelPath)
End Sub
...
Рейтинг: 0 / 0
22.06.2017, 10:30
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39476078
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-sl,
видимо, этот трюк "не прокатит"... вот, что говорят сертифицированные специалисты по этому поводу
http://microsoft.public.access.commandbarsui.narkive.com/nj5uNCWu/import-excel-2007-file-into-access-2003

если только пересохранять файл в формате 2003 Excel и потом с ним работать
...
Рейтинг: 0 / 0
22.06.2017, 11:41
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39476095
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
bosse-sl,
ну, и это обсуждение
http://www.sql.ru/forum/1219560/access-2003-import-iz-excel-2010
почитайте
...
Рейтинг: 0 / 0
22.06.2017, 12:05
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39476198
bosse-sl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosse-sl
Гость
guest_rusimportесли только пересохранять файл в формате 2003 Excel и потом с ним работатьНе совсем хорошо - файлов приходит более двух десятков.
Буду смотреть в сторону:
guest_rusimportну, и это обсуждение
http://www.sql.ru/forum/1219560/access-2003-import-iz-excel-2010 т.е.: Разбираем xlsx в PHP без готовых библиотек
Разбирать и с XML работать
...
Рейтинг: 0 / 0
22.06.2017, 14:17
| Ответить | Цитировать | Написать  
Не могу импортировать файл Excel
    #39476213
PaulB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulB
Гость
Самое простое: сделать связанную таблицу с файлом Excel.
Копируйте файл с данными, например в C:\TEMP\
Затем делайте с ним связь.
...
Рейтинг: 0 / 0
22.06.2017, 14:42
| Ответить | Цитировать | Написать  
25 сообщений из 32, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу импортировать файл Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39475671&tid=1612311]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 1ms
others: 16ms
total:  171ms
созд. / загр.: 171ms
x
x
Закрыть


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