在excel java中编写类的arraylist

' 类模块：MyArrayList
Private Data As Object

Public Sub AddData(value As Variant)
    If Data Is Nothing Then
        Set Data = CreateObject("System.Collections.ArrayList")
    End If
    Data.Add value
End Sub

Sub TestArrayList()
    Dim myList As New MyArrayList
    
    myList.AddData "Value 1"
    myList.AddData "Value 2"
    
    ' 可以通过循环遍历ArrayList中的数据
    For Each item In myList.Data
        Debug.Print item
    Next item
End Sub

import java.util.ArrayList;

public class MyArrayList {
    private ArrayList<Object> data;

    public MyArrayList() {
        data = new ArrayList<>();
    }

    public void addData(Object value) {
        data.add(value);
    }

    public ArrayList<Object> getData() {
        return data;
    }
}

public class Main {
    public static void main(String[] args) {
        MyArrayList myList = new MyArrayList();

        myList.addData("Value 1");
        myList.addData("Value 2");

        // 可以通过循环遍历ArrayList中的数据
        for (Object item : myList.getData()) {
            System.out.println(item);
        }
    }
}