megoldást keresek erre a problémára
-
Storey #2180 Sziasztok!
Kis segítségre lenne szükségem. Szeretnék megnyitni egy új excel munkalapot, majd abból adatokat importálni.
A megnyitás sikerült, de sajnos nem tér vissza az eredeti munkafüzetbe, hogy ott az adatokat beillessze.
Mit csináltam rosszul?
Sub Megnyitás()
Dim usor%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
usor% = Range("E9").End(xlDown).Row
utvonal = ActiveWorkbook.Path & "\"
Workbooks.Open utvonal & ("\") & ("Az új munkafüzet neve")
Range("A8:C" & usor%).Copy
Worksheets(1).Select
Range("E10").PasteSpecial Paste:=xlPasteValue
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Előre is köszi!