MS Excel

Téma: otvorenie makrom suboru s chybami

Zaslal/a misocko 2.12.2013 13:28

ahojte
kazdy mesiac potrebujem otvorit makrom niekolko suborov vygenerovanych systemom ktory tam vsak uklada chybu - privela formatov buniek. momentalne to riesim tak ze kazdy subor otvorim rucne, potvrdim chyby a ulozim na to iste miesto s tym istym nazvom uz bez tej chyby, nasledne spustim makro. Nedalo by sa to nejako otvorit priamo makrom aj ked tam je tych vela formatov? (Application.Displayalerts = FALSE - nepomaha), v prilohe subor generovany systemom.
vopred dik

Příloha: zip

16606_dd.zip (105kB, staženo 35x)

Zaslat odpověď >

Palooo(2.12.2013 16:59)citovat#016610

nekontroloval som ten subor ale mate

Application.Displayalerts = FALSE tento prikaz definovany na ten otvoreny subor??

inac to da aktualne viditelny

misocko(2.12.2013 21:20)citovat#016614

sice Ti nerozumiem , ale takto vyzera cas kodu
Application.DisplayAlerts = False
Workbooks.Open Filename:= "dd.xls"

a vyhodi mi to chybu

AL(2.12.2013 23:55)citovat#016615

Sub Otvor()
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Documents and Settings\al057494\Desktop\dd.xls", CorruptLoad:=xlExtractData
Application.DisplayAlerts = True
End Sub

Palooo(3.12.2013 8:39)citovat#016617

urobte to takto:

Private xl As Excel.Application
Private W As Workbook

sub test()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\dd.xls")

w.cells(1,1) = cells(1,1)

W.Application.DisplayAlerts = False
W.SaveAs Filename:=Application.ThisWorkbook.Path & "\dd2.xls"
W.Application.DisplayAlerts = true

Set w = Nothing
Set xl = Nothing
end sub

misocko(3.12.2013 18:41)citovat#016625

skusim zajtra v praci, zatial dik obom

misocko(10.12.2013 14:12)citovat#016748

konecne som sa k tomu dostal.
Paloo - Tvoje riesenie mi nefunguje (nadalej vyhadzuje privela formatov)

Al - Tvoje riesenie otvara subor bez problemov, avsak zomrie mi to pri naslednom ukladani tohto suboru.

nevviete mi niekto poradit aj s ulozenim tohto suboru?

vopred dik

AL(10.12.2013 15:14)citovat#016749

avsak zomrie mi to pri naslednom ukladani tohto suboru
I keď ho uložíš pod novým názvom? Strieľam naslepo, nemám aktuálne príliš času to riešiť..

misocko(11.12.2013 20:22)citovat#016759

no aby som to presnejsie opisal. makrom si vytvaram novy subor , nasledne otvaram tie s chybami a z nich kopirujem vsetky vyplnene riadky do toho noveho suboru (v tych riadkoch teda prenasam aj tie chyby - teraz ma napadlo ze to skusim kopirovat len ako hodnoty), ten novy subor potom ukladam, a vtedy sa to zruti. no nic idem skusit kopirovat iba hodnoty.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.