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 Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=Gnnn;Data Source=184.108.40.206,6644;Use Procedure for Prepare=1;Auto " _ , _ "Translate=True;Packet Size=4096;Workstation ID=USER-PC;Use Encryption for Data=False;Tag with column collation when possible=Fal" _ , "se;Initial Catalog=psql"), Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdTable .CommandText = Array("""psql"".""Graham2"".""Performance""") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .SourceConnectionFile = _ "C:\Users\User\Documents\My Data Sources\220.127.116.11,1444 psql Performance.odc" .ListObject.DisplayName = "Table__18.104.22.168_1411_psql_Performance" .Refresh BackgroundQuery:=False End With ActiveCell.FormulaR1C1 = "Date" Range("D10").Select 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.