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 TextFile() Dim fs As Object, a As Object, i As Long, s As String, lngLastRow As Long Set fs = CreateObject("Scripting.FileSystemObject") lngLastRow = Cells(Rows.Count, "G").End(xlUp).Row For i = 2 To lngLastRow Step 1 Set a = fs.CreateTextFile("C:\Temp\" & Range("G" & i).Value & ".txt", True) s = s & Cells(i, 1) & vbCrLf & Cells(i, 2) & vbCrLf & Cells(i, 3) & vbCrLf & Cells(i, 4) & vbCrLf & Cells(i, 5) & vbCrLf & Cells(i, 6) & vbCrLf & Cells(i, 7) & vbCrLf & Cells(i, 8) & vbCrLf & Cells(i, 9) a.WriteLine s s = "" a.Close Next i End Sub
|Need excel formula for todays date subtracting previous day||11||48|
|Vbscript & Batch: restart servers with delay condition||2||24|
|VBA Code to edit a embed word object in an excel file||3||37|
|how to loop through and process two columns in excel||8||17|