宏根據工作表名稱

Question

我已經記錄了下面的宏從網站上下載的數據：

Sub SGXdivdownload() 
' 
' SGXdivdownload Macro 
' 
    Sheets("K71U").Select 
    Sheets("K71U").Name = "K71U" 
    With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;http://www.sgxdata.pebbleslab.com/index.asp?m=2&NC=K71U", Destination:= _ 
     Range("$A$1")) 
     .Name = "index.asp?m=2&NC=K71U" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    Rows("1:20").Select 
    Selection.Delete Shift:=xlUp 
    ActiveWindow.ScrollRow = 2 
    ActiveWindow.ScrollRow = 3 
    ActiveWindow.ScrollRow = 5 
    ActiveWindow.ScrollRow = 8 
    ActiveWindow.ScrollRow = 11 
    ActiveWindow.ScrollRow = 15 
    ActiveWindow.ScrollRow = 18 
    ActiveWindow.ScrollRow = 21 
    ActiveWindow.ScrollRow = 25 
    ActiveWindow.ScrollRow = 28 
    ActiveWindow.ScrollRow = 32 
    ActiveWindow.ScrollRow = 36 
    ActiveWindow.ScrollRow = 41 
    ActiveWindow.ScrollRow = 45 
    ActiveWindow.ScrollRow = 48 
    ActiveWindow.ScrollRow = 52 
    ActiveWindow.ScrollRow = 53 
    ActiveWindow.ScrollRow = 56 
    ActiveWindow.ScrollRow = 57 
    ActiveWindow.ScrollRow = 58 
    ActiveWindow.ScrollRow = 59 
    ActiveWindow.ScrollRow = 60 
    ActiveWindow.ScrollRow = 61 
    ActiveWindow.ScrollRow = 62 
    ActiveWindow.ScrollRow = 63 
    ActiveWindow.ScrollRow = 64 
    ActiveWindow.ScrollRow = 65 
    ActiveWindow.ScrollRow = 66 
    ActiveWindow.ScrollRow = 68 
    ActiveWindow.ScrollRow = 69 
    ActiveWindow.ScrollRow = 71 
    ActiveWindow.ScrollRow = 72 
    ActiveWindow.ScrollRow = 70 
    ActiveWindow.ScrollRow = 69 
    ActiveWindow.ScrollRow = 67 
    ActiveWindow.ScrollRow = 66 
    ActiveWindow.ScrollRow = 65 
    ActiveWindow.ScrollRow = 62 
    ActiveWindow.ScrollRow = 59 
    ActiveWindow.ScrollRow = 56 
    ActiveWindow.ScrollRow = 52 
    ActiveWindow.ScrollRow = 48 
    ActiveWindow.ScrollRow = 44 
    ActiveWindow.ScrollRow = 41 
    ActiveWindow.ScrollRow = 37 
    ActiveWindow.ScrollRow = 34 
    ActiveWindow.ScrollRow = 30 
    ActiveWindow.ScrollRow = 26 
    ActiveWindow.ScrollRow = 22 
    ActiveWindow.ScrollRow = 19 
    ActiveWindow.ScrollRow = 16 
    ActiveWindow.ScrollRow = 13 
    ActiveWindow.ScrollRow = 11 
    ActiveWindow.ScrollRow = 8 
    ActiveWindow.ScrollRow = 5 
    ActiveWindow.ScrollRow = 1 
    Columns("A:A").ColumnWidth = 17 
End Sub 

字符串「K71U」是SHEETNAME，和宏應該從每片看完這些內容並調整宏觀因此。所以，如果XYZ選擇紙張和執行宏，就應該執行這個宏：

Sub SGXdivdownload() 
' 
' SGXdivdownload Macro 
' 

' 
    Sheets("XYZ").Select 
    Sheets("XYZ").Name = "XYZ" 
    With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;http://www.sgxdata.pebbleslab.com/index.asp?m=2&NC=XYZ", Destination:= _ 
     Range("$A$1")) 
     .Name = "index.asp?m=2&NC=XYZ" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    Rows("1:20").Select 
    Selection.Delete Shift:=xlUp 
    ActiveWindow.ScrollRow = 2 
    ActiveWindow.ScrollRow = 3 
    ActiveWindow.ScrollRow = 5 
    ActiveWindow.ScrollRow = 8 
    ActiveWindow.ScrollRow = 11 
    ActiveWindow.ScrollRow = 15 
    ActiveWindow.ScrollRow = 18 
    ActiveWindow.ScrollRow = 21 
    ActiveWindow.ScrollRow = 25 
    ActiveWindow.ScrollRow = 28 
    ActiveWindow.ScrollRow = 32 
    ActiveWindow.ScrollRow = 36 
    ActiveWindow.ScrollRow = 41 
    ActiveWindow.ScrollRow = 45 
    ActiveWindow.ScrollRow = 48 
    ActiveWindow.ScrollRow = 52 
    ActiveWindow.ScrollRow = 53 
    ActiveWindow.ScrollRow = 56 
    ActiveWindow.ScrollRow = 57 
    ActiveWindow.ScrollRow = 58 
    ActiveWindow.ScrollRow = 59 
    ActiveWindow.ScrollRow = 60 
    ActiveWindow.ScrollRow = 61 
    ActiveWindow.ScrollRow = 62 
    ActiveWindow.ScrollRow = 63 
    ActiveWindow.ScrollRow = 64 
    ActiveWindow.ScrollRow = 65 
    ActiveWindow.ScrollRow = 66 
    ActiveWindow.ScrollRow = 68 
    ActiveWindow.ScrollRow = 69 
    ActiveWindow.ScrollRow = 71 
    ActiveWindow.ScrollRow = 72 
    ActiveWindow.ScrollRow = 70 
    ActiveWindow.ScrollRow = 69 
    ActiveWindow.ScrollRow = 67 
    ActiveWindow.ScrollRow = 66 
    ActiveWindow.ScrollRow = 65 
    ActiveWindow.ScrollRow = 62 
    ActiveWindow.ScrollRow = 59 
    ActiveWindow.ScrollRow = 56 
    ActiveWindow.ScrollRow = 52 
    ActiveWindow.ScrollRow = 48 
    ActiveWindow.ScrollRow = 44 
    ActiveWindow.ScrollRow = 41 
    ActiveWindow.ScrollRow = 37 
    ActiveWindow.ScrollRow = 34 
    ActiveWindow.ScrollRow = 30 
    ActiveWindow.ScrollRow = 26 
    ActiveWindow.ScrollRow = 22 
    ActiveWindow.ScrollRow = 19 
    ActiveWindow.ScrollRow = 16 
    ActiveWindow.ScrollRow = 13 
    ActiveWindow.ScrollRow = 11 
    ActiveWindow.ScrollRow = 8 
    ActiveWindow.ScrollRow = 5 
    ActiveWindow.ScrollRow = 1 
    Columns("A:A").ColumnWidth = 17 
End Sub 

感謝任何投入！

Answer 1

下宏根據選擇表名稱請求數據：

Sub SGXdivdownload() 
' 
' SGXdivdownload Macro 
' 
    With ActiveSheet.QueryTables.Add("URL;http://www.sgxdata.pebbleslab.com/index.asp?m=2&NC=" & ActiveSheet.Name, Range("$A$1")) 
     .Name = ActiveSheet.Name 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    Rows("1:20").Select 
    Selection.Delete Shift:=xlUp 
    ActiveWindow.ScrollRow = 1 
    Columns("A:A").ColumnWidth = 17 
End Sub