Np. Private Sub CommandButton2_Click()
Dim RngToCopy As Range
Dim NewWks As Worksheet
Set RngToCopy = Selection
Set NewWks = Workbooks.Add(1).Worksheets(1)
RngToCopy.Copy
NewWks.Range("a1").PasteSpecial Paste:=xlPasteValues
Name = Application.InputBox("Kliknij na komórę z nazwą", "Wskaż", , , , , , 2)
With NewWks.Parent
.SaveAs Filename:=ThisWorkbook.path & "/" & Name, FileFormat:=xlText
.Close savechanges:=False
End With
End Sub
Koniecznie musisz obsłużyć błędy wskazywania nazwy pliku - anulowanie, pusta komórka, znaki które nie mogą występować w nazwie pliku. |