Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
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.