Hai provato ad aggiungere alla Open il parametro Format?

codice:
Workbooks.Open Filename:=EXPAZIPRO, ReadOnly:=True, Format:=xlCSV
Boolean