excel用vba自动提取某个ini文件中的数字到制定单元格

1、读取这个ini文件。

2、读取时要注意文件的内容格式。

3、将读取的内容写知渣拍入到指定的单元格。

4、具体的代码网上有很梁握多例子，搭羡可以百度一下。

建议你用txt文件保存内容并进行比较 *** 作处理吧，因为ini文件第一行应该是节名，所以还是用txt吧，完全按你的要求进行写程序的！

.版本

2

.支碧森持库

spec

.程序集

窗口程序集_启动窗口

.程序集变量

文件号,

整数型

.子程序

删除第一行及同名图片

.局部变量

第一行内容,

文本型

.局部蚂慧扮变量

全部内容,

文本型

.局部变量

删除第一行,

文本型

文件号

＝

打开文件

(取运行目录

()

＋

“\1.txt”,

#读入,

)

'

在你的软件运行目录下建立一个1.txt空白文件

第一行内容

＝

读入一行

(文件号)

文件号

＝

打开文件

(取运行目录

()

＋

“\1.txt”,

#读入,

)

全部内容

＝

读入文本

(文件号,

)

调试输出

(第一行内容)

调试输出

(全部内容)

.如果真

(全部内容

＝

“”)

信息框

(“文件没有内容!”,

0,

,

)

返回

()

.如果真结束

.如果真

(文件是否存在

(取运行目录

()

＋

“\”

＋

第一行内容

＋

“.bmp”)

＝

真)

删除文件

(取运行目录

()

＋

“\”

＋

第一行内容

＋

“.bmp”)

删除第一行

＝

子文本替换

(全部内闷灶容,

第一行内容

＋

#换行符,

“”,

,

1,

真)

文件号

＝

打开文件

(取运行目录

()

＋

“\1.txt”,

#重写,

)

插入文本

(文件号,

删除第一行)

.如果真结束

关闭文件

(文件号)

.子程序

文件增加内容

.局部变量

欲加入内容,

文本型

欲加入内容

＝

“000”

'

这里为你要加入到文件末尾的内容

文件号

＝

打开文件

(取运行目录

()

＋

“\1.txt”,

#改写,

)

插入文本

(文件号,

读入文本

(文件号,

)

＋

#换行符

＋

欲加入内容)

关闭文件

(文件号)

---