Vba 我可以用一个变量来命名其他变量吗？

我正在编写一些需要存储大量数据的代码，我想为这些代码编写一种新的数据类型

     Private Sub CommandButton1_Click() 
         Dim myFile As String, text As String

         myFile = Application.GetOpenFilename() 
         Open myFile For Input As #1

         Do Until EOF(1)
             Line Input #1, text
             'Check to see if line contains name
             If InStr(text, "name=") <> 0 Then
                 'Trim down to just name
                 text = Replace(text, "name=", "")
                 text = Trim(text)
                 'Set the current value of text as name of new scalarIn
                 Dim text As scalarIn
             End If 
        Loop

    End Sub

---

创建scalarIn类的数组，并在数组增长时保留该数组。如果不进一步了解定制scalarIn类，就很难提供除此之外的任何内容。或者，使用以文本为键的Scripting.Dictionary对象。我无法将您的问题与代码连接到标题。如果要创建自己的类型，请使用。如果存在

scalarIn

，那么@Jeeped创建一个数组来存储它们是正确的。如果命名属性就是这个意思，那么可以将属性传递给类，但我们为什么要命名它们呢？我想。。。你有什么问题？对不起，我编程时间不长

scalarIn

只是我创建的一种类型，里面有一些变量可以启动

Public Type scalarIn UnitOfMeasure As String Value As Variant Source As String End Type

输入文本文件中的一行样本，以及您在获得该信息后要对其执行的操作的描述将有所帮助。循环中的

Dim text As scalarIn

是有害的。它不会做你认为它会做的事情。创建scalarIn类的数组，并在数组增长时保留该数组。如果不进一步了解定制scalarIn类，就很难提供除此之外的任何内容。或者，使用以文本为键的Scripting.Dictionary对象。我无法将您的问题与代码连接到标题。如果要创建自己的类型，请使用。如果存在

scalarIn

，那么@Jeeped创建一个数组来存储它们是正确的。如果命名属性就是这个意思，那么可以将属性传递给类，但我们为什么要命名它们呢？我想。。。你有什么问题？对不起，我编程时间不长

scalarIn

只是我创建的一种类型，里面有一些变量可以启动

Public Type scalarIn UnitOfMeasure As String Value As Variant Source As String End Type

输入文本文件中的一行样本，以及您在获得该信息后要对其执行的操作的描述将有所帮助。循环中的

Dim text As scalarIn

是有害的。它不会做你认为它会做的事情。创建scalarIn类的数组，并在数组增长时保留该数组。如果不进一步了解定制scalarIn类，就很难提供除此之外的任何内容。或者，使用以文本为键的Scripting.Dictionary对象。我无法将您的问题与代码连接到标题。如果要创建自己的类型，请使用。如果存在

scalarIn

，那么@Jeeped创建一个数组来存储它们是正确的。如果命名属性就是这个意思，那么可以将属性传递给类，但我们为什么要命名它们呢？我想。。。你有什么问题？对不起，我编程时间不长

scalarIn

只是我创建的一种类型，里面有一些变量可以启动

Public Type scalarIn UnitOfMeasure As String Value As Variant Source As String End Type

输入文本文件中的一行样本，以及您在获得该信息后要对其执行的操作的描述将有所帮助。循环中的

Dim text As scalarIn

是有害的。它不会做你认为它会做的事。

Public Type scalarIn
    UnitOfMeasure As String
    Value As Variant
    Source As String 
End Type