resuly

Sub ExportSheetsToCSV()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = CurDir & "\" & xWs.Name & ".csv"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
        FileFormat:=xlCSVUTF8, CreateBackup:=False
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close

resuly

.introspection, .input_prompt,.output_prompt, .output pre, .CodeMirror pre, .rendered_html p{
    font-family: Consolas, "Liberation Mono", Menlo, Courier, monospace;
    font-size: 15px;
    line-height: 22px;
}
div.input_area {
    border: none;
    background: #f6f8fa;
}
.CodeMirror-gutters {

resuly

# Shadowrocket: 2019-05-27 21:03:25
[General]
skip-proxy = 192.168.0.0/16, 10.0.0.0/8, 172.16.0.0/12, localhost, *.local
bypass-tun = 192.168.0.0/16, 10.0.0.0/8, 172.16.0.0/12
loglevel = notify


[Rule]
DOMAIN-SUFFIX,126.com,UNBLOCKNETEASEMUSIC
DOMAIN-SUFFIX,163.com,UNBLOCKNETEASEMUSIC

resuly

license: mit

resuly

[General]
skip-proxy = 192.168.0.0/16, 10.0.0.0/8, 172.16.0.0/12, localhost, *.local
bypass-tun = 192.168.0.0/16, 10.0.0.0/8, 172.16.0.0/12
loglevel = notify

[Rule]
FINAL,DIRECT

[Host]
p1.music.126.net = 163.171.196.82