'Specify Save File Name and Path Dialog PRIVATE SUB CMDBROWSE_CLICK () with comMMondialog1 .initdir = "c: /" .filename = txtFileName.Text .dialogtitle = "Save to text file" .filter = "text file (* .txt) | * .txt | All files (*. *) | *. * "'.flags = cdlofnoverwriteprompt .showsave end with txtFileName.Text = CommonDialog1.FileNameEnd Sub
Private Sub DoExport (fileName As String) Dim fNum As Integer Dim X As Integer Dim Y As Integer Dim lCount As Long Dim szQuote As String 'quotes Dim szDelimiter fields used As String' delimiter Dim szData As String Dim szField As String
On Error GoTo errhandle szQuote = "" "" szDelimiter = "|" DoEvents 'Open the file Screen.MousePointer = vbArrowHourglass fNum = FreeFile Open fileName For Output As #fNum' Loop through the records, and save line by line lCount = 0.
