|
<p>Sub myopentext()<br/>Workbooks.OpenText Filename:=ThisWorkbook.Path _<br/> & "\A.txt", startrow:=1, Space:=True, _<br/> fieldinfo:=Array(Array(1, 1), Array(1, 1))<br/>ActiveWorkbook.Sheets(1).Columns("A:B").AutoFit<br/>End Sub</p> |
|