Open "Temp" for Binary Acces Write S #1
Write #1, 12
Close #1
выдает ошибку bad file mode?

используйте функцию Put()

Массив в таблице. В процедуре открывается таблица как RecordSet.
Эти данные нужно отправить в бинари файл с переносом строки или без.
Пробовал организовать цикл, результат непонятен.
Как проверить в файле запись, записано или нет ?

В файл нужно записать 10 чисел в цикле.
Как организовать этот цикл записи?
Put в цикле с переводом строки и без.

И вот ещё мнимножко

Это не по теме , но натолкнуть может........

Вопрос: Работа с файлами средствами VB (Далее приведены 2 готовые функции, читающие текстовый файл в строковую переменную) Совет:  Примеры по работе с файлами из среды VB (VBA) Добавил на сайт: am 08.08.2003 'Чтение бинарного файла в массив байт Open sFileName For Binary Access Read As #1     Get #1, , TheBytes() Close #1 'запись массива байт в файл Open sFileName For Binary Access Write As #1     Put #1, , TheBytes() Close #1 'Построчное чтение текстового файла iFile = FreeFile     Open App.Path & "\" & sININame For Input As iFile         Do While Not EOF(iFile) ' Loop until end of file.             Line Input #iFile, txt             'sINI = sINI + txt + vbCrLf         Loop     Close iFile 'построчная запись в текстовый файл     fnum = FreeFile     file_name = App.Path     If Right$(file_name, 1) <> "\" _         Then file_name = file_name & "\"     file_name = file_name & LOG_FILE_NAME     Open file_name For Append As #fnum     ' Remember that the file is open.     file_open = True     ' Write the date and time, and the error message.     Print #fnum, Now     Print #fnum, "Computer: " & ComputerName     Print #fnum, txt1     Print #fnum, "**********"     ' Close the file.     Close #fnum 'Далее приведены 2 готовые функции, читающие текстовый файл в строковую переменную. 'первая читает построчно, вторая файл целиком. По быстродействию вторая функция значительно быстрее. Public Function File2Str(sPath As String) As String Dim txt As String Dim sLine As String Dim fn As Long fn = FreeFile     Open sPath For Input As fn     Do While Not EOF(1)         Line Input #fn, sLine         txt = IIf(Len(txt) > 0, txt & vbCrLf, "") & sLine     Loop Close fn File2Str = txt End Function 'am 030505 Public Function File2StrB(sPath As String) As String Dim txt As String Dim sLine As String Dim fn As Long fn = FreeFile Dim TheBytes() As Byte ReDim TheBytes(FileLen(sPath) - 1)     Open sPath For Binary Access Read As fn         Get #fn, , TheBytes()     Close fn File2StrB = StrConv(TheBytes(), vbUnicode) End Function

Т.е. в существующем файле надо заменить один фрагмент другим, зная его размер и с какой позиции он начинается?
Put #1, i, bytArr
Эта инструкция заменяет или добавляет определенное количество байтов (сколько их присутствует в массиве), начиная с позиции, указанной в переменной i.

Dim bytArr(1 To 10) As Byte bytArr(1)=Число1 bytArr(2)=Число2 ... bytArr(10)=Число10 Put #1, 3, bytArr 'В файле заменяется 10 байтов, начиная с третьего.

Можно и по другому:

Put #1, 3, CByte(Число1) Put #1, , CByte(Число2) ... Put #1, , CByte(Число10)

Вы всё время что-то не договариваете. Спрашиваете, как записать массив в файл, раасказываете, что массив у вас в таблице, а затем уточняете, что это 10 отдельных чисел.
Что и как у вас хранится в таблице?

Это значит, что в стоке 20 находятся байты с HEX адресами от 20 до 2F (начиная с 0).
В свою очередь в VBA преобразование выполняется так (в окне отладки):
?&H20
32
?Hex(32)
20

В вашем случае инструкцию можно написать так:
Put #1, &H2E+1, Число1

Забудьте про массив. Если инструкции Put передать переменную Long, то запишется 4 байта, а если Integer, то 2.
Т.е. достаточно сделать так:

Dim i As Integer   i = 12 Put #1,&H2E+1, i

Или еще проще:
Put #1,&H2E+1, CInt(12)