DBF

[Gawwws]

Как сохранить лист в формате DBF3?

[Serge_Bliznykov]

судя по всему речь идёт о MS Excel 2007 (или даже Excel 2010 ), так?
Тогда ответ - используя только MS Excel — никак!! ;(
Какому чугуно-головому менеджеру проекта в MS показалось, что это ненужная и стратегически неверная функция! ;(

Можно решить проблему через MS Access - импортировать свой XLS файлик (таблицу) в Access, а уже там есть (если мне память не изменяет) export в DBF.

[Gawwws]

Реч идёт о MS Excel 2003 и там эта функция есть (Сохранить как...), а мне надо это сделать програмным путём на VB6 через Excel Application.

[Serge_Bliznykov]

в таком случае рекомендую использовать Macro Recorder, чтобы посмотреть генерируемый код.
на VBA это будет так:

With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\Kartbl.dbf", _
FileFormat:=xlDBF4, CreateBackup:=False
.Close
End With

а как на VB6 - не знаю... но, в любом случае, копайте метод книги SaveAs()

[doober]

Вам в помощь
Из Interop.Excel.dll доступные форматы

 
Public Enum XlFileFormat
    ' Fields
    xlAddIn = &H12
    xlCSV = 6
    xlCSVMac = &H16
    xlCSVMSDOS = &H18
    xlCSVWindows = &H17
    xlCurrentPlatformText = -4158
    xlDBF2 = 7
    xlDBF3 = 8
    xlDBF4 = 11
    xlDIF = 9
    xlExcel2 = &H10
    xlExcel2FarEast = &H1B
    xlExcel3 = &H1D
    xlExcel4 = &H21
    xlExcel4Workbook = &H23
    xlExcel5 = &H27
    xlExcel7 = &H27
    xlExcel9795 = &H2B
    xlHtml = &H2C
    xlIntlAddIn = &H1A
    xlIntlMacro = &H19
    xlSYLK = 2
    xlTemplate = &H11
    xlTextMac = &H13
    xlTextMSDOS = &H15
    xlTextPrinter = &H24
    xlTextWindows = 20
    xlUnicodeText = &H2A
    xlWebArchive = &H2D
    xlWJ2WD1 = 14
    xlWJ3 = 40
    xlWJ3FJ3 = &H29
    xlWK1 = 5
    xlWK1ALL = &H1F
    xlWK1FMT = 30
    xlWK3 = 15
    xlWK3FM3 = &H20
    xlWK4 = &H26
    xlWKS = 4
    xlWorkbookNormal = -4143
    xlWorks2FarEast = &H1C
    xlWQ1 = &H22
    xlXMLSpreadsheet = &H2E
End Enum

Serge_Bliznykov правильно подсказал

но, в любом случае, копайте метод книги SaveAs()

[Gawwws]

Большое спасибо!