使用Google Sheets API V4 VB.NET BatchUpdate上传CSV仅写入最后一条记录

你遇到的仅能上传最后一条记录的问题，核心是**.NET引用类型的实例复用逻辑失误**，和Google Sheets API的调用规则本身无关：

• 你在循环外部仅初始化了1次ValueRange类的实例（代码中的valueRanges变量）
• 循环遍历CSV行时，你反复修改这同一个对象的Range、Values属性，再把这个对象的引用添加到data列表中
• .NET的引用类型存储特性决定了，列表中保存的只是对象的内存地址，不是对象本身的内容副本。当循环结束时，data列表里的所有条目实际都指向内存中同一个ValueRange实例，这个实例的最终内容就是循环最后一次写入的最后一条CSV记录
• 因此API接收到的请求体里，所有数据条目的范围、内容完全一致，都是最后一行的对应值，自然只会更新最后一行——这和你调试时看到"data集合长度正确"的现象并不矛盾：集合的长度是对的，但集合里的所有元素是同一个内存对象，内容已经被最后一次循环覆盖了。

你可以按照以下两步调整代码，实现全量CSV记录的批量上传：

1. 修复引用复用问题 #

如果保留逐行设置range的逻辑，必须在循环内部为每一行新建独立的ValueRange实例，不能复用循环外的全局对象。核心调整点是把实例初始化逻辑移到循环内部：

While tfp.EndOfData = False
    Dim fields = tfp.ReadFields()
    ' 每处理一行就新建独立的ValueRange对象，不再复用外部变量
    Dim currentRowRange As New ValueRange()
    Dim range2 As String = "A" & r
    currentRowRange.MajorDimension = "ROWS"
    currentRowRange.Range = range2
    ' 组装当前行的数据
    Dim oblist As New List(Of Object)(fields)
    currentRowRange.Values = New List(Of IList(Of Object)) From {oblist}
    ' 把独立实例加入data集合
    data.Add(currentRowRange)
    r += 1
End While

2. 优化批量写入逻辑（推荐） #

逐行设置独立range的写法虽然能跑通，但会产生大量冗余的range条目，对于CSV这类连续、规整的表格数据，Google Sheets的批量更新接口支持直接用一个覆盖所有行的大范围一次性写入，请求体更小、API处理效率更高：

• 循环读取CSV时，只需要把所有行的数据收集到一个总集合中
• 只创建一个ValueRange实例，设置范围为从A1开始、覆盖所有数据行和列的连续区间
• 把全量行数据绑定到这个实例的Values属性上，一次性传入请求
  核心实现代码如下：

' 定义总集合存放所有CSV行的数据
Dim allCsvRows As New List(Of IList(Of Object))()
Dim tfp As New TextFieldParser("<PATH TO CSV FILE I WANT TO UPLOAD>")
tfp.SetDelimiters(",")
tfp.TextFieldType = FieldType.Delimited

While tfp.EndOfData = False
    Dim fields = tfp.ReadFields()
    ' 把当前行转成对象列表加入总集合
    allCsvRows.Add(New List(Of Object)(fields))
End While
tfp.Close()

' 单实例覆盖所有连续数据行
Dim batchValueRange As New ValueRange()
' 范围规则：12列数据对应A到L列，总共有多少行就写到对应行号
batchValueRange.Range = $"A1:L{allCsvRows.Count}"
batchValueRange.MajorDimension = "ROWS"
batchValueRange.Values = allCsvRows

' data集合仅需放入这一个包含全量数据的条目
Dim data As New List(Of Data.ValueRange) From {batchValueRange}

' 后续请求逻辑与原有代码保持一致
Dim requestBody As New Data.BatchUpdateValuesRequest()
requestBody.ValueInputOption = "RAW"
requestBody.Data = data

内容的提问来源于stack exchange，提问作者Cdoskill