Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Import a file

Option Explicit Sub ImportDemo()   Dim fname$   Dim newworkb As Workbook   fname = ThisWorkbook.Path + "\file.txt"   Workbooks.OpenText Filename:=fname, _     Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _     Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _     Other:=False, DecimalSeparator:=".", ThousandsSeparator:=" ", _     FieldInfo:=Array(Array(1, 1), Array(2, 3), Array(3, 1), Array(4, 1))   Set newworkb = ActiveWorkbook   newworkb.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(1)   newworkb.Close False End Sub