2010年的麻烦保存为dbf

下面是我正在尝试解决的代码。它适用于Excel 2007，但不适用于Excel 2010.2010年的麻烦保存为dbf

我相信它与XlDBF4部分有关。请帮忙。

Range("A1").Select 
ActiveWorkbook.SaveAs Filename:=Range("SetUp!L34") & Range("SetUp!D28") & "_" & Range("SetUp!F28") & ".dbf", FileFormat:= _ 
    xlDBF4, CreateBackup:=False 
ActiveWorkbook.SaveAs Filename:=Range("Setup!L28") & Range("SetUp!D28") & "_" & Range("SetUp!F28") & " " & Range("SetUp!D30") & ".xls", FileFormat:= _ 
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
    , CreateBackup:=False

来源

2013-02-11 tim gates

你是否收到错误信息？如果是这样，请编辑您的问题以包含它。谢谢。 – bernie 2013-02-11 19:02:35

如果下面的答案不起作用 - 只需使用宏记录器保存所需的每种格式即可 - 它将为您提供所有必需的代码。 – 2013-02-12 04:42:33

试试这个代码，而不是：

Range("A1").Select 
ActiveWorkbook.SaveAs Filename:=Range("SetUp!L34") & Range("SetUp!D28") & "_" & Range("SetUp!F28") & ".dbf", FileFormat:= _ 
    xlDBF4, CreateBackup:=False 
ActiveWorkbook.SaveAs Filename:=Range("Setup!L28") & Range("SetUp!D28") & "_" & Range("SetUp!F28") & " " & Range("SetUp!D30") & ".xls", FileFormat:= _ 
    xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
    , CreateBackup:=False

我认为情况是xlNormal：如果你想xls - 你应该使用xlExcel8代替。奇怪的是你的代码工作 - 根本没有xlNormal常量：XlFileFormat Enumeration (Excel)

来源

2013-02-11 19:19:16

2010年的麻烦保存为dbf

回答

相关问题