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