打开excel模板并保存文件

Question

我想用浏览按钮打开一个excel模板，文件需要打开，必须由用户直接保存。保存文件后，需要在文本框中显示文件位置。

这样我可以自己打开excel，但我不知道如何打开模板和保存文档

Dim Xl As Excel.Application
Dim Filepath As String
Dim Workbook As Excel.Workbook
Dim Worksheet1 As Excel.Worksheet
Dim Worksheet2 As Excel.Worksheet

Private Sub BrowseExcelfilenaam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseExcelfilenaam.Click
   Xl = CreateObject("Excel.Application")
        Xl.Workbooks.Open("location\Geluidscherm_template.xls")
        Xl.Visible = True
        ExcelFilepath = Xl.GetSaveAsFilename(FileFilter:="Excel Files (*.xls), *.xls")

        Excelfilenaam.Text = (ExcelFilepath)
End Sub

文件打开，我得到一个另存为对话框，但是当我想保存文档时它没有；根本不保存，但是它不会给我一个错误。

Answer 1

Dim objApp As New Excel.Application

Dim objWorkbook As Excel.Workbook = objApp.Workbooks.Open(FilePath)

objApp.Visible = True