>>Hi everybody,
>>
>>I'm converting xls into dbf. I have the following piece of code:
>>
>>

>>for lnI = 1 to m.lnCols
>>					.Cells(1,laFieldNames[m.lnI,3]).value = laFieldNames[m.lnI,1]
>>					try
>>						if .range(chr(64 + m.lnI) + ":" + chr(64 + m.lnI)).columns.columnwidth < 50
>>							.range(chr(64 + m.lnI) + ":" + chr(64 + m.lnI)).columns.columnwidth = ;
>>								.range(chr(64 + m.lnI) + ":" + chr(64 + m.lnI)).columns.columnwidth * 5 && To make sure long descriptions fit
>>						endif
>>					catch to loRangeProblem
>>* Let's ignore this error with the range and column width
>>					endtry
>>				next

>>
>>I found that several columns were hidden. They didn't end up in the resulting dbf. What should I do to make sure all columns are in my table?
>>
>>I also have another question. How can I lock the row with the headers when I output dbf to Excel?
>>
>>Thanks in advance.
>
>Unhide colums with:
>

>LOCAL oExcel AS Excel.Application
>oExcel = CREATEOBJECT([Excel.Application])
>oExcel.Workbooks.Add()
>oExcel.Columns([B:C]).Select
>oExcel.Selection.EntireColumn.Hidden = .t.  && Hide columns B and C
>oExcel.Visible = .t.
>INKEY(0)
>oExcel.Columns([A:IV]).Select
>oExcel.Selection.EntireColumn.Hidden = .f.  && Unhide all hidden columns
>INKEY(0)
>*** Freeze first row of sheet
>oExcel.Rows("2:2").Select
>oExcel.ActiveWindow.FreezePanes = .t.
>INKEY(0)
>

What does FreezePanes do and why do we need inkey here? I found about Hidden second ago myself after recording a macro <g>