Excel-VBA-Collection

1
Attribute VB_Name = "Export"
2
Option Explicit
3
Option Compare Text
4
Option Base 1
5
DefLng A-Z
6

7
Public Sub ExportComita()
8
    Dim fi As String, fo As String
9
    fi = Cells(1, 1)
10
    fo = "G:\OD\FORMS\ARM FM\import_oes\"
11
    FileCopy fi, fo & FileNameExt(fi)
12
    On Error Resume Next
13
    Shell "G:\OD\FORMS\ARM FM\COURIER.BAT"
14
End Sub
15

16
Public Sub ExportSVK()
17
    Dim fi As String, fo As String
18
    fi = Cells(1, 1)
19
    fo = "G:\OD\FORMS\F161p\out\"
20
    FileCopy fi, fo & FileNameExt(fi)
21
End Sub
22