Add files via upload

Author: richard512

copyPaste.py

@@ -1,40 +1,40 @@
-'''
-Copies A2:C4 from worksheet1.xlsx to new row(s) starting at the end of worksheet2.xlsx, then saves it as worksheet3.xlsx
-'''
-
-from win32com.client import Dispatch
-wkbk1 = "C:\\path\\to\\worksheet1.xlsx"
-wkbk2 = "C:\\path\\to\\worksheet2.xlsx"
-wkbk3 = "C:\\path\\to\\worksheet3.xlsx"
-excel = Dispatch("Excel.Application")
-excel.Visible = 1
-excel.ScreenUpdating = False
-
-# copy from source
-source = excel.Workbooks.Open(wkbk1)
-excel.Range("A2:C4").Select()
-excel.Selection.Copy()
-
-# paste (appended) to target
-target = excel.Workbooks.Open(wkbk2)
-
-ws = target.sheets(1)
-used = ws.UsedRange
-maxrow = used.Row + used.Rows.Count - 1
-maxcol = used.Column + used.Columns.Count - 1
-newrow = maxrow + 1
-
-destrange = "A"+str(newrow) #+":C9"
-print(destrange)
-
-excel.Range(destrange).Select()
-excel.Selection.PasteSpecial(Paste=-4122)
-
-# Excel requires the user to press enter after paste()
-# It says "select destination and press enter or choose paste"
-# This simulates pressing of the enter key:
-shell = Dispatch("WScript.Shell")
-shell.SendKeys("{ENTER}", 0)
-
-excel.ScreenUpdating = True
-ws.SaveAs(wkbk3)
+'''
+Copies A2:C4 from worksheet1.xlsx to new row(s) starting at the end of worksheet2.xlsx, then saves it as worksheet3.xlsx
+'''
+
+from win32com.client import Dispatch
+wkbk1 = "worksheet1.xlsx"
+wkbk2 = "worksheet2.xlsx"
+wkbk3 = "worksheet3.csv"
+excel = Dispatch("Excel.Application")
+excel.Visible = 1
+excel.ScreenUpdating = False
+
+# copy from source
+source = excel.Workbooks.Open(wkbk1)
+excel.Range("A2:D4").Select()
+excel.Selection.Copy()
+
+# paste (appended) to target
+target = excel.Workbooks.Open(wkbk2)
+
+ws = target.sheets(1)
+used = ws.UsedRange
+maxrow = used.Row + used.Rows.Count - 1
+maxcol = used.Column + used.Columns.Count - 1
+newrow = maxrow + 1
+
+destrange = "A"+str(newrow) #+":C9"
+print(destrange)
+
+excel.Range(destrange).Select()
+excel.Selection.PasteSpecial(Paste=-4122)
+
+# Excel requires the user to press enter after paste()
+# It says "select destination and press enter or choose paste"
+# This simulates pressing of the enter key:
+shell = Dispatch("WScript.Shell")
+shell.SendKeys("{ENTER}", 0)
+
+excel.ScreenUpdating = True
+ws.SaveAs(wkbk3, 24) # 24 = csv format

runMacro.py

@@ -1,17 +1,17 @@
-import os
-import win32com.client
-
-excelFile = "time.xlsm"
-macroToRun = "time.xlsm!Module1.Button1_Click"
-
-if os.path.exists(excelFile):
-    xl = win32com.client.Dispatch("Excel.Application")
-    
-    xl.Workbooks.Open(Filename=excelFile, ReadOnly=1)
-    # remove ", ReadOnly=1" for file save
-    
-    xl.Application.Run(macroToRun)
-    #xl.Application.Save() # uncomment for file save
-    
-    xl.Application.Quit() # Comment this out if your excel script closes
-    del xl
+import os
+import win32com.client
+
+excelFile = "time.xlsm"
+macroToRun = "time.xlsm!Module1.Button1_Click"
+
+if os.path.exists(excelFile):
+    xl = win32com.client.Dispatch("Excel.Application")
+    
+    xl.Workbooks.Open(Filename=excelFile, ReadOnly=1)
+    # remove ", ReadOnly=1" for file save
+    
+    xl.Application.Run(macroToRun)
+    #xl.Application.Save() # uncomment for file save
+    
+    xl.Application.Quit() # Comment this out if your excel script closes
+    del xl

worksheet1.xlsx

@@ -0,0 +1,7 @@
+item,count,price,total
+apples,1,2,2
+bananas,5,6,30
+oranges,10,11,110
+bacon,15,16,240
+hot dogs,20,21,420
+hamburger,25,26,650