Zdravim
...mam aplikaciu vo vb6 kde zapisujem udaje do excelu, ale stava sa ze pri ukladani excelu mi da hlasku , ze excel subor uz existuje...niekedy ho potrebujem prepisat (vtedy pokracuje program OK) a niekedy ho nechcem prepisovat(a vtedy mi to padne bo to nemam osetrene v VB6). Aku podmienku mam dat do vb6 aby mi ten excel subor neprepisal a pokracoval?
Neulozenie, neprepisovanie execelu cez VB6
-
axxis
Addict
- Príspevky: 3690
- Registrovaný: 29 máj 2007, 21:53
- Bydlisko: Spálené mlyny
- Kontaktovať používateľa:
Re: Neulozenie, neprepisovanie execelu cez VB6
FileMode.Append?
-
manager666
Star
- Príspevky: 642
- Registrovaný: 12 aug 2007, 13:29
Re: Neulozenie, neprepisovanie execelu cez VB6
File mode append, čo je vo VB6:
Kód: Vybrať všetko
Open <FILENAME> For Append As <FILE#>Re: Neulozenie, neprepisovanie execelu cez VB6
Set excelApp = New Excel.Application
Set excelWB = excelApp.Workbooks.Add ''vytvorenie excelu
Set excelWS = excelWB.Worksheets.Add
excelWS.Name = "test"
excelWB.Worksheets(1).Cells(1, 1).Value = "xxxxxxxx"
excelWB.Worksheets(1).Cells(1, 2).Value = "x1xx1x1x1xxx"
.
.
.
.
excelWB.Worksheets(1).Cells(aaa, 1).Value = koko1
.
.
.
excelWB.SaveAs "C:\TEST\EXCEL\Artikel", FileFormat:=xlExcel8
excelWB.Close
excelApp.Quit
Takto to neako mam.Potom ked mi to uklada tak sa ma opyta ci to chcem prepisat, ked stacim Pripisat tak je vsetko OK, ale ked dam Neprepisuj tak to padne...Kde mam teda dat ten Appended?
Set excelWB = excelApp.Workbooks.Add ''vytvorenie excelu
Set excelWS = excelWB.Worksheets.Add
excelWS.Name = "test"
excelWB.Worksheets(1).Cells(1, 1).Value = "xxxxxxxx"
excelWB.Worksheets(1).Cells(1, 2).Value = "x1xx1x1x1xxx"
.
.
.
.
excelWB.Worksheets(1).Cells(aaa, 1).Value = koko1
.
.
.
excelWB.SaveAs "C:\TEST\EXCEL\Artikel", FileFormat:=xlExcel8
excelWB.Close
excelApp.Quit
Takto to neako mam.Potom ked mi to uklada tak sa ma opyta ci to chcem prepisat, ked stacim Pripisat tak je vsetko OK, ale ked dam Neprepisuj tak to padne...Kde mam teda dat ten Appended?
-
manager666
Star
- Príspevky: 642
- Registrovaný: 12 aug 2007, 13:29
Re: Neulozenie, neprepisovanie execelu cez VB6
Kedze uz vidim ako to mas urobene, ignoruj, co som predtym napisal. Postup je takyto:
Skontrolujes si, ci dany subor existuje:
-ak nie, tak ulozis
-ak ano, spytas sa uzivatela, ci chce dany subor prepisat:
--ak ano, tak ulozis
--ak nie, tak nevykonas nic
Samozrejme, DisplayAlerts nastav na false.
Skontrolujes si, ci dany subor existuje:
-ak nie, tak ulozis
-ak ano, spytas sa uzivatela, ci chce dany subor prepisat:
--ak ano, tak ulozis
--ak nie, tak nevykonas nic
Samozrejme, DisplayAlerts nastav na false.
Re: Neulozenie, neprepisovanie execelu cez VB6
no to presne potrebujem len nemam ziadny priklad...mohol by si mi ukazat ako..cize: If co = comu ???manager666 napísal:Kedze uz vidim ako to mas urobene, ignoruj, co som predtym napisal. Postup je takyto:
Skontrolujes si, ci dany subor existuje:
-ak nie, tak ulozis
-ak ano, spytas sa uzivatela, ci chce dany subor prepisat:
--ak ano, tak ulozis
--ak nie, tak nevykonas nic
Samozrejme, DisplayAlerts nastav na false.