Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Open a text file for workbook

Public Sub OpenTextTest()   Dim FileName As String   FileName = ThisWorkbook.Path & "\Data.txt"   Call Workbooks.OpenText(FileName:=FileName, DataType:=xlDelimited, Tab:=True, DecimalSeparator:=",", ThousandsSeparator:=".") End Sub