Need someone to work with VBA within Excel to do the following:
Import ascii text all columns set to text
Set several columns to a calculated value
Delete the header (1st row)
Save file in XLS format
Use a VBA program to write file into ASCII file
End of? phase 1 of project
Login into a secure site with username and password
click on a button
post? ASCII file from Phase 1 above? into browse window
click on upload button.
Watch for confirm message
logout of secure site.
Here is the VBA code to write the file in ascii comma delimited.
Attribute VB_Name = "Module1"
Public Sub OutputQuotedCSV()
Const QSTR As String = """"
Dim myRecord As Range
Dim myField As Range
Dim nFileNum As Long
Dim sOut As String
nFileNum = FreeFile
Open "L:\OUTPUT\[url removed, login to view]" For Output As #nFileNum
For Each myRecord In Range("A1:A" & _
Range("A" & [url removed, login to view]).End(xlUp).Row)
For Each myField In Range(.Cells(1), _
sOut = sOut & "," & QSTR & _
Replace([url removed, login to view], QSTR, QSTR & QSTR) & QSTR
Print #nFileNum, Mid(sOut, 2)
sOut = Empty