织梦CMS - 轻松建站从此开始！
高级搜索|网站地图|TAG标签RSS订阅[设为首页] [加入收藏]

VBA教程、excel VBA编程、VBA视频、VBA控件,VBA应用教程,vba技巧

搜索

热门标签:

当前位置: vba技术联盟>VBA教程>

有关FreeFile 函数示例(VBA)

时间:2010-09-05 19:07来源:未知 作者:vba技术联盟 点击: 次
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。 Dim MyIndex, FileNumberFor MyIndex = 1 To 5 ' 循环五次。 FileNumber = FreeFile ' 取得未使用的文件号。 Open TEST MyIndex For Output As #FileNumber

本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5   ' 循环五次。
   FileNumber = FreeFile   ' 取得未使用的文件号。
   Open "TEST" & MyIndex For Output As #FileNumber   ' 创建文件名。
   Write #FileNumber, "This is a sample."   ' 输出文本至文件中。
   Close #FileNumber   ' 关闭文件。
Next MyIndex
(责任编辑：vba技术联盟)
顶一下
(1)
100%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规，严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片
最新评论 进入详细评论页>>
栏目列表
推荐内容
热点内容

Powered by 深圳私家侦探公司 © 2004-2011 DesDev Inc.

vba技术联盟,站长信箱:oman1825@163.com  粤ICP备09034514号
凡人修仙传