[算表] 再一次請問txt命名(上個問題的拓展問題)

看板Office作者 (bless)時間11年前 (2015/04/19 18:38), 編輯推噓0(0024)
留言24則, 2人參與, 最新討論串1/1
軟體: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 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.38.52.160 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1429439924.A.10A.html

04/19 18:44, , 1F
抱歉,原文內要請問的問題是?
04/19 18:44, 1F

04/19 18:47, , 2F
不好意思沒表述好,就是根據今天的時間來得到一個txt文件
04/19 18:47, 2F

04/19 18:48, , 3F
它的文件名是“2015年的第16周數據(4.12-4.18)”
04/19 18:48, 3F

04/19 18:49, , 4F
這個文件名有兩個變量“周數”和“周數的區間”
04/19 18:49, 4F

04/19 18:50, , 5F
函數的思路是根據本地時間可以得到上一周是2015年第16周
04/19 18:50, 5F

04/19 18:51, , 6F
周數的區間(上周日對應時間-本周六對應時間)
04/19 18:51, 6F

04/19 18:55, , 7F
因此是求B1的函數嗎?
04/19 18:55, 7F

04/19 18:56, , 8F
不是,函數+vba可以處理這個問題,但我現在想完全用VBA解
04/19 18:56, 8F

04/19 18:57, , 9F
目前的已經條件是本地日期,通過運行代碼得到
04/19 18:57, 9F

04/19 18:57, , 10F
2015年的第16周數據(4.12-4.18).txt
04/19 18:57, 10F

04/19 19:23, , 11F
format,weekday http://goo.gl/jTzs6O
04/19 19:23, 11F

04/19 19:57, , 12F
so大,邏輯還是有點問題,我在4.19至4.25日運行得到的結果
04/19 19:57, 12F

04/19 19:57, , 13F
都是“2015年的第16周數據(4.12-4.18).txt”
04/19 19:57, 13F

04/19 20:23, , 14F
+1改為-6
04/19 20:23, 14F

04/19 20:34, , 15F
sd = Date - Weekday(Date) - 6能否注釋一下這句
04/19 20:34, 15F

04/19 20:39, , 16F
weekday這裡週日為1、週一為2、週二為3..類推
04/19 20:39, 16F

04/19 20:40, , 17F
4/19(減7)、4/20(減8)、4/21(減9)
04/19 20:40, 17F

04/20 00:26, , 18F
MsgBox Format(sd, "yyyy年第ww周bet盈利排行榜(mm.dd-")
04/20 00:26, 18F

04/20 00:26, , 19F
& Format(sd + 6, "mm.dd)")
04/20 00:26, 19F

04/20 00:27, , 20F
返回結果為
04/20 00:27, 20F

04/20 00:27, , 21F
2015年第16周B0t盈利排行榜(04.12-04.18)
04/20 00:27, 21F

04/20 00:28, , 22F
請問是怎么回事? 其中文本中應為bet,而非bot
04/20 00:28, 22F

04/20 06:58, , 23F
e對format是做用的關係,改為b\et
04/20 06:58, 23F

04/20 06:58, , 24F
04/20 06:58, 24F
文章代碼(AID): #1LCuMq4A (Office)
文章代碼(AID): #1LCuMq4A (Office)