>>>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>



INKEY() is just for my test, so I can switch between VFP and Excel to watch what happens) you must remove it in production. FreezePanes freezes all rows above selected and all columns in left of selection (selection is not included).