Sub 股市下載()

    '1.匯入WEB資料

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;https://tw.finance.yahoo.com/s/list.php?c=%A4%F4%AAd&rr=0.00074600%201434158441" _

        , Destination:=Range("$A$1"))

        .Name = "list.php?c=%A4%F4%AAd&rr=0.00074600%201434158441"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlSpecifiedTables

        .WebFormatting = xlWebFormattingNone

        .WebTables = "8"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

    '2.刪除A欄

    Columns(1).Delete

    '3.自動調整欄寬

    Columns("A:L").AutoFit

    '4.取消選取

    Range("A1").Select

End Sub

Sub 刪除舊工作表()

    '1.刪除舊工作表

    Application.DisplayAlerts = False

    For i = Sheets.Count To 2 Step -1

        Sheets(i).Delete

    Next

    Application.DisplayAlerts = True

End Sub

Sub 批次新增工作表()

    '1.工作表名稱範圍

    For i = 2 To Sheets(1).Range("A2").End(xlDown).Row

        '2.取得類股名稱

        x = Sheets(1).Cells(i, "A")

        '3.新增工作表並重新命名

        Sheets.Add After:=Sheets(Sheets.Count)

        Sheets(Sheets.Count).Name = x

    Next

    Sheets(1).Select

End Sub