WORD与EXCEL交互代码集

EXCELLMY

WROD与EXCEL交互代码集

Sub 提取WORD()
    Cells.Clear
    Cells.NumberFormatLocal = "@"
    Dim 外档数组, 结果数组(1 To 60000, 1 To 3)
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Set wd = CreateObject("word.Application")
    路径 = ThisWorkbook.Path & "/入库单/"
    外档 = Dir(路径 & "*.doc*")
    Do While 外档 <> ""
        计数器 = 0
        文档计数器 = 文档计数器 + 1
        With wd.Documents.Open(路径 & 外档)
            .Range.ListFormat.ConvertNumbersToText
            外档数组 = Split(.Range.Text, Chr(13))
            .Close False
        End With
        Cells(1, 文档计数器) = Split(外档, ".")(0)
        For i = 0 To UBound(外档数组)
            计数器 = 计数器 + 1
            结果数组(计数器, 文档计数器) = 外档数组(i)
        Next
        外档 = Dir
    Loop
    wd.Quit
    Range("a2").Resize(计数器, 3) = 结果数组
    Application.DisplayAlerts = True: Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

http://club.excelhome.net/forum. ... &extra=page%3D1
EXCEL数据写入WORD模板