Import CSV data - newbie question

[JeppeML]

Hi forum
I am trying to import data from a semi colon delimited csv file.
1st attempt, i discovered that excel assumed that the delimiter was ","
trying to correct this, i get an syntax error, or a compile error "expected; end of statement" -- marking the "," after the filepath.
The videos/posts I've found writes the code as I do, but is not getting any errors - Anyone knows what I'm overseeing?
Thanks in advance - Jeppe

Sub get_data()

 

Dim Wb1 As Workbook

Application.ScreenUpdating = False

Set Wb1 = Workbooks.Open("C:\xxxxxx\Varmeprognose.csv"), DataType:= xlDelimited, Semicolon:= True, DecimalSeparator:= ",", ThousandsSeparator:="."

Wb1.Sheets(1).Range("A1:C200").Copy

Wb1.Close SaveChanges:=False

Application.ScreenUpdating = True

Range("A1").Select
ActiveSheet.Paste
 

End Sub

 

[DanteAmor]

Hi @JeppeML.

Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.​

You have problems in that Open method:

---------------------------
Please do the following:​

1) Check the List separator settings:

On Windows, you'll find this setting at:​

Control Panel > Region & Language > Additional settings > Change date, time, or number formats > additional settings​

​

Type a semicolon into the List separtor box:​

Click OK Twice to confirm the change.​

2. Use the following code:​

Note: Just update the path.​

Sub get_data()
  Dim Wb1 As Workbook
  
  Application.ScreenUpdating = False
  Set Wb1 = Workbooks.Open(Filename:="C:\xxxxxx\Varmeprognose.csv", Local:=True)
  Wb1.Sheets(1).Range("A1:C200").Copy ThisWorkbook.ActiveSheet.Range("A1")
  Wb1.Close SaveChanges:=False
  Application.ScreenUpdating = True
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------​