Search This Blog
Thursday, July 31, 2025
Wednesday, July 30, 2025
Tuesday, July 29, 2025
Sunday, July 27, 2025
Saturday, July 26, 2025
Friday, July 25, 2025
Thursday, July 24, 2025
Wednesday, July 23, 2025
RIP Lord of Darkness
Ozzy Osbourne passed away on Tuesday, July 22, 2025.
Alex and I had to decide if we wanted to see Slayer or Ozzy at Chicago Open Air 2017 - wow! That was 8 years ago! We chose Ozzy.
I'll continue to say that his autobiography is one of the best books. It tore away the hype that followed him and told me about the existence of John Michael Osbourne. I wrote a book review of it.
In the clips that have been floating around from The Osbournes, I'd forgotten the one where Sharon wanted to have bubbles shoot up from the stage... He liked to use inappropriate words that start with F...
Alex and I had to decide if we wanted to see Slayer or Ozzy at Chicago Open Air 2017 - wow! That was 8 years ago! We chose Ozzy.
I'll continue to say that his autobiography is one of the best books. It tore away the hype that followed him and told me about the existence of John Michael Osbourne. I wrote a book review of it.
In the clips that have been floating around from The Osbournes, I'd forgotten the one where Sharon wanted to have bubbles shoot up from the stage... He liked to use inappropriate words that start with F...
https://youtu.be/ scwyXedIVEg - Ozzy vs Bubbles | The Osbournes TV
Tuesday, July 22, 2025
Boo!
https://comicbookmovie.com/captain-america/captain-america-brave-new-world/kevin-feige-believes-captain-america-brave-new-world-underperformed-because-it-didnt-feature-chris-evans-a222938
Kevin Feige Believes CAPTAIN AMERICA: BRAVE NEW WORLD Underperformed Because It Didn't Feature Chris Evans
Monday, July 21, 2025
Sunday, July 20, 2025
Saturday, July 19, 2025
Thursday, July 17, 2025
Renaming MP3s with Excel
In Google.com, I entered the following: "rename mp3 files excel macro" and this is what was generated.
To rename MP3 files using an Excel macro, you can create a macro that reads old and new filenames from two columns in Excel and then uses the Name statement in VBA to rename the files. The macro will iterate through each row in your Excel sheet, taking the old filename from one column and the new filename from another, and then rename the corresponding file in the specified folder. [1, 2]
Sub RenameMP3Files()
Dim Source As Range
Dim OldFile As String
Dim NewFile As String
Dim FolderPath As String
Dim Row As Long
' Set the folder path where the MP3 files are located
FolderPath = "C:\Path\To\Your\MP3\Folder\" ' <<--- CHANGE THIS!
' Define the range in Excel containing the old and new filenames
Set Source = Cells(1, 1).CurrentRegion ' Assumes data starts at A1
' Loop through each row in the specified range
For Row = 1 To Source.Rows.Count
' Get the old and new filenames from the Excel sheet
OldFile = FolderPath & Source.Cells(Row, 1).Value ' Assumes old filenames are in column A
NewFile = FolderPath & Source.Cells(Row, 2).Value ' Assumes new filenames are in column B
' Check if the old file exists
If Dir(OldFile) <> "" Then
' Rename the file using the VBA Name statement
Name OldFile As NewFile
Else
' Handle the case where the old file doesn't exist
MsgBox "File not found: " & OldFile
End If
Next Row
MsgBox "File renaming process completed."
End SubExplanation:
- Sub RenameMP3Files(): Defines the start of the macro.
- FolderPath = "C:\Path\To\Your\MP3\Folder\": Important: Replace this with the actual path to the folder containing your MP3 files. Make sure the path is enclosed in quotes.
- Set Source = Cells(1, 1).CurrentRegion: Defines the range of cells in your Excel sheet that contain the data for renaming. It assumes your data starts at cell A1 and extends to include all adjacent cells.
- For Row = 1 To Source.Rows.Count: Loops through each row in the defined range.
- OldFile = FolderPath & Source.Cells(Row, 1).Value: Constructs the full path for the old filename, retrieving the value from the first column (A) of the current row.
- NewFile = FolderPath & Source.Cells(Row, 2).Value: Constructs the full path for the new filename, retrieving the value from the second column (B) of the current row.
- If Dir(OldFile) <> "" Then: Checks if the old file actually exists in the specified folder.
- Name OldFile As NewFile: Renames the file using the Name statement in VBA. This is the core renaming command.
- Else: Handles the case where the old file does not exist.
- MsgBox "File not found: " & OldFile: Displays a message box indicating the file was not found.
- Next Row: Moves to the next row in the loop.
- MsgBox "File renaming process completed.": Displays a message box when the macro finishes processing all files. [1, 3, 4, 5, 6, 7, 8]
How to use the macro:
- Open your Excel workbook.
- Open the VBA editor: Press Alt + F11.
- Insert a new module: In the VBA editor, go to Insert > Module.
- Paste the code: Paste the code into the module.
- Modify the FolderPath: Change the FolderPath variable to point to the correct directory on your computer.
- Prepare your Excel data: In your Excel sheet, make sure you have two columns: one with the old filenames and another with the new filenames.
- Run the macro: Go back to your Excel sheet, and then in the VBA editor, press F5 or click the "Run" button (the green triangle) to execute the macro. [3, 9, 10, 11]
Important considerations:
- File Paths: Ensure the file paths in your Excel sheet and the FolderPath variable are correct and that the files exist at those locations.
AI responses may include mistakes.[2] https://www.reddit.com/r/excel/comments/1aq38b4/looking_for_a_macro_that_can_copypasterename_the/
Wednesday, July 16, 2025
Tuesday, July 15, 2025
Monday, July 14, 2025
Sunday, July 13, 2025
Thursday, July 10, 2025
Wednesday, July 9, 2025
Monday, July 7, 2025
Sunday, July 6, 2025
Wednesday, July 2, 2025
Tuesday, July 1, 2025
Subscribe to:
Comments (Atom)