Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу импортировать файл Excel / 25 сообщений из 32, страница 1 из 2
  1  все
20.06.2017, 16:50
    #39474943
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
Всем добрый день!

Не могу проимпортировать данные из файла 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, 17:00
    #39474951
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
Почему-то файл не прикрепился
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2017, 18:22
    #39475012
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
bosse-sl,
если у вас на компе стоит офис 2003, то вам нужен "Конвертер файлов Office 2007 в Office 2003", поищите в интернете, после его установки с файлами офиса 2007 можно будет работать в Access 2003, как с родными файлами офиса 2003
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2017, 19:03
    #39475034
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
guest_rusimport

Это я понимаю. У меня установлен офис 2003, установлен конвертер, установлен офис 2007 "урезаный" (ворд, эксель + поверпоинт)
Но мне нужно чтобы импорт происходил автоматом без участия пользователя.
Скажите, у Вас при открытии приложенного файла офис 2003 как реагирует?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2017, 19:16
    #39475037
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
bosse-slСкажите, у Вас при открытии приложенного файла офис 2003 как реагирует?
Множественная "ругань" (хотя конвертер установлен)... Начинается вот с этого -
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2017, 19:26
    #39475039
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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, 20:08
    #39475054
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
guest_rusimport,

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

А как можно победить
я же уже писал выше, если получится подключить библиотеку для Excel 2007, то работайте с ней (я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 11:40
    #39475337
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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, 14:07
    #39475472
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
Добрый день.
aleckoлист "потерялся"
это не самое страшное, проблема только с этими файлами, другие нормально открываются. У меня выполнение, прерывается на строке:
With WrkBk
.DisplayAlerts = False
.AskToUpdateLinks = False
.Workbooks.Open ExcelPath 'открываем файл ексель
.Visible = False '= False делаем невидимым
End With

И выдаёт ошибку "слишком много различных форматов"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 14:13
    #39475480
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
guest_rusimport(я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? ) Да нормально открывается.
guest_rusimportесли получится подключить библиотеку для Excel 2007, то работайте с ней Пробовал через References -> библиотеку Microsoft Excel 12.0 Object Library подключил, изменений нет, пробовал через ранее связывание при создании объектов Excel в Access - победить не смог.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 17:35
    #39475671
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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, 18:11
    #39475695
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
guest_rusimport,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 18:27
    #39475708
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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, 19:01
    #39475747
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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:54
    #39475762
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
Сообщение чуть выше:
bosse-sl
Dim xl As Excel.Application 'пробовал Dim xl As New Excel.Application
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 20:04
    #39475764
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
bosse-sl,
а вы всёж попробуйте мой вариант, и напишите какую версию показывает msgbox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2017, 20:05
    #39475765
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
Простите, торопился ответил не совсем то, сейчас заметил разницу
guest_rusimport
при таких подключенных библиотеках , как вы указали , вот так пробовали?
Код: vbnet
1.
Set xl =  New Excel.Application


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


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

Код: vbnet
1.
2.
3.
4.
5.
DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadsheetType:=acSpreadsheetTypeExcel9, _
        TableName:="tb", _
        FileName:="" & FileName & "", HasFieldNames:=True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.06.2017, 10:30
    #39476001
bosse-sl
bosse-sl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
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, 11:41
    #39476078
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу импортировать файл Excel
bosse-sl,
видимо, этот трюк "не прокатит"... вот, что говорят сертифицированные специалисты по этому поводу
http://microsoft.public.access.commandbarsui.narkive.com/nj5uNCWu/import-excel-2007-file-into-access-2003

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


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