[追病毒週記]十月9日週五/英國防疫禁令第200天
高潮迭起的一週，先說我一向最關心的旅行禁令
訂正版，誤植義大利感謝網友校訂：
📍上週波蘭、土耳其以及荷屬加勒比海小島Bonaire/St Eustatius/Saba旅客列入隔離清單
＃沒關係波蘭伏特加準備好喝起來
本週沒有、沒有、沒有任何一個國家列入隔離清單
＃因為別的國家疫情都比英國安全
相反的，希臘五個小島回到空中走廊清單
＃還是可以把希臘茴香酒開起來
而已在互惠清單上的義大利加碼新規定，英國入境旅客要提出三天內的陰性檢驗證明。
#可以怒喝義大利Prosecco 😆
延續上週新生入學集體感染的話題熱度，＃這週更熱了
更新版（感謝網友訂正）：
📍新堡大學隔壁的諾桑比亞大學上週末已知有大約700名師生感染，
如果學校不停實體教學，教職員打算罷工抗議
（後來呢...我還沒空查，有請當地達人來補充）。
新堡大學從上週100人飆到1000人，我查一下師生人數，估計兩萬七千人左右，感染率約2.5%。
📍曼城上週末集體隔離1700名住宿生，但是本週發現感染人數也是超過1000名。人數之多，他們還偷開「僅限感染者參加」的派對。
曼大有四萬名師生，等於是2.5%的感染率，和新堡大學比率差不多。
新數據顯示在曼城某個學生區域，感染率占當地人口5%，等於每十萬人有五千人感染，比英國感染率最高的城鎮高七倍。
＃年輕人替大家實驗群體免疫理論
📍目前英國有80所大學校園傳出大規模的學生感染，總數大約5000人。
新傳出宿舍集體隔離的校園是布魯斯托大學，40人傳出感染，大約300名住宿生隔離中。
＃突然覺得小case了 ＃小case也是要謹慎
📍因為感染人數大量集中在年輕族群，而禁止商業活動的防疫措施嚴重影響經濟發展，有一派的科學家提議把讓危弱族群去閉關，讓其他人生活恢復常態
＃這一派是希望晚上去可以去上酒吧的
📍本週最熱的話題應該是，10月2日新增感染人數突然飆高超過兩萬人
英國公衛部表示，是電腦程式出錯，有些資料當日沒有匯入公衛部的資料庫
發現這個錯誤後，把一週來漏列的一萬多筆資料一起補上。
這不是公衛部第一次數據急轉彎，八月時他們說大約3萬筆資料重複計算了，
某天的累積感染人數數據就直接減去之前重複的
＃資料格式不統ㄧ做研究的人覺得心很累
電腦資料為何會出錯呢？＃陰謀論者可以跳過以下
外包的商業檢驗所給公衛部的檔案是用csv格式，可自動匯入公衛部的excel表格
但公衛部誤用了舊版的XLS格式，最多只能匯入6萬5千行資料，
而不是XLSX，可以處理一百萬行。
由於每筆個案資料占好幾行，於是每個檔案只能讀到1400筆資料
「多餘」的資料就沒有顯示在資料庫裡。
＃XLS早在1987年已升級啊公衛部你真懷舊
＃電腦阿宅表示是個非常低級的錯誤
雖然檢驗所有通知個別受檢者檢驗結果，
但疫調中心從資料庫只讀取到75％的感染者資料，
估計有5萬名曾與感染者接觸過的人沒有被即時通知到
這個錯誤造成的最大危機。
新聞爆發的第一時間看到網路上有些人說:英國政府蓋牌、數據不可信、實際人數一定更高...
這些是廢話吧。實際數字更高是當然的，不是每個有症狀的人都去檢驗，無症狀的人更不會想到要去檢驗。
如果政府存心低報數字，可以根本不用提這些沒進入資料庫的人數
＃尤其還是這麼蠢的錯誤
＃衛報也分析這個電腦錯誤小報也沒質疑蓋牌陰謀
想知道大概的感染人數也可以參考統計局的抽樣調查
＃但是等他們統計完再公布都是兩三週前的歷史
＃抽樣是否具代表性是另一個題目
📍其他直得關心的事呢，蘇格蘭祭出更進一步的防疫禁令
中央蘇格蘭地區（包括哥拉斯哥、愛丁堡這些重點城市）
賣酒的場所禁止營業16天
沒賣酒的cafe可以營業到六點，外送店可以營業。
蘇格蘭其他地區可以營業到晚上10點，但是只能在戶外喝酒
＃酒鬼禁令
📍英格蘭的感染率各區幾乎都是增加中，新增熱點是諾丁漢市和諾丁漢郡，＃羅賓漢的故鄉
感染率高過已在加強禁令的地區，地方政府先呼籲居民暫停串門子。
#剉著等中央禁令
📍下週強森將宣布新的防疫禁令，很可能把英格蘭🏴分為紅黃綠三區🚦，
有不同程度的新禁令，
＃唐寧街小強可能會抄蘇格蘭鱘魚同學的作業嗎
📍如果疫情紅燈區🚦是每十萬人有50人感染，大倫敦幾乎都淪陷了（地圖橘色就是50人以上）
倫敦的Tower Hamlet 地區（紅磚巷、Queen Marry 大學所在地）
正火紅，地方政府上週已呼籲居民不要串門子。
一向被視為富人區的里奇蒙，本週疫情也高漲，名列第一。
＃就說病毒沒有歧視
這呼應了統計局上個月公布的分析顯示，疫情在富裕、白人、35歲以下族群之間以兩倍的速度成長。
這樣下去聖誕節有沒有希望取消「六人禁令」呢？
火雞農覺得希望很小，只有六人圍爐，
估計大隻的火雞不好賣，已經先讓火雞節食瘦身
＃火雞表示反對身材歧視
csv轉xlsx 在 [問題] 請問excel 批次把xlsx 轉CSV - 看板Office - 批踢踢實業坊 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: Excel
版本: 2016,企業版
不好意思, 因為需要大量把xlsx檔案轉成csv (但是之前沒碰過VB)
在參考了板上的文章 https://www.ptt.cc/bbs/Office/M.1241585891.A.45C.html
試著稍微修改, 不曉得為何轉檔出來的檔案, 檔名一樣為*.xlsx,
而且會出現,
"Excel 無法開啟檔案,因為檔案格式或副檔名無效,請確認檔案沒有毀損,
且副檔名符合檔案的格式。"
大大感謝~
---我修改的code如下--
Sub Macro1()
Dim path As String
Dim obApp As New Excel.Application
Dim myFso: Set myFso = CreateObject("Scripting.FileSystemObject")
Dim wbnew
'要處理的目錄
path_IN = "C:\Users\Desktop\temp2\test\"
path_OUT = "C:\Users\Desktop\temp2\csv\"
obApp.DisplayAlerts = False
obApp.ScreenUpdating = False
Dim myfiles: Set myfiles = myFso.GetFolder(path_IN).Files
For Each myFile In myfiles
Set wbnew = obApp.Workbooks.Open(path_IN & myFile.Name)
With wbnew.Worksheets(1)
End With
'存檔並改成 excel 格式
wbnew.SaveAs Filename:=path_OUT & myFile.Name, FileFormat:=xlCSV
wbnew.Close
Set wbnew = Nothing
Next
obApp.ScreenUpdating = True
obApp.DisplayAlerts = True
Set obApp = Nothing
MsgBox ("完成!")
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.136.158.53
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1500395482.A.3E1.html
... <看更多>