使用filesystemobject打开文件判断不是当前工作簿时进行复制合并

sero61

ykcbf1100 发表于 2025-1-13 06:57
上附件吧。

草爷好，附件1楼有。就是合并当前目录下的工作表。现在问题是遍历到代码工作簿时，应该是
file.name=thisworkbook.name 根据if的不等于判断，当前面为不等于时是true，进入下级，当前面相等是不进入
是理解错了吗

ykcbf1100

sero61 发表于 2025-1-13 10:18
草爷好，附件1楼有。就是合并当前目录下的工作表。现在问题是遍历到代码工作簿时，应该是
file.name=thi ...

我写一个吧

附件供参考。。。

ykcbf1100

多文件合并

1. Sub ykcbf()   '//2025.1.13
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     sh.UsedRange.Clear
   
6.     p = ThisWorkbook.Path & ""
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If LCase$(f.Name) Like "*.xls*" Then
   
9.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
10.                 Set wb = Workbooks.Open(f, 0)
    
11.                 n = n + 1
    
12.                 r = IIf(n = 1, 1, sh.Cells(Rows.Count, 1).End(3).Row + 1)
    
13.                 wb.Sheets(1).UsedRange.Copy sh.Cells(r, 1)
    
14.                 wb.Close False
    
15.             End If
    
16.         End If
    
17.     Next f
    
18.     sh.Activate
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

sero61

ykcbf1100 发表于 2025-1-13 10:50
多文件合并

谢谢草爷分享  我纠结的是   待合并的文件是.csv格式

ykcbf1100

sero61 发表于 2025-1-14 10:36
谢谢草爷分享  我纠结的是   待合并的文件是.csv格式

.csv格式也能合并啊

sero61

ykcbf1100 发表于 2025-1-14 10:36
.csv格式也能合并啊

谢谢  各种格式只要能用exlcel打开肯定都能合并
现在的就在纠结  待合并文件如果出现几种不同来源格式 ，是不是只能通过文件名判断了