如何正确将Excel文件Base64编码后通过API上传？解决文件损坏问题

你的问题核心是两个错误导致文件损坏：

错误原因 #

1. 多余的Data URI前缀：base64enc::dataURI()生成的字符串包含data:application/vnd.openxmlformats-officedocument.spreadsheetml.sheet;name=xxx;base64,前缀，而API需要的是纯Base64编码的文件内容，这个前缀会被当成文件的一部分，导致Excel解析失败。
2. 手动构造Multipart Payload的格式错误：手动拼接边界符、换行符极易出现格式问题（比如换行符不标准、边界符前后空格错误），这些隐性错误会导致API接收的文件内容异常。

修正后的代码 #

library(httr)
library(base64enc)

# 替换为你的实际参数
url <- "<api_url>"
excel_file_path <- "你的Excel文件路径.xlsx"
file_name <- basename(excel_file_path)
task_id <- "你的任务ID"
api_token <- "你的API令牌"

# 读取原始文件内容
excel_file_raw <- readBin(excel_file_path, what = "raw", n = file.info(excel_file_path)$size)

# 生成纯Base64编码字符串（无多余前缀）
file_64_content <- base64encode(excel_file_raw)

# 自动构造Multipart请求，无需手动拼接Payload
response <- POST(
  url = url,
  body = list(
    file = file_64_content,
    parent = task_id,
    resource_subtype = "attachment"
  ),
  add_headers(
    Authorization = paste0("Bearer ", api_token),
    Accept = "application/json"
  ),
  encode = "multipart"
)

# 查看API响应结果
content(response, "text")

关键修正点说明 #

• 替换Base64编码方式：用base64encode()直接生成纯Base64内容，去掉dataURI()带来的前缀。
• 利用httr自动处理Multipart格式：通过body = list(...)和encode="multipart"，让httr自动处理边界符、Content-Disposition头等细节，彻底避免手动拼接的格式错误。
• 规范HTTP头写法：Authorization头首字母大写，符合HTTP标准规范（部分API可能不敏感，但规范写法更稳妥）。

验证步骤（可选） #

在上传前可以先验证Base64编码是否正确：

# 将Base64内容解码回文件
writeBin(base64decode(file_64_content), "test_decoded.xlsx")

如果这个解码后的文件能正常打开，说明Base64编码没有问题，上传到API后也不会出现损坏。

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