< návrat zpět

MS Excel


Téma: Makro na kopírování rss

Zaslal/a 15.6.2020 5:05

FantasykZdravím hackeři,
můžete mi někdo poradit kde mám chybu?
Dim w As Workbook 'A

Set w = Workbooks.Open(Filename:="adresa.xls")

ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Copy 'B

w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

Application.CutCopyMode = False

w.Close SaveChanges:=True

Set w = Nothing


v tomhle: w.Sheets("zpian").Range("A1:AC9999").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

mi to píše chybu 7

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

#046935
avatar
asi si zabudol aktivovať bunku A1 pred vložením oblasticitovat
#046936
elninoslov
Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?citovat
#046944
Fantasyk

elninoslov napsal/a:

Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?

elninoslov napsal/a:

Oblasti v oboch zošitoch sú rovnaké? Nie sú tam zlúčené iné bunky, alebo na iných miestach?
Skúste zameniť xlAdd za xlPasteSpecialOperationAdd.
A určite chcete hodnoty pridávať k predošlým?

Ne nechci k predeslym, ale cele smazat a zadat aktualni datacitovat
#046949
Fantasyk
Nevite nekdo?citovat
#046950
elninoslov
Bez skúšania od boku
Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="adresa.xls")
w.Sheets("zpian").Range("A1:AC9999").Value=ThisWorkbook.Sheets("Zpian").Range("A1:AC9999").Value
w.Close SaveChanges:=True
Set w = Nothing
citovat
#046951
Fantasyk
Tak nic z toho mi nefunguje :-(
Prostě chci jen z jednoho souboru zkopírovat všechny data v listu zpian a zkopírovat do aktivního kde je makro do listu Zpian..citovat
#046952
Fantasyk

Dim w As Workbook 'A
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls")
Range("A1:AC2000").Select
Selection.Copy
w.Close SaveChanges:=True
Set w = Nothing


A ted, jenom vložit do souboru v kterém je makrocitovat
#046953
elninoslov
Váš prvý kód otvára zošit adresa.xls (tam má byť celá cesta) a do neho vloží data zo zošitu, v ktorom spúšťate makro.
Ale teraz podľa posledného kódu je náznak, že to môže byť aj opačne. Že chcete kopírovať z toho otváraného. Aj keď ten posledný kód je zlý, ak to spúšťate z modulu skopíruje data z aktívneho listu aktívneho zošitu, a to bude po otvorení predsa práve ten otvorený súbor. Pred Range chýba vlastník.

Každopádne nebudem špekulovať, čo asi chcete ako urobiť z Vašich nefunkčných kódov. Napíšte odkiaľ sa má kopírovať (súbor + list), a kam sa má kopírovať (súbor + list). Ďalej či sú oblasti rovnaké, či sú nemenné, alebo či treba zisťovať ich veľkosť (lebo v kódoch používate rôzne oblasti).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