macro import file hex in excel

[tatop]

cerco una macro che mi permetta di importare un file hex in excel.
tanks

I want a macro that allows me to import a hex file into Excel.
tanks

[martindwilson]

a hex file? what is that. is it a text file with hex numbers?

[tatop]

a hex file? what is that. is it a text file with hex numbers?

I have to import the files with a programmer to read eeprom ... having an extension. bin and contain the hex.
tanks

[Firefly2012]

If you have a bin(ary) file, then don't you want to open it in a hex editor to review/make changes? Apologies, i just can't see why you might open it in Excel...

[snb]

Not too complicated; reading as HEX file, converting to ascii

Please Login or Register  to view this content.

[tatop]

Not too complicated; reading as HEX file, converting to ascii

Please Login or Register  to view this content.

TANKS for macro but I try a macro that displays the values ​​of excel a BIN file in hex, sorted as if it were an editor and divided by single byte.

[tatop]

If you have a bin(ary) file, then don't you want to open it in a hex editor to review/make changes? Apologies, i just can't see why you might open it in Excel...

I would like to open it in Excel because I have to perform calculations using the algorithm on the file and then save it in. bin, to rewrite the EEPROM

[martindwilson]

i still don't understand, what would an example excel file look like?

[snb]

Yes I see, but are you aware that a cell in Excel can only show a limited amount of characters ?
So where do you want the hex characters to be shown in Excel ??

[tatop]

i still don't understand, what would an example excel file look like?

0 1 2 3 4 5 6 7 8 9 a b c d e f
0 af 12 bf ff 44 5f 6f ff ff 12 f1 34 55 89 ff ac
10 5f 6f ff ff 12 ff 44 5f 6f ff 5f 6f ff ff 12 12
20 f1 34 f1 34 55 89 ff ac ff 44 5f 6f ff ff 12 12
30 6f f1 34 55 89 f1 34 55 89 ff ac ff 44 5f 6f ff
40 5f 6f ff ff 12 5f 6f ff ff 12 ff 44 5f 6f ff ff
50 bf ff 44 5f 6f ff ff 12 f1 34 55 89 ff ac ff ff
60 f1 34 55 89 5f 6f ff ff 12 12 f1 34 55 89 ff ac
70 f1 34 55 89 5f 6f ff ff 12 12 f1 34 55 89 ff ac
80 f1 34 55 89 ff ac ff 44 5f 6f ff ff 12 ff 44 5f
90 ff 44 5f 6f ff bf ff 44 5f 55 89 ff ac ff 44 5f
100 f1 34 bf ff 44 5f 6f ff ff 12 f1 34 55 89 ff ac

[tatop]

Yes I see, but are you aware that a cell in Excel can only show a limited amount of characters ?
So where do you want the hex characters to be shown in Excel ??

ok, every single cell in excel it must contain two characters (a single bite (AB) ok ?????
see attached sample file first

[snb]

You only have to change the file's name

Please Login or Register  to view this content.

[tatop]

thanks for the macro, but I have two problems:
1) the last cell of the first line is empty and the value of that cell is inserted into the cell below, so moving 'the last column at the bottom of a cell;
2) values ​​in individual cells are displayed as text but I would display them as hexadecimal values ​​as I have to make calculations.
You can edit the macro please
thanks a lot

[protonLeah]

Try this one:

Please Login or Register  to view this content.

[tatop]

tanks but when play macro :

index out of range

[protonLeah]

When I was writing/testing the macro, I used a file from my own computer and entered the output to a worksheet I named BEN. The mod below will write the output to what ever the active sheet is. But you must still tell the macro where the binary file is located >> change the BLUE portion of the code below.

Please Login or Register  to view this content.

1. What is the path and name of your file ?
2. Where did you copy the code (did you put it in a worksheet module)?

[tatop]

When I was writing/testing the macro, I used a file from my own computer and entered the output to a worksheet I named BEN. The mod below will write the output to what ever the active sheet is. But you must still tell the macro where the binary file is located >> change the BLUE portion of the code below.

Please Login or Register  to view this content.

1. What is the path and name of your file ?
2. Where did you copy the code (did you put it in a worksheet module)?

TANKS, works perfectly ....... but I still need you !!!!!!
I'm sorry .... Once I changed the file in excel how do I save it in. BIN?? I need to calculate a few bytes to join 4-cell, and I do it with the following function: "= A1&A2&A3&A4 "..... but then how do I rewrite the result obtained on 4 separate cells?hopefully last question: can you give me create a macro that I want to ask me to upload files without having to change each time the macro??
tanks
tanks

[Firefly2012]

Does the EEPROM use Big- or Little-endian data? That may well determine how you want the data extracted and written to the file.

[tatop]

TANKS, works perfectly ....... but I still need you !!!!!!
I'm sorry .... Once I changed the file in excel how do I save it in. BIN?? I need to calculate a few bytes to join 4-cell, and I do it with the following function: "= A1&A2&A3&A4 "..... but then how do I rewrite the result obtained on 4 separate cells?hopefully last question: can you give me create a macro that I want to ask me to upload files without having to change each time the macro??
tanks
tanks

UP !!!!!! tankssss

[tatop]

works perfectly ....... but I still need you !!!!!!
I'm sorry .... Once I changed the file in excel how do I save it in. BIN?? the edited file copy it
in a new folder and from there I would save as. bin by entering the name.
You can become part of that macro please??
I've lost all night but nothing. thanks
I added your macro to open files with this code:
Sub BinToHex()
Dim ColumnNumber As Long, _
RowNumber As Long, _
Ndx As Long, _
InBucket As Variant

Dim FileName As String



FileName = Application.GetOpenFilename

If Not FileName = "False" Then MsgBox FileName

Open FileName For Binary As #1
InBucket = Input(LOF(1), #1)
Close #1
RowNumber = 3
ColumnNumber = 1

For Ndx = 1 To Len(InBucket)
ColumnNumber = ColumnNumber + 1
Cells(RowNumber, ColumnNumber) = Hex(Asc(Mid(InBucket, Ndx, 1)))
If (Ndx Mod 16) = 0 Then
RowNumber = RowNumber + 1
ColumnNumber = 1
End If
Next Ndx
Call SOSTITUISCI_00
Call FILE_BIN_ORIGINALE
End Sub


Private Sub CommandButton1_Click()

End Sub





and it works fine.

aspect of your news

[shg]

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.

[protonLeah]

tatop seems to be done but I thought I would post the update anyway:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[tatop]

tatop seems to be done but I thought I would post the update anyway:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

tanks , the first macro is OK...loaf file OK
but the macro SaveAsBinary dont go!!!
show this error:
error of runtime "438"
Property or method not supported

can u correct , please

thank again !!!!!!

[tatop]

up ! ! ! ! !

[protonLeah]

Sorry, the save macro runs on my machine. I'm not familiar with runtime error 438. Can you step through the "save" macro to see which line is highlighted when it stops?

[tatop]

error 438.jpg

error of runtime "438"
Property or method not supported

[tatop]

Attachment 137838

error of runtime "438"
Property or method not supported

[tatop]

Sorry, the save macro runs on my machine. I'm not familiar with runtime error 438. Can you step through the "save" macro to see which line is highlighted when it stops?

I'm sorry, the macro in Excel 2007 works, the problem was that I was using Excel 2003. I have it converted and it works .... only problem is that, hex conversion is incorrect, because when I save the bin file I see only data wrong.
my new code is:

Please Login or Register  to view this content.

[protonLeah]

O.k. the error 438 is because you don't seem to have the Analysis ToolPak installed on your machine:

HEX2DEC

If this function is not available, and returns the #NAME? error, install and load the Analysis ToolPak add-in.

On the Tools menu, click Add-Ins.
In the Add-Ins available list, select the Analysis ToolPak box, and then click OK.
If necessary, follow the instructions in the setup program.

2. In the line:

Please Login or Register  to view this content.

you are trying to use the CLng function to convert a value on the worksheet to a long integer. However, you have made a couple of mistakes.

The Clng function works with decimal values such as 1202.667 converting it to 1203. In your spreadsheet you have strings representing hex numbers such as "FE" in a cell, say D4.

Since F & E are not decimal digits, were you to write the function correctly you would write Clng(Range("D4").Value) or Clng(Cells(RowNdx,ColNdx).Value) you would get an error.

But, you wrote the Clng function wrong, so it returns an error value to the Chr() function and it in turn errors since there is no character mapped to those error values.
The result is that the line simply loads the output array with error values.
-------------------------
Also, the lines:
t0 = Timer, and
Debug.Print "elapsed time ", Timer - t0 should be deleted, that was just an experiment for me while making changes.