MS Excel

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

Zaslat odpověď >

Palooo(2.12.2013 16:59)#016610

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

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

a vyhodi mi to chybucitovat

AL(2.12.2013 23:55)#016615

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

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

skusim zajtra v praci, zatial dik obomcitovat

misocko(10.12.2013 14:12)#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 dikcitovat

AL(10.12.2013 15:14)#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ť..citovat

misocko(11.12.2013 20:22)#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.citovat

Téma: otvorenie makrom suboru s chybami

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka