如何实现邮件合并的逆

konggs · 发表于 2006-10-2 17:35

呵呵。我也没明白。

[em04]

liujy · 发表于 2006-10-8 16:05

我估计作者的邮件合并逆操作是这个意思，详见我附件中EXCEL文件中的要求。

gQ9SF0W0.rar (11.75 KB, 下载次数: 251)

守柔 · 发表于 2006-10-10 06:19

QUOTE:

以下是引用liujy在2006-10-8 16:05:47的发言：
我估计作者的邮件合并逆操作是这个意思，详见我附件中EXCEL文件中的要求。

我做了一个示例，供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-10-10 6:17:53
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0077^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
'由合并文档转为Excel数据源
'运行本代码前请在VBE/工具/引用中勾选对于Microsoft Excel 11.0 Object Library的引用
    Dim oTable As Table, myArray() As String, N As Integer, L As Integer
    Dim rngCell As Range, xlApp As Excel.Application
    Dim xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
    With ActiveDocument
        N = .Tables.Count
        ReDim myArray(N, 5)    '定义一个动态二维数组
        myArray(0, 0) = "序"
        myArray(0, 1) = "文件号"
        myArray(0, 2) = "文件名"
        myArray(0, 3) = "发文单位"
        myArray(0, 4) = "收文单位"
        myArray(0, 5) = "领导批示"

守柔 · 发表于 2006-10-10 06:20

        For Each oTable In .Tables    '在表格中循环
            L = L + 1
            With oTable
                Set rngCell = .Cell(2, 1).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 0) = rngCell.Text    '序值
                Set rngCell = .Cell(1, 3).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 1) = rngCell.Text    '文件号值
                Set rngCell = .Cell(2, 3).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 2) = rngCell.Text    '文件名值
                Set rngCell = .Cell(3, 3).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 3) = rngCell.Text    '发文单位值
                Set rngCell = .Cell(3, 5).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 4) = rngCell.Text    '收文单位值
                Set rngCell = .Cell(4, 3).Range
                rngCell.SetRange rngCell.Start, rngCell.End - 1
                myArray(L, 5) = rngCell.Text    '领导批示值
            End With
        Next
    End With
    Set xlApp = CreateObject("Excel.Application") '创建一个Excel对象
    xlApp.Visible = True '对象可见
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlApp.Worksheets(1)
    '为区域赋值
    xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(N + 1, 6)).Value = myArray
End Sub
'----------------------

见附件：

cCJwH9ey.rar (10.79 KB, 下载次数: 305)

liujy · 发表于 2006-10-10 07:13

谢谢守柔斑竹!再次表示感谢!!学习了.

zhanglei1371 · 发表于 2013-9-5 19:26

难以想象，现今想看到回帖都难的版主级人物们居然会对如此无聊的帖子回复了这么多，哈哈哈哈……

天亮 · 发表于 2013-9-5 14:41

不用VBA，可以实现邮件合并的逆操作吗？请会的老师将方法写出来，谢谢了！

46465415798 · 发表于 2014-6-6 17:37

守柔发表于 2006-9-29 06:37
QUOTE:以下是引用chi75在2006-9-28 22:14:18的发言：怎么很难吗你说清楚了吗？你的邮件合并已经存在了数据源 ...

他的意思是如果没有数据源，怎么从很多word中建立数据源。

Audacity · 发表于 2020-10-6 00:41

时隔15年，我竟然来到这里想问同样的问题。我很清楚我不是傻X，是真的有用处。

andysky · 发表于 2020-10-6 07:58

本帖最后由 andysky 于 2020-10-7 13:41 编辑

按位置批量取值到Excel.gif

可以做到的
下载地址：https://www.lanzoux.com/b01hi2itg

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

如何实现邮件合并的逆

评分