Question

我想使用vba创建一个excel宏，它可以编辑R脚本。

我们称这个R脚本为starter.R，其工作目录为C：/ Documents。我想要更改的代码是“run = 3000”。我想将其更改为“run = 2000”。

首先，我想使用以下代码打开R脚本：

Sub ReplaceString()
Dim filename as string
Dim location as String
location="C:\Users\Ken\Documents"
filename="C:\Users\Ken\Documents\start.R"
'Open filename

然后我想将字符串“run = 3000”替换为“run = 2000”。

'Replace("run=3000","run=2000")
end sub

有人能帮助我吗？

Answer 1

试试此代码，它可能会对您有所帮助

  Sub ReplaceString()
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set Ofs =fs.OpenTextFile("C:\Users\Ken\Documents\Start.R",1,False) 
  Txt = Ofs.ReadAll
  StrToFnd = "run" & "=" & "3000"
  StrToRplc = "run" & "=" &"2000"          

  Temp=Replace(Txt,StrToFnd,StrToRplc)
  Ofs.Close
  Set Ofs = Nothing
  Set Ofs=fs.OpenTextFile("C:\Users\Ken\Documents\Start.R",2,False) 
  Ofs.WriteLine(Temp)
  Ofs.Close
  End Sub

使用Excel VBA编辑R脚本

1 个答案: