打开文本文件，从文件中获取数字/文本并将文本/数字增加 1

Question

我有一个 .txt 文件，Supplier Count.txt 并且在我的 excel 电子表格中，每次我运行 VBA 代码时，我都希望打开这个文件，以读取我的文本文件中的数值，例如'21' 然后加 1。

假设我们的文本文件有一行文本，这行文本是一个数字，'21'。 vba 代码应该打开文件，读取这个数字并将其增加 1 并替换文本，保存并关闭文本文件。所以我们的值是'22'

有谁知道我该怎么做，因为我对 vba 完全陌生，到目前为止，我所能想到的只是打开文本文件并将数字作为 msgbox 读出

Application.ScreenUpdating = False
On Error GoTo ErrHandler12:
Dim FilePath12 As String
Dim Total12 As String
Dim strLine12 As String
FilePath12 = "\\ServerFilePath\assets\Supplier Count.txt"
Open FilePath12 For Input As #1

While EOF(1) = False
    'read the next line of data in the text file
    Line Input #1, strLine12
    Total12 = Total12 & vbNewLine & strLine12
    'increment the row counter
    i = i + 1
Wend
Close #1
MsgBox Total12
ErrHandler12:

Application.ScreenUpdating = True

Answer 1

首先包含对FileSystemObject 的引用（请参阅https://stackoverflow.com/a/5798392/380384）

然后运行这个

Private fso As New FileSystemObject

Public Sub IncrCount()
    Dim path As String
    path = fso.BuildPath("\\server\share\folder", "SupplierCount.txt")
    Dim fs As TextStream
    Set fs = fso.OpenTextFile(path, ForReading)
    Dim counter As Long
    counter = CInt(fs.ReadLine())
    fs.Close

    Set fs = fso.OpenTextFile(path, ForWriting, True)
    fs.WriteLine CStr(counter + 1)
    fs.Close
End Sub