在本地网络位置保存Excel工作簿

时间:2017-01-20 16:58:02

标签: vba excel-vba excel

我正在尝试将工作簿保存在本地网络驱动器位置。代码工作正常,唯一的问题是,警报显示正在保存文件并且网络路径显示在同一个文件中。

Public Sub Test(sFileLocation As String, sFileName As String)

Dim wb As Workbook
Dim bDisplayAlerts As Boolean
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
bDisplayAlerts = Application.DisplayAlerts

If fso.FolderExists(sFileLocation) Then
    Set wb = Workbooks.Add

    'some operations        
    Application.DisplayAlerts = False
    wb.Close True, sFileLocation & sFileName
    Application.DisplayAlerts = bDisplayAlerts
End If

End Sub

0 个答案:

没有答案