MS Excel

Téma: Náhodná chyba pri vložení dát Excel -> Word

Zaslal/a markos 3.7.2014 10:38

Dobrý deň,

mám problém, pri vkladaní dát z Excelu do Word dokumentu. Chyba sa objavuje sporadicky a náhodne. Pre vkladanie dát do wordu používam záložky.
Úryvok z programu:

' Inicializácia dát

Set popisexcel = ThisWorkbook
Set popissheet = popisexcel.Worksheets("Popis")
Set namee = popissheet.Range("B7")

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("c:\KUKA\Temp\" & stWordReport)
Set namew = wdDoc.Bookmarks("name").Range

If Name_m_fm = True Then
namee.copy ' Nakopírovanie obsahu do clipboardu
With namew
.Select ' Prechod do záložky vo Word dokumente
.PasteSpecial DataType:=wdPasteText ' Vloženie dát
End With
Call ClearClipboard ' Čistenie clipboardu
End If

Takýchto bolokov tam mám asi 20. Občas sa stane, že program zastane v časti ".PasteSpecial DataType:=wdPasteText ' Vloženie dát " s chybou, že nie je možné vložiť dáta, pretože obsah clipboardu je prázdny. Keď však ručne zopakujem procedúru "namee.copy ' Nakopírovanie obsahu do clipboardu" , tak program už pokračuje bezproblémovo. Zo 100 prípadov sa to stane raz, na rozdielnych procedúrach, ktoré su presne takto napísané ako táto uvedená.

Vie niekto pomôcť?

Zaslat odpověď >

Palooo(4.7.2014 8:33)#020347

tu by sa viac hodila priloha ... v ktorej to nejdecitovat

lubo(4.7.2014 9:21)#020351

To vypadá, že se něco občas někde něco nestihne. Zkus si pohrát s nějakým čekáním při přepínání aplikací.citovat

Palooo(4.7.2014 9:33)#020353

ja som uz taketo nieco riesil a casove oneskorenia robili problem len v tedy ked som pouzival nafest cupliky z ribornu .... inac to islo spravne ... chce to prilohu takto zas budem len hadat

.... podla mna zobralo to praznu bunku a snazi sa ju tam pastnutcitovat

lubo(4.7.2014 14:18)#020359

@Paloo

No, taky jsem už něco řešil (xls->ppt) a problémy s časováním tam byly. Odpovídá tomu i nahodilost vzniku chyb.citovat

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.