Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub FileDiag() Dim strFileSelected As String Dim objOfficeDialog As Object Dim wbDestination As Workbook Dim wbSource As Workbook Dim sh As Worksheet Dim res As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Set objOfficeDialog = Application.FileDialog(msoFileDialogFilePicker) Set wbDestination = ActiveWorkbook Application.FileDialog(msoFileDialogFolderPicker _ ).InitialFileName = "C:\Temp\*.*" ' res = "Q:\Debt\Inputs\" & Format(Date, "yyyy") & "\" & Format(Date, "yyyy") & Format(DateAdd("m", -1, Date), "mm") & "\Reporting" 'Debug.Print res With objOfficeDialog ' .Title = "Select the Project Cost Allocation file" ' .AllowMultiSelect = False '.InitialFileName = res .Show End With Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True Exit Sub End Sub
|Import MySQL data into MS Access using VB.Net interface||5||28|
|Excel count if date is greater than Current date||1||20|
|VBA Delete selected Worksheets of each Workbook in a Folder||4||27|
|simple excel formula||4||13|