ListDataFormat property been deprercated?
 

The following is a section of code from the help file for the "Excel Help
ListData Format" object.

Is it just me or does the ListColumn object not have a ListDataFormat
property? I'm using Office 2007.

Anyone know if this has been deprecated and was just left in the help file?

---

Dim objListObject As ListObject
Dim objDataRange As Range
Dim strListGUID as String
Dim strServerName as String

strServerName = "http://<servername/_vti_bin"
strListGUID = "{<listguid}"

Set objListObject = Sheet1.ListObjects.Add(xlSrcExternal, _
Array(strServerName, strListGUID), True, xlYes, Range("A1"))

With objListObject.ListColumns(2)
Set objDataRange = .Range.Offset(1, 0).Resize(.Range.Rows.Count - 2, 1)
If .ListDataFormat.Type = xlListDataTypeText And
..ListDataFormat.Required Then
objDataRange.Value = "Hello World"
End If
End With

3rd Party Objects? ListDataFormat property been deprercated?
 

http://msdn.microsoft.com/en-us/library/bb223935.aspx
says here it is now read only - this field was made hidden in 2007.
guess there is no way to set field types now on list objects
Does anyone know if there is 3rd Party object that allows you to be able to
set field types in excel and push it to sharepoint?

"Phil" wrote:

The following is a section of code from the help file for the "Excel Help
ListData Format" object.

Is it just me or does the ListColumn object not have a ListDataFormat
property? I'm using Office 2007.

Anyone know if this has been deprecated and was just left in the help file?

---

Dim objListObject As ListObject
Dim objDataRange As Range
Dim strListGUID as String
Dim strServerName as String

strServerName = "http://<servername/_vti_bin"
strListGUID = "{<listguid}"

Set objListObject = Sheet1.ListObjects.Add(xlSrcExternal, _
Array(strServerName, strListGUID), True, xlYes, Range("A1"))

With objListObject.ListColumns(2)
Set objDataRange = .Range.Offset(1, 0).Resize(.Range.Rows.Count - 2, 1)
If .ListDataFormat.Type = xlListDataTypeText And
.ListDataFormat.Required Then
objDataRange.Value = "Hello World"
End If
End With