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 Sample() Dim wb As Workbook Dim ws1 As Worksheet, ws2 As Worksheet Dim i As Long, LastRowWs1 As Long, LastRowWs2 As Long Dim foundfile As String, pathoffiles As String Set ws1 = ActiveWorkbook.Sheets("Sheet1") '~~> Change path of the directory here pathoffiles = "C:\Temp\" foundfile = Dir(pathoffiles & "*.xls") '<~~~ .xlsx of 2007/2010 Do While Len(foundfile) <> 0 LastRowWs1 = ws1.Range("A" & Rows.Count).End(xlUp).Row Set wb = Workbooks.Open(pathoffiles & foundfile) Set ws2 = wb.Sheets("SST") LastRowWs2 = ws2.Range("A" & Rows.Count).End(xlUp).Row ws2.Range("A1:A" & LastRowWs2).Copy ws1.Range("A" & LastRowWs1) wb.Close savechanges:=False foundfile = Dir Loop Set ws2 = Nothing Set wb = Nothing End Sub
|Excel Formula - How to increment alphanumeric column by 1||4||209|
|Powershell merging excel spreadsheets into one||2||85|
|google sheets, auto insert date into cell when data is moved||11||81|
|Incorporate VBA Code to work with Original Workbook||23||55|