Excel精英培训网

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

[已解决]解释下代码?

[复制链接]
发表于 2013-6-24 22:23 | 显示全部楼层 |阅读模式
本帖最后由 sdada 于 2013-6-28 14:14 编辑

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars(1).Reset
    Open Application.Path & "\Select.txt" For Output As #1
    Print #1, b(0)
    Print #1, b(1)
    Close #1
End Sub
最佳答案
2013-6-24 22:27
#1是文件号。
 楼主| 发表于 2013-6-24 22:26 | 显示全部楼层
Open Application.Path & "\Select.txt" For Output As #1
    Print #1, b(0)
    Print #1, b(1)
    Close #1
For Output As #1和Print #1, b(1) 这里#1是什么意思?
回复

使用道具 举报

发表于 2013-6-24 22:27 | 显示全部楼层    本楼为最佳答案   
回复

使用道具 举报

 楼主| 发表于 2013-6-24 22:38 | 显示全部楼层
hwc2ycy 发表于 2013-6-24 22:27
#1是文件号。

文件号是什么?
回复

使用道具 举报

发表于 2013-6-24 22:54 | 显示全部楼层
filenumber 必要。一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
回复

使用道具 举报

 楼主| 发表于 2013-6-24 22:56 | 显示全部楼层
hwc2ycy 发表于 2013-6-24 22:54
filenumber 必要。一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。 ...

.Enabled = (b(1) <> 0)
这种写法没见过,右边打括号
回复

使用道具 举报

发表于 2013-6-24 23:02 | 显示全部楼层
b(1)是数组B元素1
回复

使用道具 举报

 楼主| 发表于 2013-6-24 23:08 | 显示全部楼层
hwc2ycy 发表于 2013-6-24 23:02
b(1)是数组B元素1

Do Until EOF(1)
EOF(1)是什么意思
回复

使用道具 举报

发表于 2013-6-24 23:21 | 显示全部楼层
使用 EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。

直到到达文件的结尾,EOF 函数都返回 False。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 09:54 , Processed in 0.380441 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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