如何将EXCEL中的数据转化为DBF文件？

[yxgyxiaoyun]

A B C
1 字段一 字段二 字段三
2 A1 B1 C1
3 A2 B2 C2
如何将它转换为带字段头的DBF文件，谢谢。

[yxgyxiaoyun]

不介意，我问个白痴的问题吧，在这个程序中哪里定义打开的EXCEL文件呢？

[water_j]

Sub Macro1()
'
' Macro1 Macro
' water_j 记录的宏 2002-5-2
'

'
Range("A1").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
ActiveSheet.Paste
Range("C1").Select
ActiveSheet.Paste
Range("A2").Select
ActiveCell.FormulaR1C1 = "A1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "B1"
Range("C2").Select
ActiveCell.FormulaR1C1 = "C1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "A2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "B2"
Range("C3").Select
ActiveCell.FormulaR1C1 = "C2"
Range("A4").Select
ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\jxp\My Documents\Book1.dbf", FileFormat:=xlDBF4, _
CreateBackup:=False
End Sub