追加写入数据

sunny_8848

EHGOOD 发表于 2024-6-13 09:56
不太清楚有效行数是什么标准。随便写一个供参考。

    file = "E:\\模拟追加文本数据.txt" '按需更改
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(filePath) Then fso.CreateTextFile file
    Set ws = ThisWorkbook.ActiveSheet
    arr = [wb1].CurrentRegion '范围调整为WB1:WD**
    For i = 1 To UBound(arr): For j = 1 To 3
        If arr(i, j) = "" Then GoTo 100
    Next j, i
100
    Set rng = ws.Range("wb1:wd" & i - 1)
    fileNum = FreeFile
    Open file For Output As fileNum
    For Each cell In rng
        rowData = rowData & cell.Value & vbTab
        If cell.Column - 1 = rng.Columns.Count Then
            Print #fileNum, rowData
            rowData = ""
        End If
    Next cell
    Close fileNum
    MsgBox "表格内容已成功复制到" & file & "。", vbInformation, "操作完成"
根据实际需要，修改一下范围就不行了，能麻烦您看看吗

EHGOOD

这个地方是不对的。

EHGOOD

xls文件最多只到IV列，wb列超出表格限制了。

sunny_8848

EHGOOD 发表于 2024-6-14 21:09
xls文件最多只到IV列，wb列超出表格限制了。

是的，我注意到了这个限制，可是还是不行

EHGOOD

WB列的话，这里1改为599。

sunny_8848

EHGOOD 发表于 2024-6-14 21:47
WB列的话，这里1改为599。

好的，多谢帮忙。现在有个主要的问题，运行对比后发现记录不是增加的，是直接把数据从开始到最后写进去的

sunny_8848

自己再顶一次，谢谢大家的关注和帮忙