Проблема с загрузкой dbf в макрос

[R@v14]

Добрый день! Пишу макрос в excel-ке, но не получается импортировать данные из дбф файла и обработать.
Собственно нужно: в форме экселя пользователь вводит порядковый номер. при нажатии на кнопку формы ексель должен открыть дбф файл, лежащий в той же папке, и по введенному номеру отыскать строку в дбф и вывести наименование определенные стобцы этой стоки в форму эксель.
Если конкретнее: пользвователь вводит бик банка, макрос подключается к дбф-ку и выдает в эксель наименование банка.
Кто что может посоветовать???
Написать необходимо именно на VBA.

[Sham1963]

Доброго дня

Переведи сначала из формата .DBF в .XLS, а потом работай, как с обычным файлом:

FN = "file_name_dbf"
ChDir "C:\papka"
Workbooks.Open Filename:="C:\papka\" & FN & ".DBF"
ActiveWorkbook.SaveAs Filename:="C:\papka\" & FN & ".XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open Filename:="C:\papka\" & FN & ".XLS"

Это поможет сохранить оригинальный DBF неизменным

[R@v14]

TO Sham1963
*****
А как работать тогда с обычным файлом .xls???
И то, что оригинальный дбф останется не изменным- это не столь важно, т.к. каждый день дбф записывается новый...
Если не сложно укажи, пжлст, как тогда в твоем варианте искать нужную строку в др файле xls?

[Sham1963]

s = Range("A1").CurrentRegion.Rows.Coun t ' S - считаем число строк в файле
for i=1 to s
if cells(i,4)= trebuemy_bik then ss=i : exit for ' SS - запомнили нужную строку
next i

[R@v14]

TO Sham1963
*****
Пробую конвертить дбф файл в хлс -ругается у меня екселька.
Вот это ей не нравится:
ActiveWorkbook.SaveAs Filename:="C:\papka\" & FN & ".XLS", _
и FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
(((((((((((((

[Юнлинг]

Сообщение от R@v14

Добрый день! Пишу макрос в excel-ке, но не получается импортировать данные из дбф файла и обработать.
Собственно нужно: в форме экселя пользователь вводит порядковый номер. при нажатии на кнопку формы ексель должен открыть дбф файл, лежащий в той же папке, и по введенному номеру отыскать строку в дбф и вывести наименование определенные стобцы этой стоки в форму эксель.
Если конкретнее: пользвователь вводит бик банка, макрос подключается к дбф-ку и выдает в эксель наименование банка.
Кто что может посоветовать???
Написать необходимо именно на VBA?

НЕ знаю поможет ли тебе. Но один раз я столкнулся с одной проблемой смотри эту тему. В моем случае был немного искаженный формат даты DBF. Решить проблему нормального чтения данной даты не получилось, по этой причине я решал ее через Acsess/ В нем я подключил DBF как внешную базу и сделал запрос. выбрав нужные поля БД. Всякий раз когда обновлялась база данный я получал обновленный запрос.
Далее в Excel используя ADO обрабатывал базу.

Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
dim st as string, st1 as string

...
Set Conn = New ADODB.Connection
With Conn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
    .Open cn(i)
End With
st = "Select 'имя нужного поля' fAllMass FROM 'условие отбора' ORDER BY 'поле_сортировка'"
Set oCmd = New ADODB.Command
Set oCmd.ActiveConnection = Conn
With oCmd
    .CommandText = st
    .CommandType = adCmdText
    .Execute
End With
Set oRes = New ADODB.Recordset
Set oRes.ActiveConnection = Conn
oRes.Open oCmd
...
If Not oRes.EOF Then
   st1 = oREs.Field(0) 'если запись найдена
else
   st1="записи с таким индексом нет"
endif

И вообще очень много различных тем с чтением баз данных только нужно искать

[EducatedFool]

А если так попробовать?

ActiveWorkbook.SaveAs "c:\file_name_dbf.XLS"

Скорее всего, макрос ругается из-за отсутствия на диске папки "C:\papka\"

[Sham1963]

1. А excell какой?
2. DBF открывается нормально?
3. Сохрани проще:

ActiveWorkbook.SaveAs Filename:="C:\papka\" & FN & ".XLS"

прим. В FN расширение не должно присутствовать, это чисто ИМЯ!!!
И действительно, papka - это какая-то твоя РЕАЛЬНАЯ ПАПКА!!!

[R@v14]

))))))))))))))))))) То, что "papka"- это моя какая-то папка- эт я понимаю )
На данный момент уже добился следующего:
макрос открывает дбф файл и добавляет его содержимое на Лист2, остается только доделать поиск нужного бика на листе2 и вывод ячейки с наименованием на лист1.

Столкнулся с такой проблемой: если несколько раз подряд вводить разные бики- то лист2 переполняется, т.к. дбф файл у меня более 10 000 строк ((( думаю, что после каждого нахождения наименования нужно очищать лист2?
Может кто-то подскажет что-то полегче?? Еще проблема- во время заполнения листа2 данными из дбф (несколько секунд)- активным становится окно листа2 и пользователь будет видеть содержимое дбф файла (правда всего несколько секунд)- но, думаю, это будет пугать моих юзверей... можно ли как-то в фоновом режиме передавать данные в лист2?

[doober]

Только ради нормального психического состояния юзера убрал содержимое файла,да и скорость увеличил

В текстбох вводите бик -кнопка и получаете название.Пример файла dbf во вложении.Для проверки указаны данные по условным банкам.
к проекту должна быть подключена библиотека ADO
меню Tools / References ... Microsoft ActiveX Data Objects...