create workbook if it doesn't exist

sdllc · Apr 11, 2018 · 91abc2f · 91abc2f
1 parent 254a386
commit 91abc2f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Examples/excel-scripting.r b/Examples/excel-scripting.r
@@ -9,9 +9,13 @@
 #
 
 #
-# get a reference to the workbook
+# get a reference to the workbook. create a new one if 
+# it doesn't exist (you're on the start screen?)
 #
 wb <- EXCEL$Application$get_ActiveWorkbook();
+if(is.null(wb)){
+  wb <- EXCEL$Application$get_Workbooks()$Add();
+}
 
 #
 # add a sheet