Dober večer,
z VBA v Excelu odprem TXT datoteko. Znotraj odprtih podatkov poiščem želene, jih označim in kopiram na odložišče. Odprem nov Excelov zvezek. Vanj želim prilepiti skopirano in to kot vrednost.
Nekaj očitno počnem narobe, saj mi koda ne dela vedno. Kadar kodo zaženem samostojno (samostojen makro), dela tako kot sem si želel. Kadar makro s to kodo kličem iz drugega makra pa se izvajanje samo ustavi pri " Selection.PasteSpecial...".
Z debug-anjem sem prišel do ugotovitve, da se dejansko ne izvede ukaz "Selection.Copy".
Prilagam kodo in prosim za kakšen namig kje ga lomim.
Lp,
Fatso
[code]' označi obseg kopiranja in ga kopira
Range(mojObseg).Select
Selection.Copy
' odpre nov zvezek
Workbooks.Add
' prilepi kopirane podatke
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' izprazni odložišče
Application.CutCopyMode = False
' shrani nov zvezek kot TXT in ga zapre
' ne sprašuje ali sme ali ne
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\Podatki\Porocilo-01.txt", FileFormat:= xlUnicodeText, CreateBackup:=False
ActiveWindow.Close
' spet sprašuje ali sme ali ne
Application.DisplayAlerts = True[/code]