setwd('D:/') library(haven) d1<-read_dta('data1.dta') write.csv(d1,'d:/data1.csv') 然后打开csv文件另存为xlsx 还有更简单的,一步到位的办法吗