Dim plik As String
  
  On Error GoTo etError
  Application.ScreenUpdating = False
  
  plik = Application.ActiveWorkbook.FullName ' tu się gubił, zmieniłem z ActiveWorkbook.FullName
                                             ' na Application.ActiveWorkbook.FullName
  plik = Replace(plik, ".xls", "")
  
  'utwórz kopię arkusza w nowym skoroszycie
  Sheets("Dane").Visible = True
  Sheets("Dane").Select
  
  Sheets("Dane").Copy
  Range("A1").Select
  
  'bez pytania o nadpisanie pliku
  Application.DisplayAlerts = False
  
  'zapsz do DBF
  ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlDBF4
  
  
  MsgBox ("Wyprowadzono zbiór do pliku DBF: " & plik)

  'zamknij skoroszyt
  ActiveWorkbook.Close SaveChanges:=False
  Application.ActiveWorkbook.Close

  
  Exit Sub
  
etError:
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  
End Sub

Sub ZapiszDBF()
  '
  ' ZapiszDBF Makro

  Dim plik As String
  
  On Error GoTo etError
  
  Application.ScreenUpdating = False
  
  plik = ThisWorkbook.FullName
  plik = Replace(plik, ".xls", "")
  
  'utwórz kopię arkusza w nowym skoroszycie
  Sheets("Dane").Copy
  Range("A1").Select
  
  'bez pytania o nadpisanie pliku
  Application.DisplayAlerts = False
  
  'zapsz do DBF
  ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlDBF4
  
  'zamknij skoroszyt
  ActiveWorkbook.Close SaveChanges:=False
  
  MsgBox ("Wyprowadzono zbiór do pliku DBF: " & plik)

  Exit Sub
  
etError:
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  
End Sub

Sub ZapiszDBF()
'
' ZapiszDBF Makro

Dim Path As String
    
Path = ThisWorkbook.Path & ".\"
      
    Sheets("Dane").Visible = True
      
    Sheets("Dane").Select
        
    Range("A1").Select
    
        
Application.ScreenUpdating = False
        
        ActiveWorkbook.SaveAs FileFormat:= _
        xlDBF4, CreateBackup:=False
        MsgBox ("Wyprowadzono zbiór do pliku DBF" & ThisWorkbook.Path)
                
    ActiveWorkbook.Close
    
     
End Sub