将EXCEL内容拆分成多个工作薄后发送给不同人

VBA万岁

黄雨森 发表于 2014-6-5 15:10
老师，你好！
我自己学习了一下这段代码，有些地方不知道是什么意思，可以帮忙看看吗？谢谢！

[A65536].End(xlUp).Row 表示最末一行非空行，Mail表中的最末一行非空行为第8行，可我们实际需要的最末数据行是第4行，所以要减4，而addr数组的最后一项数据索引需再减1。

VBA万岁

黄雨森 发表于 2014-6-5 15:10
老师，你好！
我自己学习了一下这段代码，有些地方不知道是什么意思，可以帮忙看看吗？谢谢！

短信已经收到——你是说要保持源数据格式？还是源文件（即03版，因为你的附件为03版的）格式？
如果要保持源文件格式，只而将
wb.SaveAs ThisWorkbook.Path & "\" & brr(0, m) & ".xlsm"
改为：
wb.SaveAs ThisWorkbook.Path & "\" & brr(0, m) & ".xls"

VBA万岁

VBA万岁 发表于 2014-6-12 14:39
短信已经收到——你是说要保持源数据格式？还是源文件（即03版，因为你的附件为03版的）格式？
如果要保 ...

附件：
按条件拆分工作表并发送给不同人.rar (15.13 KB, 下载次数: 41)

2014-6-12 14:41 上传

点击文件名下载附件

黄雨森

VBA万岁 发表于 2014-6-12 14:41
附件：

老师，您好！
我想保持的是源数据的格式，参考附件中，例如拆分后的一班的数据格式应如一班sheet
按条件拆分工作表并发送给不同人.zip (12.78 KB, 下载次数: 5)

2014-6-13 09:43 上传

点击文件名下载附件
数据

我试过这样的思路：
先将数据复制，分两步黏贴，第一步用选择项黏贴复制格式，如
PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
第二步用 PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
复制数值与数值格式。
可是我不知道这个代码要怎么加入到原代码中，请老师再帮我看一下，谢谢！

VBA万岁

黄雨森 发表于 2014-6-13 09:49
老师，您好！
我想保持的是源数据的格式，参考附件中，例如拆分后的一班的数据格式应如一班sheet

原代码是用ADO+SQL方法拆工作表数据的，SQL只能复制值而无法复制格式。
以上仅为个人观点。

黄雨森

请老师再帮忙看看，谢谢！

槿缇

zhenghui13 发表于 2014-6-3 15:10
是按班级拆分成不同workbook,然后发送吗?发送给谁呢?
请测试一下代码是否可行,EMAIL会保存在草稿箱里.

请问提示错误429 是怎么回事呢 要如何解决？

ChangeKing7

请教各位高手，在其他表格F11后，这段代码需要修改什么才能运行？