Neulozenie, neprepisovanie execelu cez VB6

Programovacie jazyky, rady, poradňa...
kotlas666
Light Star
Light Star
Príspevky: 238
Registrovaný: 27 sep 2006, 12:48

Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa kotlas666 »

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?
axxis
Addict
Addict
Používateľov profilový obrázok
Príspevky: 3690
Registrovaný: 29 máj 2007, 21:53
Bydlisko: Spálené mlyny
Kontaktovať používateľa:

Re: Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa axxis »

FileMode.Append?
manager666
Star
Star
Používateľov profilový obrázok
Príspevky: 642
Registrovaný: 12 aug 2007, 13:29

Re: Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa manager666 »

File mode append, čo je vo VB6:

Kód: Vybrať všetko

Open <FILENAME> For Append As <FILE#>
kotlas666
Light Star
Light Star
Príspevky: 238
Registrovaný: 27 sep 2006, 12:48

Re: Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa kotlas666 »

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?
manager666
Star
Star
Používateľov profilový obrázok
Príspevky: 642
Registrovaný: 12 aug 2007, 13:29

Re: Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa manager666 »

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.
kotlas666
Light Star
Light Star
Príspevky: 238
Registrovaný: 27 sep 2006, 12:48

Re: Neulozenie, neprepisovanie execelu cez VB6

Príspevok od používateľa kotlas666 »

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.
no to presne potrebujem len nemam ziadny priklad...mohol by si mi ukazat ako..cize: If co = comu ???
Napísať odpoveď