VBA: copy and paste from a csv to xlsm

[Nelson78]

Hello everybody.

I'm dealing with a closed csv file called "record".
It I open it manually, it seems a pure xls file (there is one only sheet with a series of data organized in rows and columns).

I need to copy the data to thisworkbook (which obviously is a .xlsm).

But something gets wrong.

Sub copy_csv

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Desktop\CSV\record.csv")

ThisWorkbook.Sheets(1).Range("B1").Value = wb.Range("A1").CurrentRegion.Value

End Sub

Error 438 object doesn't support this property or method

in the following line

ThisWorkbook.Sheets(1).Range("B1").Value = wb.Range("A1").CurrentRegion.Value

The process stops with the "record" file opened with the data displayed without columns (as in a notepad).


How can I figure it out?

 

[Fluff]

Try

Sub copy_csv()

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Desktop\CSV\record.csv")

wb.Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("B1")

End Sub

 

[Nelson78]

Try

Sub copy_csv()

Dim wb As Workbook
Set wb = Workbooks.Open("C:\Desktop\CSV\record.csv")

wb.Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("B1")

End Sub

Same error, same situation.

 

[Fluff]

When you said

The process stops with the "record" file opened with the data displayed without columns (as in a notepad).

Do you mean that everything is in one cell, or one column?

 

[Fluff]

Scrub that, try

[COLOR=#ff0000]wb.Sheets(1).[/COLOR]Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("B1")

 

[Nelson78]

Scrub that, try

[COLOR=#ff0000]wb.Sheets(1).[/COLOR]Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("B1")

Same error.

I mean, in the "record" file opened, all data are in range A1:A12959 instead of A1:AL12959

In A2, for instance, I can read something like this:

1094254;25/10/2018;01:00:00;Company;Brench;Sheffield;no more;ZTT;ZTT125;Seller;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0

 

[Fluff]

Could you supply a cut down version of the csv file?
If you have ; between the values rather than , then it's not a csv file.
What I don't understand is if you doubleclick the file it opens ok, but opening via VBA doesn't work

 

[Nelson78]

This it what I see in folder C:\Desktop\CSV (consider italian pc, "virgola" is "comma").

https://imgur.com/a/qHW3tMF

Now, I'm going to provide an example, but I have to manipulate because of private data.

 

[Nelson78]

No other ideas?

I think in some way it should be figured out.

 

[Fluff]

No other ideas?

You were going to supply a sanitised version of the file.