Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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 csv_Export() Dim lastColumn As Integer Dim lastRow As Integer Dim strString As String Dim i As Integer, j As Integer Dim UD As String Dim Bereich As Range Dim filename As Variant 'user will be prompted to choose file name and location while the extension is fixed filename = Application.GetSaveAsFilename(FileFilter:="CSV files (*.csv), *.csv") UD = filename Worksheets("IMPORT").Activate lastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row ActiveSheet.Columns("P:Q").Delete Open UD For Output As #1 For i = 1 To lastRow Cells(i, 1).Select strString = "" For j = 1 To lastColumn If j <> lastColumn Then strString = strString & Cells(i, j).Value & ";" ' Use semicolon instead of pipe. Else strString = strString & Cells(i, j).Value End If Next j If Len(Trim$(Replace(strString, ";", ""))) > 0 Then Print #1, strString End If Next i Close #1 End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.