VBA从分隔文本读取

这里是新的，并且一直在寻找一种从文本文件中读取的方法，该文件使用逗号作为分隔符。我想将文本分配给一个变量，并在程序中使用它。例如，文本文件中的一行是

45.325, Variable Description

我需要给代码中的变量名赋值45.325。我发现了一个使用oFS.Readline的方法，但是它读取整行，而我只需要它读取到不包括逗号的部分

谢谢你的回复

---

Ben

根据您的具体操作，有几种不同的选项可用

如果只需要逗号前的第一个值，可以使用旧的OPEN FOR INPUT方法。输入ff，FirstValue会逐字加载遇到的第一个值，直到该变量中出现逗号为止：

Public Sub SampleRead(TextFile As String)
  Dim ff As Integer, i As Long
  Dim FirstValue As Double
  Dim VariableName As String
  ff = FreeFile
  Open TextFile For Input As #ff
    Do Until EOF(ff)
      i = i + 1
      Input #ff, FirstValue
      Input #ff, VariableName
      Debug.Print "Variable Name: " & VariableName & " has a value of: " & FirstValue & " on line #" & i
    Loop
  Close #ff
End Sub    

---

或者，您可以使用Split来解析正在读取的文本文件的行。Readline您可以使用行输入来执行相同的操作，以便将它们分解为特定变量。

可能重复@SashaSalauyou这是它的重复吗？是否将数据作为代码块处理