Question: how to convert excel to text file using vba?
Answer: Dim filename As String, lineText As String. ...  filename = ThisWorkbook.path & "\" & Worksheets("Product Table").Name & ".txt" ...  Open filename For Output As #1. ...  Set myrng = Range("Table1") ...  For i = 1 To myrng.Rows.Count + 1. ...  lineText = IIf(j = 1, "", lineText & Chr(9)) & myrng.Cells(i - 1, j) ...  Print #1, lineText.