在RStudio中实现弹窗GUI同时选择.xlsx文件及工作表加载至全局环境

下面提供两种无需编写复杂tcltk代码的方案，均能在RStudio中通过GUI弹窗完成文件与工作表的选择，并将数据加载到全局环境：

方法1：基础R + readxl（轻量无额外GUI依赖） #

这个方案利用基础R的select.list()（在RStudio中会自动转为GUI弹窗）配合readxl包实现，步骤简单：

# 1. 选择.xlsx文件
path <- file.choose()

# 2. 获取文件内所有工作表名称
sheets <- readxl::excel_sheets(path)

# 3. 弹窗选择目标工作表
selected_sheet <- select.list(sheets, title = "选择要加载的工作表")

# 4. 将选中工作表的数据加载到全局环境的`data`对象中
assign("data", readxl::read_excel(path, sheet = selected_sheet), envir = .GlobalEnv)

执行上述代码后，会依次弹出文件选择框和工作表选择弹窗，完成后数据自动存入全局环境的data变量。

方法2：Shiny模态弹窗（界面更友好） #

如果想要更美观的交互界面（如下拉选单+确认按钮），可以用Shiny包实现临时模态弹窗，仅需加载Shiny即可：

首先确保安装了依赖包：

install.packages(c("shiny", "readxl"))

然后定义一个可复用的函数：

library(shiny)
library(readxl)

load_excel_with_sheet <- function() {
  # 第一步：选择文件
  path <- file.choose()
  if (is.na(path)) return(NULL)
  
  # 获取文件内的工作表列表
  sheets <- excel_sheets(path)
  
  # 启动临时Shiny应用显示选择弹窗
  ui <- fluidPage()
  server <- function(input, output, session) {
    showModal(modalDialog(
      title = "选择工作表",
      selectInput("target_sheet", "请选择要加载的工作表", choices = sheets),
      footer = tagList(
        actionButton("confirm_btn", "确认加载"),
        modalButton("取消")
      )
    ))
    
    # 确认按钮逻辑：加载数据到全局环境
    observeEvent(input$confirm_btn, {
      assign("data", read_excel(path, sheet = input$target_sheet), envir = .GlobalEnv)
      removeModal()
      stopApp()
    })
    
    # 取消按钮逻辑：关闭应用
    observeEvent(input$cancel, {
      stopApp()
    })
  }
  
  # 在RStudio内部启动应用（不打开外部浏览器）
  shinyApp(ui, server, options = list(launch.browser = FALSE))
}

# 调用函数启动选择流程
load_excel_with_sheet()

运行函数后，先弹出文件选择框，确认后会出现一个带下拉选单的模态窗口，选择工作表并点击「确认加载」，数据就会存入全局环境的data变量。

内容的提问来源于stack exchange，提问作者Jason Black