<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Dim FF As Integer
Dim imeFile As String
FF = FreeFile()

exportName = "ime_datoteke.sql"

resetiranje varijabli
celija1 = "": celija2 = ""
PrintString = ""

Open exportName For Output As #FF
        Print #FF, "TRUNCATE TABLE tab_1;"
        Print #FF, "TRUNCATE TABLE tab_2;"
        Print #FF, "INSERT INTO tab_1 (ID, ime)"
        Print #FF, "VALUES"
	For red = 1 To zadnjiRed /ovo mozete mijenjati

            celija1 = Cells(red, 2).Value 'uzima ID iz celije
            celija2 = Cells(red, 3).Value 'uzima ime iz celije
            
            If PrintString = "" Then
		/ako je PrintString prazan , radi se o prvom redu pa nema zareza na pocetku
                PrintString = "('" & celija1 & "','" & celija2 & "')"
            Else
		/ako PrintString nije prazan, podaci se nadovezuju pa treba zarez na pocetku
                PrintString = ",('" & celija1 & "','" & celija2 & "')"
            End If
            Print #FF, PrintString /upisemo PrintString u datoteku

        Next red /sljedeci red

        Print #FF, ";" /kada smo dosli do kraja upisemo na kraj ;
Close #FF /zatvorimo datoteku za upisivanje


mozda cete trebati obraditi podatke nakon upisivanja, kao ja, pa onda nastvljate upisivati u istu datoteku
nove podatke.

neki kod koji obraduje celije i podatke u excelu

Open exportName For Append As #FF
	Print #FF, "INSERT INTO tab_2 (ID, tezina)"
        Print #FF, "VALUES"
        
        For red = 1 To zadnjiRed
            celija1 = Cells(red, 2).Value 'ID
            celija2 = Cells(red, 4).Value 'tezina

            If PrintString = "" Then
            	PrintString = "('" & celija1 & "','" & celija2 & "')"
            Else
		PrintString = ",(