< návrat zpět

MS Excel


Téma: Import z Wordu do Excelu ve VBA Excel rss

Zaslal/a 25.2.2014 12:35

Zdravím,

prosím o radu ohledně importu doc (případně docx, rtf) souboru do excelu. Potřeboval bych ve VBA v excelu vytvořit makro po jehož spuštění by se mi do excelu na daný list a buňku zkopíroval kompletní obsah nějakého word dokumentu.
To se mi podařilo vytvořit přes OleObjects, jenže v tom případě mi to z nějakého důvodu načte vždy pouze první stránku Word dokumentu a ostatní nenačte. Nevím kde je problém. Možná se na to OleObject moc nehodí a lze to udělat nějak jednoduše.
Pro mě by bylo nejlepší asi vyloženě funkce Copy, než importovat soubor.

Nyní mám kód zadán takto:

Sub DL1_import()
'
' DL1_import Makro
' Import VV do části dodacího listu DL1
'

'
Sheets("DL1").Select
Range("A17").Select
ActiveSheet.OLEObjects.Add(Filename:= _
Worksheets("DL DATA").Range("b3").Text _
, Link:=False, DisplayAsIcon:= _
False).Select

Sheets("DL2").Select
Range("B3").Select
ActiveSheet.OLEObjects.Add(Filename:= _
Worksheets("DL DATA").Range("b4").Text _
, Link:=False, DisplayAsIcon:= _
False).Select

Sheets("DODACÍ LIST").Select

End Sub

Tedy reálně si to načtě jeden dokument na list DL1, druhý na list DL2, ale právě že to v obou případech načte pouze vždy první stránku.

Díky za rady

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  « předchozí  1 2
#018051
avatar

Zbysek018 napsal/a:

Palooo: ....


prilozte ukazkovu prilohu skusim to urobit s vasim sposobom :) .... skusali ste aj For each pre kazdy OleObject ??? ked neviete nazovcitovat
#018055
avatar
Palooo: přikládám
Příloha: zip18055_dl_test.zip (212kB, staženo 36x)
citovat
#018115
avatar
Nepodařilo se někomu dostat efektně ty data z vloženého objektu Word dokumentu do buněk excelu?

Fyzicky to není problém (dvojklikem otevřít objekt, ctrl+a, ctrl+c, přejít do požadované buňky a paste) ale ve VBA mi to stále nefunguje.

Děkujicitovat
#039523
avatar
V současnosti řeším podobný problém.
Předcházející řešení se mi sice zamlouvalo a i vyhovovalo, ale mělo jednu vadu na kráse... spojilo mi to vždy poslední řádek na stránce s prvním na následující. Bohužel jsem potřeboval poslední údaj ze stránky a nepovedlo se mi zjistit jaký separátor zadat pro rozdělení :(
Pokud by někdo věděl jak tomu spojení buď zabránit či jak následně v excelu rozdělit, byl bych vděčný.
Zatímně používám ne moc elegantní a nejvhodnější (avšak předchozím příspěvkem žádané) CTRL+A a CTRL+C takto (prodleva je úmyslná - bez ní zůstal ve schránce někdy stárý obsah) :
Dim WordApp As Object
Dim WordDoc As Object

Set WordApp = CreateObject("Word.Application")

Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\"NÁZEVWORD")
WordApp.Visible = True

Application.SendKeys "%ůlš"
Application.Wait (Now + TimeValue("0:00:04"))
Application.SendKeys "%ůc"

Windows("NÁZEVEXCEL").Activate
Sheets("LISTEXCEL").Select
Application.Wait (Now + TimeValue("0:00:04"))

Range("BUNKAEXCEL").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False

WordDoc.Close
WordApp.Quitcitovat

Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09