R将用户输入的excel文件保存为名称答案

【问题标题】：R save excel file with user input as nameR将用户输入的excel文件保存为名称
【发布时间】：2015-09-30 22:45:04
【问题描述】：

所以我在将文件从 RStudio 上传到 Excel 以进行 MATLAB 处理时遇到问题。我之前遇到过这个问题，公式没有被填充，所以我制作了一个脚本来打开、保存和关闭 Excel 文件，然后该文件可以很好地填充公式并将数值加载回 RStudio。但是我不知道如何打开多个 .csv 文件，这些文件根据我们的示例 ID 更改名称。

这是我试图打开多个文件的脚本：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\PCRdata\*.csv")
## Also tried Set objWorkbook = objExcel.Workbooks.Open("C:\PCRdata\"& "*.csv")
objExcel.Application.Visible = True
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
WScript.Echo "Your Excel Spreadsheet was Updated, Open these files in Matlab"
WScript.Quit

但是脚本不喜欢 * 来调用所有文件，还有其他方法可以做到这一点吗？或者让 RStudios 提供可用于 matlab 的数据的更好方法。

MATLAB 错误：

Error using netest/testingBrowseButton_Callback (line 63)
Cannot concatenate the table variables 'AKAP8L' and 'ARAF', because their types are double and cell.

Error while evaluating UIControl Callback

【问题讨论】：

标签： excel matlab

【解决方案1】：

好吧，在网站上进行了一些挖掘，并找到了一个替代帖子，该帖子使用脚本将更改 xls 更改为 xslx，所以我只是将其从 csv 变为 csv。希望这可以帮助其他遇到此问题的人。

Set app = CreateObject("Excel.Application")
app.Visible = False
app.DisplayAlerts = False
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder("C:\PCRdata").Files
  If LCase(fso.GetExtensionName(f)) = "csv" Then
    Set wb = app.Workbooks.Open(f.Path)

    wb.Save
    wb.Close True
  End if
Next

app.Quit
Set f = Nothing
Set app = Nothing
Set fso = Nothing
wScript.Quit

【讨论】：