0

以下は私が修正しようとしているコードです。Excel 2007では機能しますが、Excel2010では機能しません。

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
4

1 に答える 1

1

代わりに次のコードを試してください。

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-11T19:19:16.477 に答える