Доброе.[vba]Код
Const file1 As String = "C:\1\1.txt"
Const file2 As String = "C:\1\2.txt"
Sub Order()
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(file1) Then
Set objOTS = objFSO.OpenTextFile(file1, 8)
Else
Set objfile = objFSO.CreateTextFile(file1)
Set objfile = Nothing
Set objOTS = objFSO.OpenTextFile(file1, 8)
End If
objOTS.Write vbNewLine & ActiveSheet.Range("D7")
Application.Wait (Now + TimeValue("0:00:02"))
Set objTextFile = objFSO.OpenTextFile(file2, 1)
ActiveSheet.Range("D10") = objTextFile.Readall
Set objTextFile = Nothing
Set objOTS = Nothing
Set objFSO = Nothing
End Sub
[/vba]