合并文件夹里文件到一总表上

cjc209

jiaqitang 发表于 2023-3-9 11:23
谢谢老师，可以运行，就是有一个问题，当某个单表粘贴上后，如果这个单表数据有更新，重新运行代码，总工 ...

就改成这样 就可以更新了

cjc209

If Not d.exists(fn) Then
                Set sht = zwb.Sheets.Add(After:=zwb.Sheets(zwb.Sheets.Count))
                sht.Name = fn
                With Workbooks.Open(f)
                    .Sheets(1).Cells.Copy sht.[a1]
                    .Close False
                End With
                Else
                With Workbooks.Open(f)
                    .Sheets(1).Cells.Copy zwb.Sheets(fn).[a1]
                    .Close False
                End With
            End If

jiaqitang

ykcbf1100 发表于 2023-3-9 13:10
这样改一下就行了。

谢谢，最后有一个问题，那些单表工作簿的名字都有一个长的前缀，例如

FY_2022_Dec_Financial_Statement_NY

这么长的字符是不能作为sheet名字的，我不需要前缀，代码怎么改动把前缀去掉，只用地名做sheet 名字？

ykcbf1100

jiaqitang 发表于 2023-3-9 13:33
谢谢，最后有一个问题，那些单表工作簿的名字都有一个长的前缀，例如

FY_2022_Dec_Financial_Statemen ...

地名就是最后的NY？

jiaqitang

ykcbf1100 发表于 2023-3-9 13:53
地名就是最后的NY？

是的，NY，Baltimore 这些都是地名，我的样本里都是地名

ykcbf1100

jiaqitang 发表于 2023-3-9 13:33
谢谢，最后有一个问题，那些单表工作簿的名字都有一个长的前缀，例如

FY_2022_Dec_Financial_Statemen ...

如果都是那么长字串的话，可以这样改一下：
把sht.name=fn改成:b=split(fn,"_"):sht.Name = b(UBound(b))

jiaqitang

ykcbf1100 发表于 2023-3-10 08:41
如果都是那么长字串的话，可以这样改一下：
把sht.name=fn改成:b=split(fn,"_"):sht.Name = b(UBound(b) ...

谢谢，现在明白了。

jjmysjg

liuxiajihao ,kankan