[已解决]将word表格信息汇总到EXCEL中

dyzx · 发表于 2017-6-15 20:39

本帖最后由 dyzx 于 2017-6-18 19:49 编辑

请各位老师帮忙写一段代码将各个word表格信息汇总到EXCEL中，多谢各位指教。

最佳答案

idnoidno

2017-6-17 16:39

大哥抬舉我也是一個初學者而已
附件你可以一次多選檔案來匯入

小花鹿 · 发表于 2017-6-15 21:11

下载附件为什么会启动讯雷？奇怪了

dyzx · 发表于 2017-6-15 21:14

小花鹿发表于 2017-6-15 21:11
下载附件为什么会启动讯雷？奇怪了

老师应该不会，请指教，多谢

小花鹿 · 发表于 2017-6-15 21:31

dyzx 发表于 2017-6-15 21:14
老师应该不会，请指教，多谢

刚学习，不太会

idnoidno · 发表于 2017-6-15 22:13

Sub ImportWordTable()
Dim wdDoc As Object
Dim wdFileName As Variant
Dim TableNo As Integer
Dim iRow As Long
Dim iCol As Integer
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
wdFileName = Application.GetOpenFilename("Word files (*.doc),*.doc", , _
"Browse for file containing table to be imported")
If wdFileName = False Then Exit Sub
Set wdDoc = GetObject(wdFileName)
With wdDoc
TableNo = wdDoc.tables.Count
If TableNo = 0 Then
MsgBox "文件沒有表格", _
vbExclamation, "Import Word Table"
ElseIf TableNo > 1 Then
TableNo = InputBox("This Word document contains " & TableNo & " tables." & vbCrLf & _
"Enter table number of table to import", "Import Word Table", "1")
End If
With .tables(TableNo)
If lastrow > 1 Then
For iRow = 2 To .Rows.Count
For iCol = 1 To .Columns.Count
Cells(lastrow + iRow - 1, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
Next iCol
Next iRow
Else
For iRow = 1 To .Rows.Count
For iCol = 1 To .Columns.Count
Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
Next iCol
Next iRow
End If
End With
End With
Set wdDoc = Nothing
End Sub

复制代码

小花鹿 · 发表于 2017-6-15 23:15

这种是老问题了，有很多现成的代码，稍微改一下就能用

dyzx · 发表于 2017-6-16 08:06

idnoidno 发表于 2017-6-15 22:13

idnoidno老师：是可以将word表格信息转成EXCEL表格，能否将整个文件夹中所有WORD表格选择转换，不用一个一个选择，多谢指教。

idnoidno · 发表于 2017-6-17 16:39

大哥抬舉我也是一個初學者而已
附件你可以一次多選檔案來匯入

dyzx · 发表于 2017-6-18 19:49

idnoidno 发表于 2017-6-17 16:39
大哥抬舉我也是一個初學者而已
附件你可以一次多選檔案來匯入

idnoidno老师：就是这个效果，多谢你指教，多谢。

上官云 · 发表于 2017-8-17 09:08

怎么用？

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