GetCustomListContents 方法

返回一个自定义序列（一个字符串数组）。

expression   必需。该表达式返回一个 Application 对象。

ListNum   Long 类型，必需。序列号。

示例

本示例将第一个自定义序列的元素写到 Sheet1 的第一列中。

listArray = Application.GetCustomListContents(1)
For i = LBound(listArray, 1) To UBound(listArray, 1)
    Worksheets("sheet1").Cells(i, 1).Value = listArray(i)
Next i