word内容如何生成excel表格

125675117 · 发表于 2022-12-3 16:42

老师

我word里有很多有规律的记录，这些是从微信里复制出来，请见附件，
能否请老师帮助用VBA实现把这个word的内容生成到excel表格里，方便统计、记录。谢谢。

zpy2 · 发表于 2022-12-3 19:16

create temp table aa as
select iif(F_A='名称',rowid,'') 组,* from 基础数据清洗之字符串的固定行转列 where F_A!='';
create temp table bb as
select fillna(组) 组,F_A,F_B from aa;
cli_create_two_dim_no_order~bb~F_A~F_B;
select * from bb_two_dim;

chxw68 · 发表于 2022-12-4 09:37

Sub test()
Dim wordapp As Object
Dim mydoc As Object
Set wordapp = CreateObject("word.application")
Set mydoc = CreateObject("word.document")
Dim r%, i%
Dim myapth$, myname$
Dim brr(1 To 1000, 1 To 10)
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & ""
myname = "记录.docx"
Set mydoc = wordapp.Documents.Open(mypath & myname)
With mydoc
m = 0
For i = 1 To .Paragraphs.Count
ss = .Paragraphs(i).Range.Text
If Len(ss) > 2 Then
If Left(ss, 2) = "名称" Then
m = m + 1
brr(m, 1) = m
n = 1
End If
n = n + 1
brr(m, n) = Split(ss, vbTab)(1)
End If
Next
.Close False
End With
With Worksheets("sheet1")
.UsedRange.Offset(2, 0).ClearContents
.Range("a3").Resize(m, UBound(brr, 2)) = brr
End With
wordapp.Quit
End
End Sub

复制代码

chxw68 · 发表于 2022-12-4 09:38

详见附件。

125675117 · 发表于 2022-12-6 08:29

chxw68 发表于 2022-12-4 09:38
详见附件。

chxw68 老师，非常感谢您在百忙之中帮助解决问题，经过测试，当word内各项均有内容时，没有问题，可以正常提取数据到表格。能否请您再优化一下，就是有时候除了名称那有内容，其他几项可能内容为空的，能否也正常提取为空值，现在的程序在这种情况下会报错。
谢谢。

125675117 · 发表于 2022-12-6 08:30

zpy2 发表于 2022-12-3 19:16
create temp table aa as
select iif(F_A='名称',rowid,'') 组,* from 基础数据清洗之字符串的固定行转 ...

谢谢，能否发一下压缩包，谢谢。

chxw68 · 发表于 2022-12-6 08:35

修改好了。

cai2532 · 发表于 2022-12-6 09:42

chxw68 发表于 2022-12-6 08:35
修改好了。

一直关注 chxw68老师，这个厉害，学习学习。

125675117 · 发表于 2022-12-6 10:43

chxw68 发表于 2022-12-6 08:35
修改好了。

非常感谢chxw68老师，谢谢！！太好用了，减轻了大量工作

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

[求助] word内容如何生成excel表格