перебор

@Авдей · Регистрация: 12.06.2014

Author24 — интернет-сервис помощи студентам

Всем привет!
Подскажите пожалуйста, есть ли возможность сделать в Accesse перебор неизвестного кол-ва dbf файлов в папке с функцией ВывестиВФормате .xls ? В VBA это получается сделать то легко, но проблема вся в том что на компе жены на работе по какой то причине при выполении макроса открываемые файлы блокируются с ошибкой "run time error 9 Нет доступа". Другие макросы отрабатывают нормально.Просто поменять расширение не вариант, потом ВПР не получается сделать..
Вручную пересохранять трудоемко очень, больше 300-400 файлов иногда бывает.А я Access и не знаю

только в VBA и то учусь еще

код макроса который отказывается выполняться на одном компе и прекрасно выполняется на других (на её компе стоят сразу и 2003 и 2007 офис)

Visual Basic

Public Sub dbf_xls()
    Dim wb As Excel.Workbook
    
    strFolder = ThisWorkbook.Path & "\"
    
    strfile = Dir(strFolder & "\*.dbf*")
    
Do While strfile <> ""
         
    Workbooks.Application.DisplayAlerts = False
 
    Set wb = Application.Workbooks.Open(strFolder & "\" & strfile)
    
    wb.SaveAs (strFolder & Mid(strfile, 1, Len(strfile) - 4)) & ".xls"
   
    ActiveWorkbook.Close
    
    
strfile = Dir
 
Loop
 
    Set wb = Nothing
End Sub

@ltv_1953 · 23.01.2015, 09:35

А причем здесь базы данных и Аксесс?

@Авдей · 23.01.2015, 19:39 **[ТС]**

Не причем, можно конечно просто затратить какое то время и сделать связанные таблицы и сделать макрос на вывод в формате xls всех файлов. Но вот решил сначала спросить,если возможность не привязываться к имени файла, а сделать перебор импорт dbf в таблицу Акцесса и потом уже вывод в формате xls

mobile · 23.01.2015, 19:53

Сообщение от Авдей

run time error 9 Нет доступа

Нет доступа - проблема админская. Решается получением доступа к папке. Надо обратиться к админу и получить доступ.

Но есть некоторая противоречивость в показаниях :-) Если ошибка 9 это ошибка екселя, то она сообщает о совсем другой проблеме - Subscript out of range, т.е. индекс вне диапазона. Какой индекс? И как это соотноситься с доступом?
Впрочем, основное это доступ. И решать его надо скорее всего административными методами.

@Авдей · 23.01.2015, 21:35 **[ТС]**

Ясно, буду дальше пробовать! Спасибо

@Alex77755 · 26.01.2015, 23:13

Visual Basic

1 2	strFolder = ThisWorkbook.Path & "\" strfile = Dir(strFolder & "\.dbf")

Один слеш там явно лишний!
Посмотри где Dir ищет

Visual Basic

1	Debug.Print strFolder & "\.dbf"

Добавлено через 2 минуты

потом ВПР не получается сделать..

А нужен ли он вообще при обработке макросом?

@ltv_1953 17485 / 7247 / 1651 Регистрация: 21.06.2012 Сообщений: 13,863
	23.01.2015, 09:35	2
	А причем здесь базы данных и Аксесс? 0

@Авдей 10 / 9 / 1 Регистрация: 12.06.2014 Сообщений: 255
	23.01.2015, 19:39 [ТС]	3
	Не причем, можно конечно просто затратить какое то время и сделать связанные таблицы и сделать макрос на вывод в формате xls всех файлов. Но вот решил сначала спросить,если возможность не привязываться к имени файла, а сделать перебор импорт dbf в таблицу Акцесса и потом уже вывод в формате xls 0

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	23.01.2015, 19:53	4
	Сообщение от Авдей run time error 9 Нет доступа Нет доступа - проблема админская. Решается получением доступа к папке. Надо обратиться к админу и получить доступ. Но есть некоторая противоречивость в показаниях :-) Если ошибка 9 это ошибка екселя, то она сообщает о совсем другой проблеме - Subscript out of range, т.е. индекс вне диапазона. Какой индекс? И как это соотноситься с доступом? Впрочем, основное это доступ. И решать его надо скорее всего административными методами. 0

@Авдей 10 / 9 / 1 Регистрация: 12.06.2014 Сообщений: 255
	23.01.2015, 21:35 [ТС]	5
	Ясно, буду дальше пробовать! Спасибо 0

	26.01.2015, 23:13

Опции темы