如何保存word文件中的excel文件並使用VBA選擇路徑？

Question

我有一個宏從word文件獲取數據並將其寫入excel文件並將其保存到特定位置。 我希望用戶能夠選擇保存文件的位置。

這是我當前的代碼：

Sub createExcelFile() 
     Dim mPathSave As String 
     Dim xlsApp As Excel.Application 
     Dim xlsWB As Workbook 

     Set xlsApp = CreateObject("Excel.Application") 
     Set xlsWB = xlsApp.Workbooks.Add 

     'Want to make it dynamic' 
     mPathSave = "C:\temp" 

     callFunc = createExcel.createExcel(xlsApp, xlsWB) 

     'Save the excel file 
     xlsWB.SaveAs mPathSave & "\" & "teste" & ".xls", FileFormat:=56 
     xlsWB.Close 
     xlsApp.Quit 
     MsgBox "Novo arquivo salvo em: " & mPathSave & "\" & "teste" & ".xls", vbInformation 
    End Sub 

我試圖用Application.FileDialog打開對話框選擇的地方，但我不能把它存一個excel，它會打開保存的Word文件。

Answer 1

下面是一個簡單的例子

Sub createExcelFile() 
    Dim mPathSave As String 
    Dim xlsApp As Excel.Application 
    Dim xlsWB As Workbook 

    Set xlsApp = CreateObject("Excel.Application") 
    xlsApp.Visible = True 
    Set xlsWB = xlsApp.Workbooks.Add 

    'Want to make it dynamic' 
    Application.FileDialog(msoFileDialogFolderPicker).Show 
    mPathSave = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) 

    'Save the excel file 
    xlsWB.SaveAs mPathSave & "\" & "teste" & ".xls", FileFormat:=56 
    xlsWB.Close 
    xlsApp.Quit 
End Sub