2011-10-13 4 views
0

찾아보기 버튼을 사용하여 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 

파일을 템플릿을 여는 방법을 알고 저장하지가 열리고 내가 원하는 때 나는 대화로 저장 얻을 수 있지만, 문서를 저장하지 마십시오, 전혀 저장하지 마십시오. 그러나 오류가 발생하지 않습니다.

+0

실제 템플릿 파일을 편집하고 있습니까, 아니면 템플릿 파일을 기반으로 새 파일을 만들고 있습니까? – JeffO

+0

파일을 저장하려면 먼저 파일을 저장해야합니다. – PandaNL

답변

0
Dim objApp As New Excel.Application 

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

objApp.Visible = True