< návrat zpět

MS Excel

Téma: otvorenie makrom suboru s chybami rss

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: zip16606_dd.zip (105kB, staženo 31x)
Zaslat odpověď >
Palooo(2.12.2013 16:59)#016610
avatar
nekontroloval som ten subor ale mate

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

inac to da aktualne viditelnycitovat
misocko(2.12.2013 21:20)#016614
avatar
sice Ti nerozumiem , ale takto vyzera cas kodu
Application.DisplayAlerts = False
Workbooks.Open Filename:= "dd.xls"

a vyhodi mi to chybucitovat
icon AL(2.12.2013 23:55)#016615
avatar
Sub Otvor()
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Documents and Settings\al057494\Desktop\dd.xls", CorruptLoad:=xlExtractData
Application.DisplayAlerts = True
End Subcitovat
Palooo(3.12.2013 8:39)#016617
avatar
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 subcitovat
misocko(3.12.2013 18:41)#016625
avatar
skusim zajtra v praci, zatial dik obomcitovat
misocko(10.12.2013 14:12)#016748
avatar
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 dikcitovat
icon AL(10.12.2013 15:14)#016749
avatar
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ť..citovat
misocko(11.12.2013 20:22)#016759
avatar
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.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje