軟體: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作