Xls to Dbf

[ZORRO2005]

Друзья,
помогите, пожалуйста, с макросом, который превратит файл xls в dbf, сохранит в ту же папку и с тем же именем.

Excel2010.
Во вложении что есть(_spis.xls) и что нужно(_spis.dbf).

[Djeki]

Включите запись макроса и запишите.

[ZORRO2005]

Excel 2010

[Serge 007]

Сообщение от Djeki

Включите запись макроса и запишите.

Так в DBF не сохранишь.

Серёг, посмотри здесь, может подойдёт?

[Serge_Bliznykov]

обязательное требование использование макроса? Программка (win32, Delphi) не устроит?

И ещё. я на 99% уверен, что эта задача может быть решена простым макросом на VBA, но не в MS Excel, а в MS Access... Можно и с этого боку зайти...

[Hugo121]

Такое нашёл в кубышке (не проверял):

'Программа записи DBF файла на диск в заданной структуре
Private Sub Кнопка3_Click()
Application.ScreenUpdating = False
a$ = ActiveWorkbook.FullName
ChDrive Mid(a$, 1, 1)
ChDir ActiveWorkbook.Path
 im$ = "1df.dbf"
 If Dir(im$) <> "" Then Kill im$
 FileCopy "da.dbf", im$
 P$ = ActiveWorkbook.Path
 Dim db As Database, rs As Recordset, categorycell As Range
 Set db = OpenDatabase(P$, False, False, "dBASE IV")
 Set rs = db.OpenRecordset(im$, dbOpenDynaset)
  it = rs.Fields.Count
 With ActiveSheet
 j = 2
 If Not .Cells(j, 1) = Empty Then
  Do While Not .Cells(j, 1) = Empty
    rs.AddNew
    For i = 0 To it - 1
     rs.Fields(i) = .Cells(j, i + 1)
    Next i
     rs.Update
    j = j + 1
   Loop
 End If
 End With
rs.Close
db.Close
Application.ScreenUpdating = True
response = MsgBox("Создан файл " + im$, _
       vbInformation, "Формування файла в DBF формат")
End Sub

[ZORRO2005]

Serge_Bliznykov,
Мне нужно макросом, чтобы сэкономить время.
Я как раз сделал пример с помощью редактора DBF.
http://delphi-soft.ru/files/more/Red....0_beta_2.html

[kuklp]

Сергей, а так не катит?

    Range([A1], [A1].End(xlDown)).Select
    ActiveWorkbook.SaveAs Filename:=Thisworbook.Path & "\_spis.dbf", FileFormat _
        :=xlDBF4, CreateBackup:=False

Да, даже в 2007 не катит:-(

[Hugo121]

В 2000 катит. Только Thisworbook не катит

[kuklp]

Как вариант, чтоб не заморачиваться с макросами. Качнуть Portable версию 2003 и им легитимно конвертить. Мона даже макросами:-)