function exportData(prviRed, zadnjiRed, imeDatoteke, data_1, data_2)
	
	Open imeDatoteke For Append As #FF
		Print #FF, "INSERT INTO tab_2 (data_1, data_2)"
        	Print #FF, "VALUES"
        
        	For red = prviRed To zadnjiRed
        	    celija1 = Cells(red, 2).Value 'ID
	            celija2 = Cells(red, 4).Value 'tezina

	            If PrintString = "" Then
        	    	PrintString = "('" & celija1 & "','" & celija2 & "')"
	            Else
			PrintString = ",('" & celija1 & "','" & celija2 & "')"
	            End If
			
			Print #FF, PrintString
            
        	Next red
        	Print #FF, ";"
	Close #FF
end fuction