Read & Write Mp3 File Tag Properties
The problem with the Write macro was that, although it did work, it used SendKeys which has to be slowed down considerably.
Here is a new version of the Write macro that works as normal. I originally tried to use CDDBControl.dll version 1.2.0.51 which is widely available on the internet but found that I could only get it to change 1 file before crashing Excel.
I have put the READ macro in the next message.
Dim ws As Worksheet
Dim FromRow As Long
Dim LastRow As Long
Dim FilesToChange As Integer ' number of files to change
Dim FilesChanged As Integer ' number of files changed
Dim MyFilePathName As String ' full path & file name
Dim MyFileType As String ' mp3 wma etc.
'-
Dim id3 As Object
Dim MyArtist As String
Dim MyAlbum As String
Dim MyGenre As String
Dim MyTrack As String
Dim MyTitle As String
Sub WRITE_TO_EXPLORER()
Application.Calculation = xlCalculationManual
Set ws = ActiveSheet
Set id3 = CreateObject("CDDBControlRoxio.CddbID3Tag")
LastRow = ws.Range("A65536").End(xlUp).Row ' count worksheet rows
FilesToChange = ws.Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).Count
If FilesToChange = 0 Then MsgBox ("No files to change."): Exit Sub
FilesChanged = 0........................
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
VBA Read/write .MP3 & .WMA Properties()
I have had a long-held belief that Excel/VBA methodology is very suited to solving this problem. I have investigated several possible methods noted below and picked one that gives a "quick win". I offer my results so far as a step towards the goal, as well as giving an example of how to manipulate a non-MS Office application using VBA. In this case Windows Explorer - I have used similar code on corporate applications like Oracle and SAP. My 'Write' method uses Sendkeys. Luckily I have been able to do the job without having to use code to simulate mouse functions or using API calls to simulate key presses. Ideally I would like to use something more stable, but there is the bonus that it is simple, as well as changing WMA and both versions of MP3 tag (see below) if present. Perhaps on reading this someone else may have a better method. Being a ballroom dancer I have a large collection of CDs as well as software to rip to hard drive and enhance the sound quality. Many are quite old. A big problem has been to get a consistent view of the file properties - especially Genre, (eg. Waltz, Foxtrot .. etc.) which, from my own CD burning or external sources, is missing, or incorrect from using the now obsolete ID3v1 tag standard list. Applications such as Windows Media Player and RealPlayer allow functionality to edit tags but become very tiresome when it comes to making bulk changes - such as after burning a new CD. When viewing properties of the same file in various other applications they often show things like Title & Artist switched, and Genre not at all. I have tried software to change MP3 file tags, but find them over-complicated, confusing, and difficult to make the bulk changes I need. With Windows Explorer we can only change 8 properties - but I find these sufficient. My method is :- 1. READ : Run one macro to put data into a worksheet..... 2. MAKE CHANGES : Make manual changes to the Excel worksheet in the normal way.... 3. WRITE : Run another macro to read the worksheet and update the file properties in Explorer. Part 1 is very simple and robust. Part 3 is difficult because when we use Sendkeys to mimic keyboard entry the code runs too fast to allow time for things to happen on screen, so we have to put Wait statements *depending on how fast the computer runs*. So Slower is better - up to a point. Properties are added to MP3 files by using a "Tag" - additional bytes of information which form part of the file. WMA files are a Microsoft invention using a similar, but different structure. Interestingly, using my code to make changes via Window Explorer updates BOTH MP3 Tag versions as well as .WMA files. I moan about Microsoft less and less. MP3 *ID3v1* consisting of 128 bytes always at the end of the file is now 'obsolete' - despite being still in use. This is very easy to read/write using the same code as for Text Files eg. Open "c:myfile.mp3" For Binary As #1 etc. It is, however, limited to 4 text fields of 30 characters max, 'Year' =4 characters, and 'Genre' is a single character, the Asc() code of which is a lookup to a standard list which contains 125 items - none of which is any good to me. Could have my own lookup I suppose. MP3 *ID3v2.3* is in the process of being superseded by ID3v2.4. The big problem here is that there are several different versions and the code required is extremely complicated - mainly due to the use of variable length fields. So we not only have to find the property, but read the field length before getting the field contents. Writing would need to change the coded field length. This is further complicated by there being the option to use an "Extended Tag" - *or not* ! Version 2 tag can be at the beginning or end of the file (before ID3v1 if it exists) - or both. The MP3 files on my computer all seem to have both versions - v2 at the beginning and v1 at the end. It is further complicated by the ability to have User Defined fields. I see some of my files have a user defined 'Genre' field, despite having the standard one 'TCON' too. The tag also needs a form of "encryption" so that the mp3 player does not treat it as audio data. Visit here for detailed information http://www.id3.org . To view an audio file in its raw state open it in a Text Editor. I use 'TexPad' which is very fast and gives a choice of Binary (with Text 'translation' in a column) or Text view. Notepad gives just a Text view with empty space for non-text/binary characters. There is a large number of Null characters Asc(0) in proportion to the overall file length - mainly for "future development" I believe. I would be interested to hear of any comments, suggestions and code improvements. READ CODE IS IN THE "REPLY" BELOW
View Replies!
View Related
Read-Write Popup - File Now Available
I have a tool that accesses a master sheet. Multiple people use the tool (sort of a user interface). In some cases I need to write to the Master in which I check to make sure its not read only when the macro opens it (that works fine). In other cases, like when just pulling information, read only is fine. But, I have not specified read only when I open the master. Sometimes the users are getting a "File Now Available" with a read-write and cancel option. I do not want them to get this message. My current universal call to master looks like this: ...
View Replies!
View Related
Read Text File And Write Text
What if you have text that are hyperlinked to a txt file and you want to read from it and copy it into excel. What can I do then. Here is what I have been working on so far: Sub GoToHyperLink() Dim cell As Range Dim link As Hyperlink Dim Textline As String Range("C2:C13").Select For Each cell In Selection Selection.Hyperlinks(1).Follow NewWindow:=False I can not get it to write it to excel.
View Replies!
View Related
Only Execute Code On A Write-access Basis, Not Read-only
I have recently used a before_close event on this workbook to save a backup of the open file to another location on my system. This works fine but I was wondering if there was some more code I could add to only execute this event on a write access basis. The file I use can be viewed by anyone on the network as read-only and only certain users with a password can edit/update with a write access password. The backup event is use executes every time the document is closed be it read-only or write-access. Ideally I would like to add some code to only execute this backup if the file is opened on a write-access basis.
View Replies!
View Related
Attempted To Read Or Write Protected Memory Error
I create and delete a conditional formatting rule programmatically. The issue I am facing is when I try to delete the conditional formatting rule that I programmatically created, I ran into the following errors: 1. Exception from HRESULT: 0x800A03EC 2. Attempted to read or write protected memory. this is often indication that other memory is corrupt. I get these errors only when I have user created conditional formatting rules prior to deleting – I don’t want to delete all conditional formatting rules using FormatConditions.Delete(). Further, I can’t use FormatConditions[index].Delete() because I don’t have a index reference for the one that was created from the application. Note: I have checked the Trust access to the VBA project object model.
View Replies!
View Related
File May Be Read-Only, Or You May Be Trying To Access A Read-Only Location
I'm trying to open a file on a network drive...but I'm getting the following error message when it opens: "This file may be read-only, or you may be trying to access a read-only location. Or the server the document is stored on may not be responding." Now, the file itself has no rights restrictions and is not read only. It doesn't appear to be locked. Now, there are other Excel files in the same directory which I could open fine; however, the Excel documents having the above problem all have a little black icon "appears to be a padlock" (image attached) at the bottom left hand side of the Excel file icon. I tried the following: - Renaming - Converting to a different file format (didn't work, it won't let me) - Opening in notepad...etc doesn't work. This file is dated back in 2004...do you think it's corrupt? Is there anything i can do to open or recover this?
View Replies!
View Related
Read Cell Content & ADD Content + Font Properties *SOLVE
I use this to read cell content, add some text/characters (ie. [ and ]) and change the properties of the complete cell Sub COMMENT() Worksheets("DVD Lijssie").Activate If ActiveCell.Value 0 Then ' Change all in to ... ... ... ActiveCell.FormulaR1C1 = ActiveCell.Value & " " & "]" & " " & "[" With ActiveCell.Font .Name = "Arial Narrow" .Size = 8 .ColorIndex = 16 End With End If End Sub HOW can I change this vba-code so it leave's the content of the cell like it is and add some content with the use of let's say TexBox1 and ONLY use different font properties for the newely added content?
View Replies!
View Related
Extract File Properties From Workbooks Within Folder
I have a list of excel and word files in a folder...200+ of them. They all have the Author, Subject and Category populated under the File- Properties menu. From browsing through the site, I came across bits that suggest it is possible to do the following: Code that will run through a list of word/excel files in a designated folder, and extract the Excel(or Word) filename, Author, Subject and Category into a new excel file as a list?....................
View Replies!
View Related
Write To Text File
I'm getting an object required error in excel, but don't really understand. rivate Sub CommandButton1_Click() free_number = FreeFile() Filename = app.Path & "/file_write_output.txt" StringToSave = Cells(1, 1).Value Open Filename For Output As free_number Write #free_number, StringToSave Print #free_number, StringToSave Close #free_number End Sub
View Replies!
View Related
Macro To Write CSV File
I have a CSV file that contains data in columns A-Q. Some cells may be blank. I'm having trouble opening this CSV file because when I re-save it after editing it, Excel removes any quotes that were around the data. Here is the criteria that the data must be formatted like: If the value in column A = "H", the following columns need quotes around the cell - A-F, H-I, K-M, P-Q. The values in the rest of the columns do not need quotes. If the value in column A = "D", the following columns need quotes around the cell - A-D, F, I-O, Q. The values in the rest of the columns do not need quotes. Data is only in columns A-Q. Can somebody write a macro that will format the data as list above and save?
View Replies!
View Related
Sorting MP3 With VBA
I don't understand all of it, but I observed that it works only with mp3 with tag id v1, not v2, anyway I also see another code for tag id v2 given by NateO. But before entering in detail of what I want, is it possible to edit tag id v1 or even v2, with VBA? Because I want to complete my mp3 informations that are missing, or modify the wrong one, in excel, and then with a macro update my mp3 files... I've found this code on the forum to get my mp3 informations : Option Explicit Public Type mp3Info Header As String * 3 Title As String * 30 Artist As String * 30 Album As String * 30 Year As String * 4 Comment As String * 30 Genre As Byte End Type Sub Getmp3Info() Dim mp3ID As mp3Info Dim lngRow As Long, lngFile As Long Dim lngFileCnt As Long With Application.FileSearch .NewSearch .Filename = "*.MP3" .LookIn = "H:Daniel" 'Change this to the folder you wish to search .SearchSubFolders = True........................
View Replies!
View Related
Why Won't This Write My Text File
I have verified that there is data in the worksheet...but while the text file is created and properly closed, nothing is written to it. Sub ScoresToDeko() 'writes a text file Dim Scores As String Dim CRLF As String Dim count As Integer Scores = "" CRLF = Chr$(13) & Chr$(10)
View Replies!
View Related
Open File - Check For Write Protection
I have a command that opens up another workbook. This workbook is sometimes open on another computer, so that the book opens up on my computer in write-protected mode (shows in the top of the window). Usually, when opening other books through the Excel functionality, a message box appears if the file is open and warns that the file is in use by another user. However, with the code I have at the moment, this is not the case when I try to open with my command. See code below: Private Sub cmdOpenBook_Click() 'Open book ChDir "I:DevelopmentSpecialUtvikling" Workbooks.Open Filename:= _ "I:DevelopmentSpecialUtviklingJointApp.xls" End Sub Is there any way of displaying a msgbox warning when opening another file through VBA?
View Replies!
View Related
Write A Line Into A HTML File With VBA
Say there is a HTML file at C:DataFile.html I'd like to use Excel VBA to write this meta tag into that HTML file: ****** http-equiv="refresh" content="600"> That's to make it refresh every 600 seconds. The most elegant way would be to locate the "head" tag and write it right after it, but the refreshing meta tag seems to work where ever it is, even at the very end of the file after the "/html" tag! So locating the "head" tag is not that important, if it's difficult. So, how do I use VBA to write lines into a HTML (or any text) file?
View Replies!
View Related
Open Read Only File
I have a workbook set up with hidden worksheets available only with a password. What I would like to do is set this up so that those employees who have the password will have full rights to make changes, while those who don't have the password will have "read only" rights. It should always open as a "read only" file, and then change to full rights when you enter the correct password. I've also set this up so that it cannot be printed; can I also set it up so that it cannot be saved anywhere on our local drive? I have the macro set up to limit the access via a password, but don't know where or how to set up these other changes.
View Replies!
View Related
Make A File Read Only
I need to make a workbook read only depending upon certain conditions that are apparent only on start up. As I cannot assign the ReadOnly property, is my only solution to trap the Save command and dissallow "save changes".
View Replies!
View Related
Record/write Macros Independent Of A Specific File
I have recorded (i.e. manually as opposed to writing VBA code) a number of macros to perform a routine, however they do not work when I change the filename. Could someone please advise on how to edit these macros (which reference a specific filename) so that they work when the file name is changed. The macros copy and paste values from different worksheets and then run another set of macros. However all macros and worksheets are located within one excel file
View Replies!
View Related
Write Data To HTML File With Custom Tags
I'm trying to take the contents of an excel speadsheet and write it to an html file with my own formatting. For example I would like the row: |32|55|28| to end up in the html file as: <tr> <td class="align-right">32</td> <td>55</td> <td class="">28</td> </tr> In theory it seemed fairly simple to loop through a sheet and write before and after each cell, but once I tried writing the code I realized I was in way over my head.
View Replies!
View Related
File Too Big...way To Parse Out Data And Write To Csv
I have a file with multiple tabs of data...lot's of data (each tab has 80,000+ lines and 23 columns...3 are formulas, the rest is imported data). I've brought Excel to it's knees (i.e. crashes). Yes, I'm using 2007. What I'm trying to do is extract 6 cells of data from every 10th line and write it out to a CSV file with two more pieces of information (same for each line). What I was doing was creating a separate worksheet for each one to be extracted, parsing out the data, and then copying that data to yet another workbook that was then saved as a CSV. First, in retrospect, that was a waste of time. Second, the addition of the extra worksheets to do the parsing was crashing Excel due to the extreme size of the workbook. What I'd like to do is use a macro to do all of this in one swell foop: 1) Prompt me for a file name (or I can put the desired name in a cell and read it from there if that simplifies the code) 2) Open a new text file with that name and ".csv" extension in the same folder as the original workbook 3) Write out the column headers: (Fix, Satellites, Lat, Lon, alt (ft), Date, utc_t, course) 4) Step through each row, looking at the text contents of column B (looks like 22:50:07.100)...if it ends in ".000" do the following: 4a) write "PPS,4," to the open text file 4b) write the cell contents from columns "V", "W", "J", "C", "B", and "L" to the text file in the exact format they appear in the text cell. The output file should look like (very short example): Fix,Satellites,Lat,Lon,alt (ft),Date,utc_t,course PPS,4,30.543203,-86.323328,1419.04,2009/12/17,23:26:22.000,243.95 PPS,4,30.539272,-86.332765,1831.53,2009/12/17,23:26:34.000,242.61 PPS,4,30.535680,-86.340912,2281.16,2009/12/17,23:26:44.000,244.34
View Replies!
View Related
Write Array To Text File On Single Line
In VBA, is it possible to write to a text file, on 1 single line (without carriage return or line feed) the values of a dynamic array? For instance, I have the array: Dim my(n) As Double 'n is changeable my(0) = 0 my(1) = 1 my(2) = 2 ..... I want to write to a text file, like this: Write #filename, my(0), my(1), my(2) '..... until my(n) but n is changing I want them on 1 line, because I use the other direction (up - down) for other things).
View Replies!
View Related
Read Text File Using VBA
I know how to pull an entire text file into an Excel Spreadsheet, but I only want specific information from the text file not the entire text file. What I have is about 25 text files stored in a folder, let's say C: est. Each file is named by a property address as follows: 209 MAIN ST.txt 213 MAIN ST.txt 111 ELM ST.txt 2356 WOOD AVE.txt On the 11th row of each file is as follows: Property Address:209 MAIN ST On the 31st row of each file is as follows: Total Value:30500 What I would like to do is read each file located in the "C: est folder and write a record (row) into a single Excel Spreadsheet for each property. I would like the Excel Spreadsheet to look as follows once completed. Note the 1st row below is a header row that needs to be generated by the code. Property AddressTotal Value 209 MAIN ST 30500 213 MAIN ST 60700 111 ELM ST 20400 2356 WOOD AVE 20900 Can I read a header list (in a spreadsheet, text file, or hard coded in the code) which I would prefer the spreadsheet or text file method, write the header row in A1 then B1. Next read the 25 text files and search based on the header info written above (Property Address & Total Value) and write the appropriate to the single spreadsheet. The 11th row of the First text file value written in cell A2, then read the 31st row of the First text file write the value in cell B2, then loop to the Second text file and values from The 11th row of the Second text file value written in cell A3, then read the 31st row of the Second text file write the value in cell B3, so on and so forth until the last text file is read and the last record is written.
View Replies!
View Related
To Read A File And To Make Changes Using VBA
I have attached three excel files .....In the file called 'sampleBook1latest' I have a button called 'click here to clear a schedule' If I click that button and choose OR,start time and duration of a surgery then a schedule that is already created wil get cleared.....I have the total number of nurses and number of nurses used saved to the side of the sheet..... The total number of nurses at the side is read from another excel file called 'Input file for # of nurses' Now the problem is that if clear a schedule then the number of nurses used is not getting updated at the side.....if I clear a schedule then the number of nurses at the side should also get updated....for example(If I create a schedule with 3 nurses and if only a total of 3 nurses are available then..... the used number of nurses for that specific time at the side will get updated to 3 from 0 and if I clear that schedule then the used nurses for that time should again become 0).... The other problem is that if I schedule a surgery then all details of the surgery will be saved in another excel sheet called 'input file for patient details' so if I clear a schedule then all the details of that surgery saved in that excel sheet should also be cleared......
View Replies!
View Related
Code To Open A Read Only .xl File
I have a read only excel file which I want to interrogate in another report. I'm writing some code to open the file but I'm not sure how to get past the password/read-only prompt when opening the file. My code is: Workbooks.Open Filename:= "C:Sales2006.xls" I assume it's possible to write some code to get past the prompt. I have checked the help files which do seem to indicate it's possible to specify a read only property but it doesn't say how.
View Replies!
View Related
Read Each Line Of Text File
I'm using the following code to read a text file that I downloaded from a mainframe file. Do While Not EOF(FileNum) Line Input #FileNum, myLine Debug.Print myLine Loop It reads and prints the first line, but then drops out of the loop. According to the help file, "Line Input" is looking for a carriage return (Chr(13)) or carriage return–linefeed (Chr(13) + Chr(10)) sequence. I have pasted a sample of the text file below. I'm not sure what the characters are at the beginning of each line, but perhaps I could find a way to replace each of them with a carriage return. SAMPLE:............................
View Replies!
View Related
VBA To Read Data From A Text File
I have written a VBA to read data from a text file (almost 5 MB = 2 lakh rows) and write into excel file. The script runs fine and transfers all data to the excel.But when i open the resulting excel file, only the first 2 and the last worksheets are visible. The worksheets in between and the data in it are missing. Second issue is tht, although i have written code to create a new worksheet when row number reaches 65535, the script writes only till row no. 32768.
View Replies!
View Related
Read / Import Text File Into Worksheet
I want to read data from Notepad into Excel. I found this code on the net and have been trying to modify it for my needs: Sub ImportText(FileName As String) Dim X As Long Dim FileNum As Long Dim TotalFile As String Dim Lines() As String Const DataRowStart As Long = 1 Const DataColStart As Long = 1 FileNum = FreeFile Open "C:...data.txt" For Binary As #FileNum................. This pastes the contents of each line into 1 cell but I want to paste each value into a seperate cell. So in the attached data.txt there are 5 records each of 2 lines. For example in the 1st record I want to paste 05-693-1900 into 1 cell then 0040 in the cell to the right of that, Town A into another cell, 000000 into another cell....and so on. For the 2nd line it should be 000000000033 into one cell, AA28816 into the adjacent cell...and each remaining number into a seperate cell. I also want to leave 3 blank lines before going to the next record.data.txt
View Replies!
View Related
Read In Multibyte Text File Characters
I have a Text-File with characters coded in simple chinese (gb2312) rsp. codepage 20936 and I want to read this file, paste the content in my worksheet. Later (after a chinese edited the text) I've to write this back to a text file. The only way I found to make this, is by copy/paste e.g. from WordPad, but I want to automate it with VBA.
View Replies!
View Related
Remove/Disable Open File As Read Only Option
Is there a way to remove the option to open a file as read only when the file is already open by another user? Ideally when a user tries to open a file that is already in use they would get a message to that effect and the only option at that point would be for them to select "notify" when file is available.
View Replies!
View Related
Read/Import Text File & Remove All Chr()
I have a comma delineated text file that is full of stock item details such as stock code, description, 3 different prices etc it is about 15 fields wide by about 400 rows down. I need to be able to import all rows but only certain columns into an excel worksheet using vba. I know I can easily just rename it to .xls or .csv or something like that but its a text file we export out of our system at work and we need to be able to give it to customers who then can import into this excel spreadsheet/calculator I am creating. The file looks something like this: "String 1", ""String 2", "String 3", "String 4", ...... all the way up to 15 There is 400 or so rows (which represent stock items) Now I need to copy all rows in column 1 (string 1) all rows in column 12, 13, 14, 15 (This is the only data I need from the text file in this particular spreadsheet/calculator) I have it working fine reading the entire row in one at a time splitting it up into a string array using the Split() function and then only copies the certain array indexes i need into the worksheet here is the code for this: ...
View Replies!
View Related
Open Workbook Within Zip File & Not Have Read-Only Status
I understand that vba can determine if the current file is read-only using the following to return true / false. GetAttr(ThisWorkbook.Path) And vbReadOnly which seems to work fine for determining if the file is read-only, as there is another instance of the file already open. However when opening a file straight from a zipped directory (i.e. not extracting the file first), Excel opens the file as read-only. The above code returns false in this instance, i guess because the workbook path has a .zip ending rather than the normal .xls etc endings. how to return true that the zip file is read-only?
View Replies!
View Related
Auto Numbering A Tag Name
I would like to know if there is a way to Auto number a text. I have a column with text tags (lets say Column B). These cells look at a specific cell (ex. A1) and see what text is written in it then copy the text into their own cells B1, B2, B3 and so on. So if cell A1 reports AAA then Column B cells become AAA all the way down. Now what I like to do is for column B cells look at A1, copy the text and add _01 infront of their copied text. so for Column B, B1 reports AAA_01, B2 is AAA_02, B3 is AAA_03 and so on
View Replies!
View Related
Create Tag In VBA?
I found this really cool code that creates a tag cloud in Excel using VBA. It's far too complex for my understanding but I was hoping I could get some of the experts opinions on here about modification possibilities. I have attached the macro-enabled 2007 workbook. What I am trying to do is search through a list of keywords and determine each keyword's density within a list. The list for example could look like this: slow windows xp windows xp running slow windows xp computer [slow windows xp] [windows xp running slow] [windows xp computer] [computer running slow windows xp] "computer running slow windows xp" "slow windows xp" "windows xp running slow" "windows xp computer" You'll notice the characters " [ ] of which I would like to ignore when the cloud builds. The cloud would list the most dense keywords first, and gradually decrease to the least dense keywords. The macro code is inside the workbook but I'll list it here to:
View Replies!
View Related
Sort The Data :: By TAG And PA Claim
I have a monumental amount of data that needs to be sorted. The data is sorted by TAG number and then by the claim type EG: PA or TA and so on. There are 8 possible claim types and Each TAG may have only 1 EG: PA or it may have PA, TA, BC and so on. The thing i need to do is sort the data firstly by TAG and PA claim, then instead of having the tag number again below the PA claim type, and having the same TAG number again and next column being a TA type claim, i want to have all CLAIM TYPES IN ONE ROW......
View Replies!
View Related
Formula To Change The Tag On The Other End
I am making several thousand wire tags for a water treatment plant which need to be installed at each end of the cable runs. What I have made so far is tags for one end of the run not the other. I am looking to create a formula to change the tag on the other end so that instead of it saying 1234 to 5678 it would now say 5678 to1234
View Replies!
View Related
|
TRACKER
