Есть лист эксель, куда импортируется некая информация. После ее обработки я должен нажать на кнопочку на листе, которая запишет содержимое некой ячейки в файл для внешней программы. Соответственно, если не нажимаю, записи в файл не происходит. Скрипт кнопочки следующий:  
 
Sub Êíîïêà1_Ùåë÷îê()  
Dim s(1 To 1000) As String  
Dim oRange As Range  
Open "c:\Trans.tri" For Input As #1  
While Not EOF(1)  
k = k + 1  
Input #1, s(k)  
Wend  
Close #1  
Open "c:\Trans.tri" For Output As #1  
Set oRange = Worksheets("Ëèñò1").Range("B1")  
a = oRange  
Print #1, a  
Print #1, "0"  
For i = 1 To k  
Print #1, s(i)  
Next  
Close #1  
End Sub

потому что надо в файл не диапазон записывать, а текст.  
объявите переменную "а" как стринг, должно заработать.  
 
если не получится - выкладывайте файл

Андрей, мы ведь не знаем что за формат.tri - может там таблицы, может текст... От автора информация скупая.

Да, обозначение переменной, как переменной str помогло, но в файле первая запись оказывается с пробелом, а все остальные (которые ниже) оказываются без него. Это некритично, конечно)  
 
Код теперь имеет вид:  
 
Sub Кнопка1_Щелчок()  
Dim s(1 To 1000) As String  
Dim strRange As Range  
Open "c:\Trans.tri" For Input As #1  
While Not EOF(1)  
k = k + 1  
Input #1, s(k)  
Wend  
Close #1  
Open "c:\Trans.tri" For Output As #1  
Set strRange = Worksheets("Лист2").Range("B1")  
Print #1, strRange  
For i = 1 To k  
Print #1, s(i)  
Next  
Close #1  
End Sub  
 
Файл прикрепил

Так без пробела:  
Sub Кнопка1_Щелчок()  
Dim s(1 To 1000) As String  
Dim strRange$  
Open "c:\Trans.tri" For Input As #1  
While Not EOF(1)  
k = k + 1  
Input #1, s(k)  
Wend  
Close #1  
Open "c:\Trans.tri" For Output As #1  
strRange = Worksheets("Лист2").Range("B1").Value  
Print #1, strRange  
For i = 1 To k  
Print #1, s(i)  
Next  
Close #1  
End Sub  
 
Заменил range на string

2 Hugo: я обязательно посмотрю утром и отпишусь :)