VBA Excel另存为xlDBF4

编程问答 2022-06-09

问题描述

StackOverflow社区，

我最近在下面创建此宏时遇到问题，该宏与如何将Excel保存为xlDBF4和活动工作簿有关。我不知道为什么，但无法正常工作，出现了运行时错误，我已经尝试使用FileFormat：= 11和FileFormat：= xlDBF4 

Sub SaveAsDBF()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.displayAlerts = False
Application.EnableEvents = False
Dim strPath As String
            strPath = "C:\"
            strPath = strPath & ActiveSheet.Name & ".dbf"
            ActiveWorkbook.SaveAs Filename:=strPath,FileFormat:=xlDBF4,_
                CreateBackup:=False
            'ActiveWorkbook.SaveAs Filename:=strPath,FileFormat:=11
End Sub

解决方法

如果绝对必须是DBF文件，则最新Excel的唯一解决方案是使用ADODB并执行查询，请确保您的office / Excel是32位的，因为DBF的驱动程序只能在32位上运行。 参考df = pd.concat(out,axis=1) 代码示例以执行DBF查询：

Microsoft ActiveX Data Objects 6.1 Library
excelexcelfile-formatvba