Write me an excel macro that formats files in a directory to .csv

Sub ConvertToCSV() ' Declare variables Dim sourceFolder As String Dim targetFolder As String Dim sourceFile As String Dim targetFile As String

' Set the source and target folders
sourceFolder = "C:\MyFiles\"
targetFolder = "C:\MyFiles\Converted\"

' Loop through all the files in the source folder
For Each sourceFile In Dir(sourceFolder & "*.xlsx")
    ' Set the target file name
    targetFile = targetFolder & Replace(sourceFile, ".xlsx", ".csv")

    ' Open the source file
    Workbooks.Open sourceFile

    ' Save the file as CSV
    ActiveWorkbook.SaveAs targetFile, xlCSV

    ' Close the source file
    ActiveWorkbook.Close
Next sourceFile

End Sub

A python program that copies content from a web page and pastes it to notepad

Import the required modules

import webbrowser import pyperclip import time

Set the URL of the web page to be copied

url = "https://en.wikipedia.org/wiki/Main_Page"

Open the web page in a new browser tab

webbrowser.open(url, new=2)

Wait for the page to load

time.sleep(5)

Copy the page contents to the clipboard

pyperclip.copy(document.body.innerText)

Open Notepad

webbrowser.open("notepad.exe")

Wait for Notepad to load

time.sleep(3)

Paste the copied text into Notepad

pyperclip.paste()