自动打开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。