SamoylovA
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, пожалуйста, токая проблема, с помощью макроса создаю текстовый файл, при запуске макроса появляется сообщение: код ошибки 53 (Файл не найден). Пробовал запускать на других компах макрос работает нормально, а на моем не хочет.
Текст Макроса:
Sub main()
Dim DataRow As Range, n As Integer, total As Double
Set DataRng = Range("DataRange")
Filename = ThisWorkbook.Path & "\Payment.txt"
Open Filename For Output As #1
Print #1, "START;" & Format(Date, "ddmmyyyy") & ";1;CREDIT;" & Range("OrgName").Value
n = 0
total = 0
For Each DataRow In DataRng.Rows
If IsEmpty(DataRow.Cells(1, 1).Value) Then Exit For
If DataRow.Cells(1, 2).Value > 0 Then
n = n + 1
total = total + DataRow.Cells(1, 2).Value
s = Format(DataRow.Cells(1, 2).Value, "#0.00")
' s = Replace(s, ".", ",")
s = Left(s, Len(s) - 3) & "," & Right(s, 2)
Print #1, DataRow.Cells(1, 1).Value & ";" & s
End If
Next
s = Format(total, "#0.00")
' s = Replace(s, ".", ",")
s = Left(s, Len(s) - 3) & "," & Right(s, 2)
Print #1, "END;" & n & ";" & s & ";RUR"
Close #1
Call FillReestr
End Sub
|
/
Нашёл, интересная штука. 