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.
Dim ARRAYLINES As Variant ' array with the lines Dim ARRAYCELLS As Variant ' array with the cells of 1 line to count the cols needed Dim ARRAYLINESidx As Integer '§ put clipboard in textbox With Text2 .Text = PutInClipboard If .Text = "" Then MsgBox "No data in clipboard" Exit Sub Else ARRAYLINES = Split(.Text, vbNewLine) End If End With '§ put textbox in grid If ARRAYLINES(0) = "" Then MsgBox "No data" Exit Sub Else ARRAYCELLS = Split(ARRAYLINES(0), vbTab) With MSHFlexGrid1 .Cols = UBound(ARRAYCELLS) + 1 .Rows = 0 '§ keep header For ARRAYLINESidx = LBound(ARRAYLINES) To UBound(ARRAYLINES) - 1 .AddItem (ARRAYLINES(ARRAYLINESidx)) '.AddItem Trim(ARRAYLINES(ARRAYLINESidx)) Next End With End If '§ clear array ReDim ARRAYLINES(0) ReDim ARRAYCELLS(0)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Need Assistance Implementing ShockWaveFlash Object in Excel VBA||3||34|
|how can I remove vertical lines within an Excel spreadsheet while retaining hortizontal lines?||6||45|
|Open attachments in viewer, not main app||4||31|
|Day Count issue - Days360?||12||30|
Join the community of 500,000 technology professionals and ask your questions.