合并工作簿或工作表

爱疯 · 发表于 2016-4-10 20:15

本帖最后由爱疯于 2017-1-11 16:34 编辑

提示：请到 17 楼下载最近一次更新的附件

还请指正，多提意见和建议！谢谢

爱疯 · 发表于 2016-4-10 20:16

Merge_2.rar (24.84 KB, 下载次数: 82)

zjdh · 发表于 2016-4-10 22:30

好东西！顶一个。

zjdh · 发表于 2016-4-10 23:11

建议
1. 合并工作表中添加一句  wk2.Sheets(1).Cells.Columns.AutoFit
2. 合并工作簿中
  Private Sub total(myPath As String, myFile As String)
Dim i, t, wk1, temp1, temp2
'检查4：文件类型
t = LCase(fso.GetExtensionName(myPath & myFile))
   .........
End Sub

爱疯 · 发表于 2016-4-10 23:24

zjdh 发表于 2016-4-10 23:11
建议
1. 合并工作表中添加一句 wk2.Sheets(1).Cells.Columns.AutoFit
2. 合并工作簿中

谢谢zjdh!

我没理解，为什么要转小写呀？

如果不转小写，在什么情况下会出错么？

爱疯 · 发表于 2016-4-10 23:25

zjdh 发表于 2016-4-10 23:11
建议
1. 合并工作表中添加一句 wk2.Sheets(1).Cells.Columns.AutoFit
2. 合并工作簿中

噢，我明白了

下面用Like时，可能出错！

爱疯 · 发表于 2016-4-10 23:33

Merge_7.rar (38.17 KB, 下载次数: 46)

爱疯 · 发表于 2016-4-11 17:05

Merge_8.rar (37.92 KB, 下载次数: 26)

爱疯 · 发表于 2016-4-15 11:35

Merge_9.rar (48.8 KB, 下载次数: 40)

爱疯 · 发表于 2016-5-17 17:20

MergeWorkbook10.rar (49.38 KB, 下载次数: 83)

		自动登录	找回密码
密码			注册

合并工作簿或工作表

相关帖子

评分

评分