| |
|
|
| | Дружественная программа генерирует отчеты в текстовый файл в указанную папку. Файл импортируется в таблицу mdb через меню Файл-->Импорт. Можно ли автоматизировать этот процесс средствами VBA? | |
| |
| |
| |
|
|
| |
Private Sub Nu_Poehali()
On Error GoTo Err_Nu_Poehali
Dim ReportHeader As String
Dim FileNameBAZ As String
Dim FileName_01 As String
Dim Lazha As String
Dim i As Long
FileName_01 = CurrentProject.Path & "\BAZ_Convert_01.txt"
FileNameBAZ = CurrentProject.Path & "\ATC1_051005_ISX.REP"
Open FileName_01 For Output As #1 'пишем
Open FileNameBAZ For Input As #2 'читаем
Do While Not EOF(2)
Line Input #2, Lazha
i = i + 1
If i < 5 Then
ReportHeader = ReportHeader & " | " & Trim(Lazha)
End If
If i > 8 Then
If Left(Lazha, 5) = "_____" Then
Exit Do
Else
Print #1, Mid(Lazha, 2)
End If
End If
Loop
Close #2
Close #1
CurrentDb.Execute "DELETE * FROM tab_REP;", dbSeeChanges
CurrentDb.Execute "INSERT INTO tab_REP(IshAb, BizAb, DateRazg, TimeFirst, TimeLast, DlitelnTEd, DlitelnImp, DateTimeRazg) " & _
"SELECT rtrim(mid(f1,1,14)), rtrim(mid(f1,15,16)), mid(f1,31,10), mid(f1,41,11), mid(f1,52,12), mid(f1,64,8), mid(f1,72), mid(f1,31,10) & ' ' & mid(f1,41,11) " & _
"FROM BAZ_Convert_01#txt IN '" & CurrentProject.Path & "'[Text;HDR=No;IMEX=2;]", dbSeeChanges
DoCmd.OpenTable "tab_REP", acViewNormal
Exit Sub
Err_Nu_Poehali:
'Call ErrorBases(Err)
End Sub
|
| |
| |
| |
| |
|
|
| | файл с расширением .REP
БЕТА-СЕРВИС
АТС ATC1
Исходящие
Период с 05.10.05 по 05.10.05
Исх.абонент Вызываемый аб. Дата Время Время Длительн. Длительн.
(линия) (линия) разговора (начало)(конец) (тариф.ед.)(импульсы)
219 0076486 05.10.05 08:07:24 08:08:03 1 23:00:39
219 0076486 05.10.05 12:21:10 12:22:53 2 10:01:43
242 8146623744 05.10.05 08:41:12 08:41:13 0 23:00:01
243 0076486 05.10.05 11:00:47 11:09:35 9 23:08:48
243 0076486 05.10.05 11:30:04 11:30:21 1 23:00:17
243 8143450829 05.10.05 13:58:48 13:59:18 1 23:00:30
243 8143796238 05.10.05 13:55:07 13:56:56 2 23:01:49
243 8146096470 05.10.05 10:44:36 10:44:44 1 23:00:08 | |
| |
| |
| |
|
|
| | ФАЙЛ .TXT
219 0076486 05.10.05 08:07:24 08:08:03 1 23:00:39
219 0076486 05.10.05 12:21:10 12:22:53 2 10:01:43
242 8146623744 05.10.05 08:41:12 08:41:13 0 23:00:01
243 0076486 05.10.05 11:00:47 11:09:35 9 23:08:48
243 0076486 05.10.05 11:30:04 11:30:21 1 23:00:17
243 8143450829 05.10.05 13:58:48 13:59:18 1 23:00:30
243 8143796238 05.10.05 13:55:07 13:56:56 2 23:01:49
243 8146096470 05.10.05 10:44:36 10:44:44 1 23:00:08
243 8146426499 05.10.05 13:48:47 13:52:30 4 23:03:43
243 8146796238 05.10.05 13:54:34 13:54:38 1 23:00:04
245 0076444 05.10.05 10:08:39 10:09:14 1 23:00:35
245 0076488 05.10.05 13:26:48 13:28:54 3 23:02:06 | |
| |
| |
| |
|
|
| | К СОЖАЛЕНИЮ НЕ МОГУ ПОСЛАТЬ ФАйЛЫ
-- не отправляются чему-то.
 | |
| |
| |
|
|
