Не могу импортировать файл Excel / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу импортировать файл Excel

32 сообщений из 32, показаны все 2 страниц

все

Не могу импортировать файл Excel

#39474943

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

Гость

Почему-то файл не прикрепился

...

Рейтинг:

0 / 0

20.06.2017, 17:00

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475012

guest_rusimport

Гость

bosse-sl,
если у вас на компе стоит офис 2003, то вам нужен "Конвертер файлов Office 2007 в Office 2003", поищите в интернете, после его установки с файлами офиса 2007 можно будет работать в Access 2003, как с родными файлами офиса 2003

...

Рейтинг:

0 / 0

20.06.2017, 18:22

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475034

bosse-sl

Гость

guest_rusimport

Это я понимаю. У меня установлен офис 2003, установлен конвертер, установлен офис 2007 "урезаный" (ворд, эксель + поверпоинт)
Но мне нужно чтобы импорт происходил автоматом без участия пользователя.
Скажите, у Вас при открытии приложенного файла офис 2003 как реагирует?

...

Рейтинг:

0 / 0

20.06.2017, 19:03

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475037

guest_rusimport

Гость

bosse-slСкажите, у Вас при открытии приложенного файла офис 2003 как реагирует?
Множественная "ругань" (хотя конвертер установлен)... Начинается вот с этого -

...

Рейтинг:

0 / 0

20.06.2017, 19:16

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475039

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

Гость

guest_rusimport,

А как можно победить

...

Рейтинг:

0 / 0

20.06.2017, 20:08

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475091

guest_rusimport

Гость

bosse-slguest_rusimport,

А как можно победить
я же уже писал выше, если получится подключить библиотеку для Excel 2007, то работайте с ней (я так понимаю , в Excel 2007 никаких ошибок при открытии файла не возникает ? )

...

Рейтинг:

0 / 0

20.06.2017, 21:18

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475337

alecko

Участник

Откуда: Башкирия

Сообщения: 852

Рейтинг: 0 / 0

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

Гость

Добрый день.
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

Гость

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

Гость

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

Гость

guest_rusimport,

...

Рейтинг:

0 / 0

21.06.2017, 18:11

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475708

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

Set xl = GetObject(ExcelPath)

...

Рейтинг:

0 / 0

21.06.2017, 18:27

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475747

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

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
Dim xl As Excel.Application 'пробовал Dim xl As New Excel.Application

...

Рейтинг:

0 / 0

21.06.2017, 19:54

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475764

guest_rusimport

Гость

bosse-sl,
а вы всёж попробуйте мой вариант, и напишите какую версию показывает msgbox

...

Рейтинг:

0 / 0

21.06.2017, 20:04

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475765

bosse-sl

Гость

Простите, торопился ответил не совсем то, сейчас заметил разницу
guest_rusimport
при таких подключенных библиотеках , как вы указали , вот так пробовали?

Код: vbnet

Set xl =  New Excel.Application

Но всё равно выдает версию 11.0

...

Рейтинг:

0 / 0

21.06.2017, 20:05

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475768

guest_rusimport

Гость

bosse-slПростите, торопился ответил не совсем то, сейчас заметил разницу
guest_rusimportпри таких подключенных библиотеках , как вы указали , вот так пробовали?

Код: vbnet

Set xl =  New Excel.Application

Но всё равно выдает версию 11.0
что-то где-то вы не то делаете, странно что этот мой кусочек кода при подключенной единственной библиотеке excel 2007 у вас выдает сообщение с 11 версией, у меня есть подозрение , что вы где то упорно продолжаете использовать CreateObject, чего делать совершенно не правильно... Или я не прав?

...

Рейтинг:

0 / 0

21.06.2017, 20:15

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39475774

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

Гость

guest_rusimport... есть подозрение , что вы где то упорно продолжаете использовать CreateObject, чего делать совершенно не правильно... Или я не прав?
Создал отдельную форму с одной кнопкой, вставил Ваш код,
вот весь код формы:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

Option Compare Database

Private Sub &#202;&#237;&#238;&#239;&#234;&#224;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

Гость

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

Гость

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

Гость

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

Гость

Самое простое: сделать связанную таблицу с файлом Excel.
Копируйте файл с данными, например в C:\TEMP\
Затем делайте с ним связь.

...

Рейтинг:

0 / 0

22.06.2017, 14:42

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39476226

bosse-sl

Гость

PaulBЗатем делайте с ним связь.
У меня не получается, в Access 2003 в объект-таблицы -> Связь с таблицами -> тип файлов: Microsoft Excel -> мне даже файл не виден.

...

Рейтинг:

0 / 0

22.06.2017, 14:55

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39476228

bosse-sl

Гость

Подскажите, можно ли
1. подключиться к файлу Excel
2. убрать/отключить все форматы
3. далее открыть файл?

...

Рейтинг:

0 / 0

22.06.2017, 14:58

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39476236

PaulB

Гость

если это файл xlsx офиса 2007, то офис 2003 может его не поддерживать. Тогда попробуйте так:

Public exApp As Excel.Application, wbkReport As Excel.Workbook, shtReport As Excel.Worksheet

Sub Test()
On Error GoTo Start_Application
Set exApp = GetObject(, "Excel.Application")
On Error GoTo Open_wbk
Set wbkReport = exApp.Workbooks("MyBook.xlsx")
On Error GoTo 0
Exit Sub

Start_Application:
Set exApp = CreateObject("Excel.Application")
exApp.Visible = True: exApp.UserControl = True
Resume

Open_wbk:
Set wbkReport = exApp.Workbooks.Open(VBA.Environ("TEMP") & "\" & "MyBook.xlsx", False, True)
Resume

End Sub

...

Рейтинг:

0 / 0

22.06.2017, 15:13

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39476243

bosse-sl

Гость

PaulBесли это файл xlsx офиса 2007, то офис 2003 может его не поддерживать. Тогда попробуйте так:
А можно попросить расписать что происходит в ходе выполнения кода?

...

Рейтинг:

0 / 0

22.06.2017, 15:23

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39477471

Анатолий ( Киев )

Гость

bosse-slУ меня установлен офис 2003, установлен конвертер, установлен офис 2007 "урезаный" (ворд, эксель + поверпоинт) Попробуйте так:

Код: vbnet

1.
2.
3.
4.

 Dim ExlApp As Object
 Dim WrkBk As Object
 Set WrkBk = GetObject(ExcelPath) 'XLSX файл должен открыться в своей версии Excel
 Set ExlApp = WrkBk.Parent

...

Рейтинг:

0 / 0

26.06.2017, 09:37

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39478505

OLEG_ZH

Гость

пару лет назад так же мучался, в конце концов конвертирую 2007 в 2003 на лету и все

Код: 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.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.

Public Function convertXLSX(fullNameXLSX As String) As String
Dim inXLSX As String
Dim outXLS As String

Dim tStr As String

On Error GoTo errExit


inXLSX = Trim(fullNameXLSX)
tStr = Right(inXLSX, 3)

If tStr = "XLS" Then
    convertXLSX = inXLSX
    GoTo normExit
End If

outXLS = Left(inXLSX, Len(inXLSX) - 1)

Set objXLApp = CreateObject("Excel.Application")
If objXLApp Is Nothing Then
    Err.Raise 999, , "&#238;&#248;&#232;&#225;&#234;&#224; &#241;&#238;&#231;&#228;&#224;&#237;&#232;&#255; &#238;&#225;&#250;&#229;&#234;&#242;&#224; Excel"
End If
objXLApp.DisplayAlerts = False
objXLApp.Workbooks.Open (inXLSX)

objXLApp.ActiveWorkbook.SaveAs fileName:=outXLS, FileFormat:=xlExcel8

objXLApp.ActiveWorkbook.Close SaveChanges:=False
objXLApp.DisplayAlerts = True

convertXLSX = outXLS
normExit:
    Set objXLApp = Nothing
    Exit Function

errExit:

    convertXLSX = ""

        GoTo normExit

End Function

...

Рейтинг:

0 / 0

27.06.2017, 15:07

| Ответить | Цитировать | Написать

Не могу импортировать файл Excel

#39478677

bosse-sl

Гость

Анатолий ( Киев ),

Попробовал: в первый заход открылось с помощью 2007 Excel-я, но потом опять в 2003.
Подозреваю, что всё дело в каких-то настройках в реестре.

Скажите а открывать файл с отключением всего форматирования возможно?

...

Рейтинг:

0 / 0

27.06.2017, 19:03

| Ответить | Цитировать | Написать

32 сообщений из 32, показаны все 2 страниц

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу импортировать файл Excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=45&tid=1612311]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	43ms
get topic data:	10ms
get forum data:	3ms
get page messages:	66ms
get tp. blocked users:	1ms
others:	15ms

total:	169ms