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 = ",('" & celija1 & "','" & celija2 & "')" End If Print #FF, PrintString Next red Print #FF, ";"