VBA to use cell reference and open another workbook

[jas1980]

I have the following code in a workbook and it works perfectly, it opens the corresponding csv file, updates information and closes the csv, I am trying to change the address from being written into the code to being retrieved from a cell reference.

Any advice is much appreciated.

Sub GetFile()

Workbooks.Open "C:\Users\jamie\AppData\Roaming\MetaQuotes\Terminal\06980EAAF7FCC460D7BD131105CC8618\MQL4\Files\BSA_Transactions\BSA_Transactions.csv", UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True

End Sub

 

[jsb1921]

In A1 put the value "C:\Users\jamie\AppData\Roaming\MetaQuotes\Terminal\06980EAAF7FCC460D7BD131105CC8618\MQL4\Files\BSA_Transactions\"

dim str1 as string
str1=trim(ltrim(cells(1,"A").value))      '1 is rownumber A is the column, read address from A1
Workbooks.Open  str1 & "BSA_Transactions.csv", UpdateLinks:=1

if it serves the need mark it as a solution.

 

[mohadin]

What about

  Workbooks.Open Filename:=Range("A1")

 

[jas1980]

In A1 put the value "C:\Users\jamie\AppData\Roaming\MetaQuotes\Terminal\06980EAAF7FCC460D7BD131105CC8618\MQL4\Files\BSA_Transactions\"

dim str1 as string
str1=trim(ltrim(cells(1,"A").value))      '1 is rownumber A is the column, read address from A1
Workbooks.Open  str1 & "BSA_Transactions.csv", UpdateLinks:=1

if it serves the need mark it as a solution.

Thank you for this it works perfectly, I just removed "BSA_Transactions.csv" so it was all in the same cell

Sub GetFile()

Dim str1 As String
str1 = Trim(LTrim(Cells(2, "P").Value)) '2 is rownumber P is the column, read address from O3

Workbooks.Open str1, UpdateLinks:=1
ActiveWorkbook.Close SaveChanges:=True

End Sub

 

[jas1980]

What about

  Workbooks.Open Filename:=Range("A1")

Thank you for the reply, I couldn't get this working, (probably did something wrong).

 

[mohadin]

Hi
in my code Range("A1") should hold the path an the file name
"C:\Users\jamie\AppData\Roaming\MetaQuotes\Terminal\06980EAAF7FCC460D7BD131105CC8618\MQL4\Files\BSA_Transactions\BSA_Transactions.csv"