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