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 LoopFiles2() Static MyFileName, MyPath As String Dim sheetname As String Dim FileType As Integer With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then Exit Sub Else MyPath = .SelectedItems(1) & "\" End If End With MyFileName = Dir(MyPath & "*.xml") Application.DisplayAlerts = False Do While Len(MyFileName) > 0 chksheetname = LCase(Mid$(MyFileName, 14)) If chksheetname = "chikeysitems28" Then FileType = 1 sheetname = Split(Mid$(MyFileName, 14), ".")(0) Else chksheetname = LCase(Mid$(MyFileName, 16)) If chksheetname = "chiparameters28" Then sheetname = Split(Mid$(MyFileName, 16), ".")(0) FileType = 2 Else FileType = 3 sheetname = Split(Mid$(MyFileName, 20), ".")(0) End If End If With Sheets.Add .Name = sheetname With .QueryTables.Add(Connection:= _ "FINDER;" & MyPath & MyFileName, _ Destination:=.Range("A1")) .Name = .Parent.Name End With ThisWorkbook.XmlImport URL:=MyPath & MyFileName, _ ImportMap:=Nothing, _ Overwrite:=True, _ Destination:=.Range("A1") End With MyFileName = Dir Loop Application.DisplayAlerts = True End Sub
|Excel bubble chart with most common ranges of values||12||42|
|VBA Delete selected Worksheets of each Workbook in a Folder||4||31|
|copy selected column based on selected value to new worksheet||2||32|
|Excel Formula for Commission Structure||2||20|