setwd("C:\\Users\\ACAD\\Desktop\\tak")

library(xlsx)

## Loading required package: rJava
## Loading required package: xlsxjars

file.name<-c()

for (i in 1:3)
{
  temp <- paste("응답", i,sep="")
  temp <- paste(temp, ".xlsx", sep="")
  file.name <- rbind(file.name, temp)
}

survey<-c()

for (i in file.name)
{
  temp <- read.xlsx(i, 1)
  id <- rep(i, nrow(temp))
  temp <- cbind(temp, id)
  survey <- rbind(survey, temp)
}

names(survey) <- c("문항", "응답", "id")

survey

##   문항 응답         id
## 1    a    1 응답1.xlsx
## 2    b    2 응답1.xlsx
## 3    c    3 응답1.xlsx
## 4    a    2 응답2.xlsx
## 5    b    1 응답2.xlsx
## 6    c    2 응답2.xlsx
## 7    a    3 응답3.xlsx
## 8    b    2 응답3.xlsx
## 9    c    1 응답3.xlsx