VBA Tips Collection

Sub SaveAsToCSV()
'Rough version
    ''Application.DisplayAlerts = False
    ''ActiveSheet.SaveAs "c:\Hello", xlCSV
    ''Application.DisplayAlerts = True
    
'End

'Enhanve version
    Application.DisplayAlerts = False
    ActiveSheet.SaveAs ThisWorkbook.Path & "\Hello", xlCSV
    Application.DisplayAlerts = True
''Enhance end
End Sub

Sub UnHideAllWP()

Dim i As Integer

For i = 1 To Sheets.Count

    Sheets(i).Visible = True

Next i

End Sub

Sub SaveAsToPDF()

    Application.DisplayAlerts = False
    Sheets(Array("Show1", "Show2")).Select
    'Sheets("Sheet1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "\Hellos.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.DisplayAlerts = True
End Sub

　　

Sub mulu()
    Dim I As Integer
    Dim J As Integer
    Dim Rng As Range
    On Error Resume Next
    
    J = Worksheets.Count
    If J = 0 Or J = 1 Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To J
        If Sheets(I).Name = "目录" Then
            Sheets("目录").Move before:=Sheets(1)
        End If
    Next I
    If Sheets(1).Name <> "目录" Then
        J = J + 1
        Sheets(1).Select
        Sheets.Add
        Sheets(1).Name = "目录"
    End If
    Sheets("目录").Select
    Columns("B:B").Delete Shift:=xlToLeft
    For I = 2 To J
        ActiveSheet.Hyperlinks.Add anchor:=Worksheets("目录").Cells(I, 1), Address:="", SubAddress:="'" & Sheets(I).Name & "'!R1C1", TextToDisplay:=Sheets(I).Name
        Sheets(I).Hyperlinks.Add anchor:=Sheets(I).Cells(1, 1), Address:="", SubAddress:="'" & Sheets("目录").Name & "'!R1C1", TextToDisplay:="返回目录"
    Next
    Sheets("目录").Cells(1, 1) = "目录"
    Application.ScreenUpdating = True
End Sub