Объект ListDataFormat (Excel)ListDataFormat object (Excel)

Объект ListDataFormat содержит все свойства типа данных объекта ListColumn .The ListDataFormat object holds all the data type properties of the ListColumn object. Эти свойства доступны только для чтения.These properties are read-only.

ПримечанияRemarks

Используйте свойство ListDataFormat объекта ListColumn , чтобы возвратить объект ListDataFormat .Use the ListDataFormat property of the ListColumn object to return a ListDataFormat object. Свойством по умолчанию объекта ListDataFormat является свойство Type , которое указывает тип данных столбца списка.The default property of the ListDataFormat object is the Type property, which indicates the data type of the list column. Это позволяет пользователю создавать код без указания свойства Type .This allows the user to write code without specifying the Type property.

ПримерExample

В следующем примере кода показано, как создать связанный список из списка SharePoint.The following code example creates a linked list from a SharePoint list. Затем проверяется, является ли поле 2 обязательным (поле 1 — это поле ID, которое доступно только для чтения).It then checks to see if field 2 is required (field 1 is the ID field, which is read-only). Если это обязательное текстовое поле, то одни и те же данные записываются во все существующие записи.If it's a required text field, the same data is written in all existing records.

Примечание

В следующем примере кода предполагается, что в переменных стрсервернаме и _стрлистгуид_необходимо заменить допустимое имя сервера и GUID списка.The following code example assumes that you will substitute a valid server name and the list GUID in the variables strServerName and strListGUID. Кроме того, следует указать имя сервера, "/_vti_bin" или пример не будет работать.Additionally, the server name must be followed by "/_vti_bin" or the sample will not work.

Dim objListObject As ListObject 
Dim objDataRange As Range 
Dim strListGUID as String 
Dim strServerName as String 
 
strServerName = "https://<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 

СвойстваProperties

См. такжеSee also

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.