PDA

View Full Version : Import CSV- error 53 file not found, How do I open a CSV ?



christinelly
12-24-2017, 06:55 AM
Hello,

I just started learning VBA, I am getting an error 53 when I am trying to import a CSV on my Mac.

Could someone please kindly advice what I need to do to get it to import?

Thank you so much in advance




Sub opentextfile()

Dim FilePath As String

FilePath = "/Users/christinekelly/Desktop/authors.csv"

Open FilePath For Input As #1
row_number = 0
Do Until EOF(1)

Line Input #1, LineFromFile LineItems = Split(LineFromFile, "", "")

ActiveCell.Offset(row_number, 0).Value = LineItems(2)
ActiveCell.Offset(row_number, 1).Value = LineItems(1)
ActiveCell.Offset(row_number, 2).Value = LineItems(0)
row_number = row_number + 1
Loop
Close #1
End Sub

Logit
01-01-2018, 06:21 PM
Removed by author.

Logit
01-01-2018, 06:22 PM
Removed by author.