Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Google脚本转换为VBA_Vba_Excel - Fatal编程技术网

将Google脚本转换为VBA

将Google脚本转换为VBA,vba,excel,Vba,Excel,我正在尝试将下面的google脚本转换为Excel。在我决定下载一个副本之前,这个脚本在google sheet中运行得非常好。请帮忙 多谢各位 function copyTo(){ var ss = SpreadsheetApp.getActiveSpreadsheet(); var dupRow = "MedR"; var copy = ss.getSheetByName(dupRow); copy.insertRowAfter(copy.getLastRow());

我正在尝试将下面的google脚本转换为Excel。在我决定下载一个副本之前,这个脚本在google sheet中运行得非常好。请帮忙

多谢各位

function copyTo(){
  var ss = SpreadsheetApp.getActiveSpreadsheet();  
  var dupRow = "MedR";
  var copy = ss.getSheetByName(dupRow);
  copy.insertRowAfter(copy.getLastRow());
  copy.getRange(copy.getLastRow(),1,1,copy.getLastColumn()).copyTo(copy.getRange(copy.getLastRow(),1));
}
{
  var ss = SpreadsheetApp.getActiveSpreadsheet();  
  var sourceSheet = "Form"; 
  var destinationSheet = "MedR";

  var sheet = ss.getSheetByName(sourceSheet);
  var targetSheet = ss.getSheetByName(destinationSheet);
  var range = sheet.getRange("B4");
  var cell1 = range.getCell(1,1).getValue();
  var range = sheet.getRange("F6");
  var cell2 = range.getCell(1,1).getValue(); 
  var range = sheet.getRange("F9");
  var cell3 = range.getCell(1,1).getValue();  
  var range = sheet.getRange("I9");
  var cell4 = range.getCell(1,1).getValue(); 
  var range = sheet.getRange("E7");
  var cell5 = range.getCell(1,1).getValue();  
  var range = sheet.getRange("I3");
  var cell6 = range.getCell(1,1).getValue();  


  targetSheet.insertRowAfter(1);

 targetSheet.getRange("A2").setValue(cell1);
 targetSheet.getRange("B2").setValue(cell2); 
 targetSheet.getRange("C2").setValue(cell3); 
 targetSheet.getRange("D2").setValue(cell4); 
 targetSheet.getRange("E2").setValue(cell5); 
 targetSheet.getRange("F2").setValue(cell6); 

 var sheet = ss.getSheetByName(sourceSheet);
 sheet.getRange("B4").setValue("Search here");
 sheet.getRange("F9").setValue(0);

}

我只是在Excel中记录了宏,并对脚本进行了润色。一切正常。

因此,一旦下载了副本,脚本就停止工作。你确定你做的唯一一件事就是下载吗?这似乎不应该破坏源头。