| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 461 人关注过本帖
标题:如何将各位业主收费通知书上的信息导入到Excel汇总表中
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
结帖率:97.44%
收藏
 问题点数:0 回复次数:6 
如何将各位业主收费通知书上的信息导入到Excel汇总表中
同一文件夹下有多位业主收费通知书,如何将上面的相关信息导入到Excel汇总表中,生成如附件样式的“入住收费一览表.xlsx",请高手指教,万分感谢!!!
1-101收款通知书.zip (10.38 KB)

1-102收款通知书.zip (10.36 KB)

1-201收款通知书.zip (10.36 KB)


图片附件: 游客没有浏览图片的权限,请 登录注册

生成的Excel汇总表样式如下:
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 汇总 收费 通知 导入 Excel 
2024-05-06 08:13
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
收藏
得分:0 
rzsfb.zip (11.07 KB)
2024-05-06 14:05
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
收藏
得分:0 
下列代码有点问题,不能读取word文档指定数据到rzsfb.dbf中,请高手指教,不胜感激!

Close Databases
Clear all
cPath=addbs(justpath(sys(16)))
set default to (cPath)
Create table rzsfb (房号 C(4),业主姓名 C(10),面积 C(10),月物业费 C(10),年物业费 C(10),装修管理费c(10),合计金额 C(10))
Doc=Createobject ("word.application")

For i=1 To Adir (aDocx,"*.docx)

wd=Doc.Documents.Open (cPath+aDocx[i,1])

For j=1 To wd.paragraphs.Count

a=wd.paragraphs (j).Range.Text

b=wd.paragraphs (j+1).Range.Text

c=wd.paragraphs (j+2).Range.Text

d=wd.paragraphs(j+3).Range.Text

e=wd.paragraphs(j+4).Range.Text

f=wd.paragraphs(j+5).Range.Text

g=wd.paragraphs(j+6).Range.Text

h=wd.paragraphs (j+7).Range.Text

k=wd.paragraphs (j+8).Range.Text

Insert Into rzsfb Values(;

STREXTRACT (b,":",” “)

STREXTRACT(d,“楼",”室”),:

STREXTRACT(d,“:",”平方米”),

STREXTRACT(e,“费,“元"),:

STREXTRACT(e,"小计“,“元"),:

STREXTRACT(f,”小计“,“元“),;

STREXTRACT(h,“ “,”元”))

Endfor

wd.Close

Endfor

Doc.Quit

Select * From rzsfb

Copy To Myexcel Type XL5
2024-05-06 14:15
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
收藏
得分:0 
问题已解决,现附上修改后的代码,欢迎指导!

Close Databasea
Clear all
cPath=Addbs(Justpath(Sys(16)))
Set Default to (cPath)
Create table rzsfb(房号c(4),业主姓名 C(10),面积c(10),月物业费c(10),年物业费c(10),装修管理费c(10),合计金额 N(8,1))
Doc=Createobject ("word.application”)

For i=1 To Adir (aDocx,"*.docx)

wd=Doc.Documents.Open (cPath+aDocx[i,1])

For j=1 To wd.paragraphs.Count-1 step 9

a=wd.paragraphs (j).Range.Text

b=wd.paragraphs (j+1).Range.Text

c=wd.paragraphs (j+2).Range.Text

d=wd.paragraphs(j+3).Range.Text

e=wd.paragraphs(j+4).Range.Text

f=wd.paragraphs(j+5).Range.Text

g=wd.paragraphs(j+6).Range.Text

h=wd.paragraphs (j+7).Range.Text

k=wd.paragraphs (j+8).Range.Text

Insert Into rzsfb Values(;
STREXTRACT(d,“楼",”室”),;

STREXTRACT (b,":",” “),;

STREXTRACT(d,“:",”平方米”),;

STREXTRACT(e,“费",“元",2),;

STREXTRACT(e,"小计“,“元"),;

STREXTRACT(f,”小计“,“元“),;

VAL(STREXTRACT(h,“¥“,”元”)))

Endfor

wd.Close

Endfor

Doc.Quit

Select * From rzsfb

Copy To Myexcel Type XL5


[此贴子已经被作者于2024-5-7 07:25编辑过]

2024-05-06 16:15
shschy
Rank: 2
等 级:论坛游民
帖 子:87
专家分:20
注 册:2022-3-13
收藏
得分:0 
STREXTRACT()是自定义读取字符串的函数吗?是按照特征字符串定位实现吗?
2024-05-27 22:40
y12692189
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2021-9-23
收藏
得分:0 
楼主是物业的同行吗?

2024-06-24 12:28
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
我记忆中楼主是一所小学里的老师

只求每天有一丁点儿的进步就可以了
2024-06-24 16:08
快速回复:如何将各位业主收费通知书上的信息导入到Excel汇总表中
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019086 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved