Hej,
Sub Zapisz_Kopie_do_Txt()
Dim WbFile As String
Dim txtPath As String
Dim wb As Workbook
'akrkusz, który zostanie zapisany
Worksheets("Arkusz1").Select
With ThisWorkbook
'pełna scieżka do oktualnego skoroszytu
WbFile = .FullName
'sieżka do pliku tekstowego
txtPath = Replace(WbFile, ".xls", ".txt")
'zapisanie zmian w skoroszycie
.Save
'wyłączenie komunikatów aplikacji
Application.DisplayAlerts = False
'zapisanie kopii do pliku tekstowego
.SaveAs Filename:=txtPath, _
FileFormat:=xlText, _
CreateBackup:=False
'aktualnym skoroszytem jest teraz plik tekstowy
Set wb = ThisWorkbook
'ponowne otwarcie skoroszytu (pliku XLS)
Workbooks.Open WbFile
'zamknięcie pliku tekstowego
wb.Close
Application.DisplayAlerts = True
End With
End Sub |