如果你是标准的行列表的话，请试试：
Option Explicit
Sub change()
Dim fileToOpen
Dim Filename
fileToOpen = Application _
.GetOpenFilename("excel Files (*.xls), *.xls")
If fileToOpen <> False Then
Workbooks.Open (fileToOpen)
Else
End
End If
With ActiveSheet
ActiveWorkbook.SaveAs Filename:=1, FileFormat:=xlDBF4
Application.DisplayAlerts = False
Application.Quit
End With
End Sub
怎么解决的啊！告诉下，我也在找。。。谢谢了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024