软件:office
版本:2007
Open "F:\SmthBetdata\Bet\" & "\2015年的第w周数据(m.dd-m.dd).txt" For Output
As #1
要求前面w则命名第16周，后面括号的区间命名（4.12-4.16）最后的效果是得到一个文
件名为
2015年的第16周数据(4.12-4.18)
ps：区间是上周六0:00到本周六24:00
目前处理的方法是先在B1写了相关函数，得到B1单元格内容为
“2015年的第16周数据(4.12-4.18)”，然后
Open "F:\SmthBetdata\Bet\" & Sheets(1).[B1] & ".txt" For Output As #1

抱歉，原文内要请问的问题是？

不好意思没表述好，就是根据今天的时间来得到一个txt文件它的文件名是“2015年的第16周数据(4.12-4.18)”这个文件名有两个变量“周数”和“周数的区间”函数的思路是根据本地时间可以得到上一周是2015年第16周周数的区间(上周日对应时间-本周六对应时间）

因此是求B1的函数吗？

不是，函数+vba可以处理这个问题，但我现在想完全用VBA解目前的已经条件是本地日期，通过运行代码得到2015年的第16周数据(4.12-4.18).txt

format,weekday http://goo.gl/jTzs6O

so大，逻辑还是有点问题，我在4.19至4.25日运行得到的结果都是“2015年的第16周数据(4.12-4.18).txt”

+1改为-6

sd = Date - Weekday(Date) - 6能否注释一下这句

weekday这里周日为1、周一为2、周二为3..类推4/19(减7)、4/20(减8)、4/21(减9)

MsgBox Format(sd, "yyyy年第ww周bet盈利排行榜(mm.dd-")& Format(sd + 6, "mm.dd)")返回结果为2015年第16周B0t盈利排行榜（04.12-04.18)请问是怎么回事？ 其中文本中应为bet，而非bot

e对format是做用的关系，改为b\et作