خواندن یک فایل باینری با عبارت Open در اکسل

Sub Temp()
Dim intFileNum%, bytTemp As Byte, intCellRow%
intFileNum = FreeFile
intCellRow = 0
Open "C:\temp.bin" For Binary Access Read As intFileNum
Do While Not EOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , bytTemp 

Cells(intCellRow, 1) = bytTemp

Loop 

Close intFileNum 

End Sub

نوشتاری 

Open pathname For mode [ Access access ] [ lock ] As [ # ] filenumber [ Len = reclength ]

mode: ( اجباری )

Append,Binary,Input,OutPut Or Random

Default : Random

access : ( اختیاری )

Read, Write, or Read Write.

filenumber: ( اجباری )

in range 1 to 511

use FreeFile function : برای بدست آورن شماره فایل موجود بعدی

در حالت های Binary ، Input و Random یک فایل را می توان با استفاده از شماره فایل متفاوت بدون بستن باز نمود. در حالت های Append و OutPut می بایست قبل از باز کردن آن با شماره فایل متفاوت ، آنرا بست.

عبارت یا دستور Get در Vba : ( خواندن داخل یک متغیر )

Reads data from an open disk file into a Variable.

Get [ # ] filenumber, [ recnumber ], varname

عبارت یا دستور Put در Vba : ( نوشتن )

Writes data from a Variable to a disk file.

Put [ # ] filenumber, [ recnumber ], varname

عبارت یا دستور Input در Vba : ( خواندن داده )

Reads data from an open sequential file and assigns the data to Variables

Input #filenumber, varlist

عبارت یا دستور Print در Vba : ( نوشتن در فایل )

Writes display-formatted data to a sequential file.

Print #filenumber, [ outputlist ]

OpenPort

Open "COM4:2400,N,8,1" For Binary Access Read Write As #1
cmnd$ = cmnd$ + Chr(13)
Put #1, , cmnd$
answer = ""
char = Input(1, #1)
While (char <> Chr(13))
If (char > Chr(31)) Then
answer = answer + char
End If
char = Input(1, #1) 'گرفتن کاراکتربعدی
Wend
Close #1

دهه سوم اردیبهشت ۱۴۰۲ :

فلاحتی امام جمعه رشت با انتقاد از حجاب برخی حاضران در مراسم گفت: سایت ها فردا می زنند نماینده ولی فقیه در جلسه ای شرکت کرد که حجاب را رعایت نکردند. من از همه زنان و دخترانی که این جا حجاب را رعایت نکرده‌اند، بیزارم...

Open StateMent

Maybe Comm=FreeFile Used

Open "COMFILE" For Binary Access Read Write As #1 

receiveBuff="@@@@@@@@@@"

Sleep 100

Debug.Print "Looking For incoming Msg"

On Error Resume Next

Do While True

receive = receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop 

On Error GoTo 0

Debug.Print "Looking again...."

On Error Resume Next 

Do While True 

receive= receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop

On Error GoTo 0

Debug.Print "Finished...Close ComFile"

 Close #1