將Google腳本轉換爲VBA

我在嘗試將以下Google腳本轉換爲使用Excel。該腳本完全在谷歌工作表中工作，直到我決定下載副本。請幫忙。將Google腳本轉換爲VBA

謝謝。

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); 

}

來源

2016-12-06 Ryl

所以，一旦你下載了一個副本，腳本停止工作。你確定你做的唯一一件事是下載嗎？這似乎不應該打破來源。 – YowE3K

我剛剛在Excel中記錄了這個宏，並拋光了腳本。都好。

來源

2016-12-12 04:49:54 Ryl

將Google腳本轉換爲VBA

回答

相關問題