vb.net如何把根目录下的excel模板打开并强制另存

要将根目录下的Excel模板打开并强制另存为，您可以使用VB.NET中的Excel Interop库来完成。请确保计算机上安装了Microsoft Office并引用了Excel Interop库。

以下是一个示例代码，演示如何打开根目录下的Excel模板并强制另存为：

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub OpenAndSaveTemplateButton_Click(sender As Object, e As EventArgs) Handles OpenAndSaveTemplateButton.Click
        ' 获取应用程序根目录的路径
        Dim rootPath As String = AppDomain.CurrentDomain.BaseDirectory

        ' Excel模板文件路径
        Dim templatePath As String = Path.Combine(rootPath, "模板.xlsx")

        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()
        ' 打开模板文件
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(templatePath)

        ' 另存为路径
        Dim saveAsPath As String = Path.Combine(rootPath, "另存为文件.xlsx")

        ' 另存为工作簿
        workbook.SaveAs(saveAsPath)

        ' 关闭工作簿并退出Excel应用程序
        workbook.Close()
        excelApp.Quit()

        ' 释放资源
        ReleaseObject(workbook)
        ReleaseObject(excelApp)

        MessageBox.Show("文件另存为成功！")
    End Sub

    ' 释放对象资源的方法
    Private Sub ReleaseObject(obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
            MessageBox.Show("释放资源时发生错误：" + ex.ToString())
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

在上面的示例中，我们使用`AppDomain.CurrentDomain.BaseDirectory`获取应用程序的根目录路径，并将模板文件路径设置为根目录路径下的"模板.xlsx"。

然后，我们创建了一个Excel应用程序对象，并使用`Workbooks.Open`方法打开模板文件。接下来，我们指定要另存为的路径，并使用`SaveAs`方法将工作簿另存为指定路径。

最后，我们关闭工作簿并退出Excel应用程序，并释放资源。

希望这对您有所帮助！