[文件读写] 新人问个读取xlsx的傻问题。。。

program index74
parameter(imon=12,iyr=59,ivar=74)
dimension hc068(ivar,imon,iyr)
open(10,file="D:\hc068.xlsx",err=200)
read(10,100)(((hc068(i,j,k),i=1,ivar),j=1,imon),k=1,iyr)
100        format(37I5)
200        continue
close(10)
END

Program index74
  Implicit None
  Integer , parameter :: imon=12,iyr=59,ivar=74
  Real :: hc068(ivar,imon,iyr)
  Open(10 , File = "D:\hc068.xlsx" )
  Read(10,*) hc068
  close(10)
End Program index74