excel - 自动打开 Excel 2010 文件，保存并转换为 Excel 2003 格式

Question

我需要直接将excel导入SQL。
但是，我使用的 SQL 版本仅支持 Excel 2013，而用户 excel 是 2010 共享工作簿。

我在想是否可以设置 Excel 2010 并使用公式链接 2010 共享工作簿中的单元格值，然后保存为 Excel 2003 格式。

我想自动执行上述操作。 Excel Marco 可以这样做吗？

我对excel marco了解不多。我该怎么做？

有人可以帮助我吗？

伊万

Answer 1

你的问题的答案是肯定的。你可以试试下面:

Sub Test()
    Dim filename
    Dim wb As Workbook

    filename = Application.GetOpenFilename("Excel Files,*.xlsx")

    On Error Resume Next
    Set wb = Workbooks.Open(filename)
    If wb Is Nothing Then MsgBox "Please select an Excel File": Exit Sub
    On Error GoTo 0

    wb.SaveAs Replace(wb.FullName, ".xlsx", ".xls"), 56 '~~> xlExcel8
    wb.Close
End Sub

上面的代码打开一个 Excel 2010 文件，然后将其保存为 xls (2003) 格式并关闭它。 HTH。