打开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