Dim fs
fs = CreateObject(“Scripting.FileSystemObject”)
If fs.FolderExists(Me.txtFolder.Text) Then
modExcel.Export(Me.txtFolder.Text)
End If
Advertisements
Dim fs
fs = CreateObject(“Scripting.FileSystemObject”)
If fs.FolderExists(Me.txtFolder.Text) Then
modExcel.Export(Me.txtFolder.Text)
End If