Question

所以我在将文件从RStudio上传到Excel进行MATLAB处理时遇到问题。我之前遇到过这个问题，没有填充公式，所以我创建了一个脚本来打开，保存和关闭Excel文件，然后填充公式并将数值加载回RStudio。但是，我无法弄清楚如何根据我们的样本ID打开多个名称已更改的.csv文件。

继承我的脚本，我试图打开多个文件：

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

Answer 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

R保存excel文件，用户输入名称为

1 个答案: