Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2537|回复: 0

[VBA] Open 语句的练习

[复制链接]
发表于 2010-3-31 16:31 | 显示全部楼层 |阅读模式
<p> </p><font face="Courier" new=""><p>运行后,在D盘根目录生成3个文本文件(内容如上)。</p><p><br/><span style="COLOR: #00007f;">Sub</span> test2()<br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Dim</span> i <span style="COLOR: #00007f;">As</span>
                        <span style="COLOR: #00007f;">Integer</span>, j <span style="COLOR: #00007f;">As</span>
                        <span style="COLOR: #00007f;">Integer</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Dim</span> FileName <span style="COLOR: #00007f;">As</span>
                        <span style="COLOR: #00007f;">String</span>, s <span style="COLOR: #00007f;">As</span>
                        <span style="COLOR: #00007f;">String</span><br/><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">For</span> i = 1 <span style="COLOR: #00007f;">To</span> 3<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileName = "d:\" &amp; i &amp; ".txt"&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #007f00;">'文件i</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Open</span> FileName <span style="COLOR: #00007f;">For</span>
                        <span style="COLOR: #00007f;">Output</span>
                        <span style="COLOR: #00007f;">As</span> #1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">For</span> j = 1 <span style="COLOR: #00007f;">To</span> i&nbsp;&nbsp;<span style="COLOR: #007f00;">'有i行</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s = s &amp; i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">rint</span> #1, s <span style="COLOR: #007f00;">'第j行有j个值(i)</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Next</span> j<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Close</span> #1<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Next</span> i<br/>&nbsp;&nbsp;&nbsp;&nbsp;<br/><span style="COLOR: #00007f;">End</span>
                        <span style="COLOR: #00007f;">Sub</span></p><p><span style="COLOR: #00007f;"></span></p></font>

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-18 21:12 , Processed in 0.215061 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表