Jak podzielić skoroszyt na arkusze w oddzielnych plikach .xlsx?

Otwórz Edytor Visual Basic używająć skrótu klawiaturowego lewy Alt + F11. Z menu Insert wybierz polecenie Module i wpisz kod makra:


Sub Kopiowanie_arkuszy()
  Dim sht As Worksheet, path As String
    Application.ScreenUpdating = False
        path = ActiveWorkbook.path & "\"
        For Each sht In ActiveWorkbook.Worksheets
            sht.Copy
            ActiveWorkbook.SaveAs Filename:=path & sht.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook
        Next sht
    Application.ScreenUpdating = True
End Sub

Jak usunąć wszystkie drukarki sieciowe?

- tworzymy plik tekstowy
- wpisujemy kod:

Const NETWORK = 22
Set objNetwork = CreateObject("WScript.Network")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
   
For Each objPrinter in colPrinters
    If objPrinter.Attributes And NETWORK Then 
        strPrinter = objPrinter.Name
        objNetwork.RemovePrinterConnection strPrinter
    End If
Next

- zapisujemy zmiany i zmieniamy rozszerzenie pliku z .txt na .vbs.

- uruchamiamy plik i cieszymy się brakiem drukarek

więcej