通用Word表格导入工具_Doc2Xls

lyz10252827145

Excel压缩包已下载 运行不了 按照GIF视图操作也还是无法使用 总是让我下载

Moneky

lyz10252827145 发表于 2018-11-6 13:46
Excel压缩包已下载 运行不了 按照GIF视图操作也还是无法使用 总是让我下载

如果运行有问题，请尝试把问题描述清楚，可以截图说明。

lyz10252827145

请问怎么下载软件？下载下来后是Excel表格~~~

Moneky

lyz10252827145 发表于 2018-11-6 17:50
请问怎么下载软件？下载下来后是Excel表格~~~

打开的时候选择 启用宏  或者 启用活动内容 ，然后点击表中的按钮 Doc2Xls

lyz10252827145

我下载完就是个图片  点不开

Moneky

lyz10252827145 发表于 2018-11-7 09:54
我下载完就是个图片  点不开

那算了吧，这个工具不适合你

lyz10252827145

这个咋解决

Moneky

lyz10252827145 发表于 2018-11-7 19:21
这个咋解决

可能的原因：
电脑中存在多个不同版本的office
系统的中office是精简版或者绿色版
系统中安装过wps，或者现在存在wps

解决方法：这个问题比较难解决，大体来说如下，卸载wps，卸载office并清理office（微软有官方工具），安装完整版的office

祝你好运！

lily19910914

大神，可以请教下从word提取数据到excel的问题么
word中内嵌有一个表格，想将表格转换成html代码存至excel中的一个字段，该字段数据最终会入到数据库表，最终用于页面展示出原有表格

Moneky

借助剪贴板和正则达成
原理：在word中选中表格→复制→读取剪贴板HTML格式→提取table代码→清洗冗余代码

1. Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
   
2. Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
   
3. Declare Function CloseClipboard Lib "user32" () As Long
   
4. Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA" (ByVal lpString As String) As Long
   
5. Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
6. Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
   
7. Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
   
8. Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
   
9. 
   
10. Private Function GetTable2Html(bXXHtml As Boolean) As String
    
11.     Dim hMem As Long
    
12.     Dim lpData As Long
    
13.     Dim nClipSize As Long
    
14.     Dim bytClipData() As Byte
    
15.     Dim sClipString As String
    
16.     CF_HTML = RegisterClipboardFormat("HTML Format")                '注册HTML Format
    
17.     If OpenClipboard(ByVal 0&) Then                                 '如果OpenClipboard函数返回非0值，说明成功打开剪贴板
    
18.         hMem = GetClipboardData(CF_HTML)                            '获取剪贴板中以文本格式存在的内存对象的句柄
    
19.         If CBool(hMem) Then                                         '如果剪贴板中对应的格式不存在，此时的hMem会是0(Null)，这里用CBool把它转换成Boolean类型加以判断
    
20.             lpData = GlobalLock(hMem)                               '获取内存对象第一个字节的内存地址
    
21.             nClipSize = GlobalSize(hMem)                            '获取内存对象的字节长度
    
22.             ReDim bytClipData(1 To nClipSize)                       '修改缓冲字节数组的长度，确保能够容纳内存对象的全部数据
    
23.             CopyMemory bytClipData(1), ByVal lpData, nClipSize      '复制内存对象的数据到字节数组中，注意Byval的用法
    
24.             sClipString = StrConv(bytClipData, vbUnicode)           '将字节转化成字符串
    
25.             GetTable2Html = IIf(bXXHtml, xxHTML(sClipString), sClipString)
    
26.         Else
    
27.             GetTable2Html = "None"
    
28.         End If
    
29.         CloseClipboard
    
30.     End If
    
31. End Function
    
32. Private Function xxHTML(sHtml As String) As String '正则清洗
    
33.     Dim oReg As New RegExp, tmp As String
    
34.     With oReg
    
35.         .Pattern = "<table[\w\W]*/table>"
    
36.         .Global = True
    
37.         .MultiLine = True
    
38.          tmp = .Execute(sHtml)(0).Value
    
39.          .Pattern = "<span.*?>|</span>|<o:p>|</o:p>|style='[\s\S]*?'|class=[a-zA-Z]*"
    
40.          tmp = .Replace(tmp, "")
    
41.          xxHTML = tmp
    
42.     End With
    
43. End Function
    
44. Private Function Table2Html(vDoc As Document, id As Long, bXHtml As Boolean) As String
    
45. '                           document          表格id        是否清洗
    
46.     Dim vTable As Table
    
47.     Set vTable = vDoc.Tables(id)
    
48.     vTable.Select
    
49.     Selection.Copy
    
50.     Table2Html = GetTable2Html(bXHtml)
    
51. End Function
    
52. Sub test()
    
53.     Dim sHtml As String
    
54.     sHtml = Table2Html(ActiveDocument, 1, True)
    
55.     MsgBox sHtml
    
56.     Debug.Print sHtml
    
57. End Sub
    
58. 
    

复制代码