我需要帮助来改进这个R代码，以便从xlxs中的每个工作表中提取特定的单元格

# 加载所需的包
library(openxlsx)

# 指定xlsx文件路径
xlsx_file <- "path/to/your/file.xlsx"

# 读取xlsx文件中的所有工作表
sheets <- getSheetNames(xlsx_file)

# 创建一个空的数据框来存储提取的数据
extracted_data <- data.frame()

# 遍历每个工作表
for (sheet in sheets) {
  # 读取当前工作表中的数据
  sheet_data <- read.xlsx(xlsx_file, sheet = sheet)
  
  # 提取特定的单元格内容
  extracted_value <- sheet_data[row, col]
  
  # 将提取的数据添加到数据框中
  extracted_data <- rbind(extracted_data, extracted_value)
}

# 打印提取的数据
print(extracted_data)