如何用VBA提取文本文件（*.TXT),提取指定位置数据或字符串

魔幻羯影 · 发表于 2009-6-8 01:37

楼主我近期也遇到这个问题  如何把F10中的财务数据按照对应的格式提取出来。。。。。
类似这样的格式。
代码名称行业每股收益每股净资产净资产收益率销售毛利率资产负债率每股公积金每股未分配股东权益比总资产
601601 中国太保保险 0.23 7.15 3.30%    6.30 81.95% 5.16 0.88 17.93 30693501
601628 中国人寿保险 0.12 5.38 2.28%    3.26 82.95% 2.68 1.37 16.95 89768699
600758 红阳能源电力 0.16 1.49 10.64%    37.46 53.71% 0.29 0.15 46.29 51311
600674 川投能源电力 0.19 3.19 6.07%    29.42 65.71% 1.01 0.78 30.59 512327
600719 大连热电电力 0.18 3.77 4.83%    32.63 57.99% 1.51 0.55 42.01 181547
600396 金山股份电力 0.12 2.99 4.04%    29.84 72.99% 0.90 0.95 18.45 552568

至于提取近千股票F10，我倒是有推荐的
上海维赛特F10  http://data.chcj.net/yao0730/1wzF10zl/chSHWSTF10.rar
深圳维赛特F10  http://data.chcj.net/yao0730/1wzF10zl/chSZWSTF10.rar

夜雨苍岚 · 发表于 2009-6-20 17:20

学习下，多多指教

adane · 发表于 2009-7-19 23:49

office2008，真厉害，很精采。

zln363762188 · 发表于 2009-9-27 10:34

多谢高手提供代码，试试看

kayainsz · 发表于 2010-5-27 19:25

如提取HTML上的东西呢？

tomato1688 · 发表于 2010-7-23 12:35

反过来我要在文本文件中指定位置输入excel的数据怎么实现？请高手帮忙

zjszjs27 · 发表于 2012-4-23 12:23

学习了。谢谢。。。。

lm19880122 · 发表于 2013-1-17 20:14

正需要，非常感谢！{:soso_e100:}

gaozudi · 发表于 2013-1-19 14:20

学习。。。。。。。。。。。。。。。。。。。。

bbcvoc · 发表于 2018-12-30 23:14

office2008 发表于 2009-5-7 09:53
Sub yy()

Dim sr As String, fd As Boolean, l As Integer, i As Integer

膜拜大神！
secWall 安全U盘看起来很厉害啊！真的是非常有价值的创造，真是怕了学校里各种电脑上的病毒了！

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

[求助] 如何用VBA提取文本文件（*.TXT),提取指定位置数据或字符串