How keep each column size? Look my code, Missing data

[gads]

Hi all,

I'm opening a text file and saving it as DBF. Convertion is OK, but some of my columns get cut when open DBF. Each column is comma delimited, some cols are bigger than others, some are 1 character long. How keep each column size without missing data?

Sub Conv()
Dim dName$
dName = "C:\arch.txt"
Workbooks.Open filename:=dName, Format:=1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\archdb.dbf", 11
ActiveWorkbook.Close
End Sub

Thanks in advance,
gads

 

[Zathras]

There appears to be a data width limitation within the DBF4 format, but I can get close if I change the input file extension to .csv and put this line in before the SaveAs:
[blue]

    ActiveSheet.UsedRange.Columns("A:IV").AutoFit

[/color]