VBA Export Data to Text File

Function Export data to text file

Sub ExportToTextFile(strType As String, Strprogram As String)

   Dim str1 As String, strPath As String, I As Integer

   Dim User As String

   Dim LogInTime As Date

   ‘Dim LogOutTime As Date

    User = Environ(“username”)

     ‘strPath = CurrentProject.path

     strPath = “H:\Public\”

   Close #1           ‘–make sure no open handles to text file

   Open strPath & “\txtExportTo.txt” For Append As #1

       str1 = User

       LogInTime = Now()

       str1 = str1 & “,” & LogInTime & “, ” & strType & “, ” & Strprogram

       Print #1, str1 ‘–using print to output to a text file does not add double quotes like the Write method

   Close #1

 End Sub

======================================

Call this function when form is loaded under the On Load Event

 

Private Sub Form_Load()

Dim Login As String

Dim Strprogram As String

Strprogram = “Attendence Log”

Login = “Log In”

Call ExportToTextFile(Login, Strprogram)

End Sub

These pills help in maintaining the equilibrium within generic viagra unica-web.com the body and promote normal functionality of the body. This is ideal for owners, as it removes the hassle of travelling, the need viagra overnight shipping for sedation, stress in the animal, and cost; a full anatomical report costs about the same as one x-ray. Those who are struggling with such a male partner and are likely to crave for other partners in future. cialis sale https://www.unica-web.com/index-french.html It is very important to buy a drug and treat a wholesale viagra cheap try for more info sexual issue.

Related posts