刘亦菲ai换脸视频在线观看,范冰冰三级电视频在线观看

Excel中批量導(dǎo)入Word表格

2011.08.07

現(xiàn)有很多表格形式的Word文件，全部放在D:\LSC_Documents文件夾中。要求：在Excel工作簿中新建一個工作表，該表放在第2個工作表之前，從第4行開始粘貼表格，每個表格之間空1行。要實(shí)現(xiàn)這個結(jié)果，如果采取逐個打開每個Word文件進(jìn)行復(fù)制、粘貼的方法，操作起來會非常麻煩，而且容易出錯。下面的VBA代碼可以實(shí)現(xiàn)這一結(jié)果。
（運(yùn)行前，要先在代碼窗口執(zhí)行：工具→引用→勾選Microsoft Word 11.0 Object Library→確定。）

Sub Test()
    Application.ScreenUpdating = False
    Dim MyPath As String, MyFile As String, iRow As Integer
    Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet

    MyPath = "D:\LSC_Documents"   '指定路徑
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False

    'ChDir MyPath   '進(jìn)入指定目錄
    MyFile = Dir(MyPath & "\" & "*.doc")
    Set ws = Sheets.Add(Before:=Sheets(2))   '將新建工作表插入到第2張工作表之前。

    iRow = 4   '從第4行開始粘貼數(shù)據(jù)
    Do While MyFile <> ""    '如果是文件夾,或者沒有此文件,則會返回""
        Set wdDoc = wdApp.Documents.Open(MyPath & "\" & MyFile)
        wdDoc.Content.Copy
        With ws
            .Range("A" & iRow).Select
            .Paste
            iRow = .Range("A65536:Z65536").End(xlUp).Row + 2   '表格之間空1行
        End With
        wdDoc.Close True
        MyFile = Dir()
    Loop

    Application.ScreenUpdating = True
    wdApp.Quit
    Set wdApp = Nothing
    Set wdDoc = Nothing
    Set ws = Nothing

End Sub

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報。

打開APP，閱讀全文并永久保存查看更多類似文章

Word文檔批量轉(zhuǎn)換為PDF的方法

[VBA][基礎(chǔ)入門]第5講 Excel和Word的互相調(diào)用

Word域與數(shù)據(jù)庫的結(jié)合編程（1）

vba批量打印某個目錄中所有word文檔指定的頁

VBA文件夾選擇器和批量打印word文檔小程序

用VBA提取路徑下所有工作簿的工作表名（四個方法）

更多類似文章 >>

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看