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 IMPORT_PL() Dim DB As Database Dim DATE_T As Date Dim EMPLACEMENT, Sql As String Dim Branch(20) As String Dim TrnFmly(8) As String Dim TICKER(200) As String Dim CURR(200) As String Dim DPL(200) As Double Dim MPL(200) As Double Dim I As Integer Dim J As Integer Dim K As Integer Dim L As Integer Dim RIEN As Variant Dim prod_type As String Sheets("MENU").Select DATE_T = Cells(3, 7).Value 'IMPORT TRADING PORTFOLIOS PL EMPLACEMENT = "O:\Treasury\Daily\Daily Profit and Loss\MARGIN ANALYSIS DATABASE.mdb" Sql = "SELECT QRY_UNION_DEALS.[Deal No]" Sql = Sql & " FROM QRY_UNION_DEALS " Set DB = OpenDatabase(EMPLACEMENT) Set RST = DB.OpenRecordset(Sql) Sheets("DATA").Select Range("B5:S5").Select ActiveCell.CopyFromRecordset RST Sheets("MENU").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.