以一致的格式將Word文件名和數據導入到Excel中

我有多個Word文件。我想以這樣一種方式導入它們：文件的名稱出現在單元格A1中，然後出現單元格A2：A8中的數據。然後我想要文件夾中的下一個Word文件將文件名稱導入單元格B2，然後將單元格B2：B8中的數據導入。以一致的格式將Word文件名和數據導入到Excel中

在一個特定的詞文件中的數據是這樣的：

Z3CC07002466 
ZAIC07000270 
ZRHC07003384 
Z9HC07000576 
Z8FC07002646 
Z6EC07000339 
Z6NC07000746

我想將多個文件導入到一個Excel工作表中每個單詞的文件數據彼此相鄰。

VBA可以使我與它裏面多文檔的文件夾來做到這一點？

來源

2015-09-25 zihk

我無法幫助您解決您的問題，但您應該將該圖像上傳到此處。 –

是單詞文檔內容的一系列行還是表？ –

我想文檔這個詞有一個非常簡單的形式，作爲一系列的行。如果單詞存儲在單詞表中，則不同。創建並執行此宏：

Sub fromWordDocsToMultiCols() 
    Dim f As String: f = "c:\SO\" 
    Dim s As String: s = Dir(f & "*.docx") 
    Dim wdApp As New Word.Application, wdDoc As Word.Document 
    Dim col As Integer: col = 1 

    On Error GoTo errHandler 
    Do Until s = "" 
     Set wdDoc = wdApp.Documents.Open(f & s) 
     wdDoc.Range.Copy 
     Sheet1.Cells(1, col).Value = s 
     Sheet1.Cells(2, col).PasteSpecial xlPasteValues 
     wdDoc.Close False: col = col + 1: s = Dir 
    Loop 

errHandler: 
    If Err.Number <> 0 Then MsgBox Err.Description 
    If Not wdApp Is Nothing Then wdApp.Quit False 
End Sub

來源

2015-09-25 22:02:21

以一致的格式將Word文件名和數據導入到Excel中

回答

相關問題