Sub FormatTransform() Dim strFile, wb As Workbook strFile = Application.GetOpenFilename(FileFilter:="Micrsoft Excel文件(*.xlam), *.xlam") If strFile = False Then Exit Sub With Workbooks.Open(strFile) .IsAddin = False .SaveAs Filename:=Replace(strFile, "xlam", "xls"), FileFormat:=xlExcel8 .Close End With End Sub
评论已关闭。