gemme et ark som et andet

Findes filen her:
C:\logfiler\rapporter\test.xls

yep

Ikke for at være træls men er du 100% sikker.

yep  har lige dobbelttjekket  og åbnet det  kan det være noget med at henvise til det rigtige ark i sheet

for at være helt præcis er det .open der er markeret af debuggeren

er det ikke bare fordi der skulle have stået
.Workbook.Open Filename:="C:\logfiler\rapporter\test.xls"

og ikke sheet (du kan ikke åbne et sheet, men godt åbne en workbook)

nope  desværre får flg fejl
run time error
object dosen't support this property of method

sorry
.Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"

bemærk det lille s efter workbook :-)

Sub ExcelNat()

Dim y As Excel.Application
Set y = CreateObject("Excel.application")
With y
.Visible = True
.Workbook.Open Filename:="C:\logfiler\rapporter\test.xls"
Worksheets("dataark").Range("b11:h250").Copy
.Selection.Paste
filnavn = Worksheets("dataark").Range("A11").Value
.ActiveSheet.SaveAs Filename:="c:\Nat " & filnavn & ".xls"
.ActiveSheet.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub

tjekker ;-)

nope desværre


Sub ExcelNat()

Dim y As Excel.Application
Set y = CreateObject("Excel.application")
With y
.Visible = True
.Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"
Worksheets("dataark").Range("b11:h250").Copy
.Selection.Paste
filnavn = Worksheets("dataark").Range("A11").Value
.ActiveSheet.SaveAs Filename:="c:\Nat " & filnavn & ".xls"
.ActiveSheet.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub

nu er det selection.paste der er problemet

Ok, men du fik det åbnet ?? :-)
Du skal jo nok lige selecte noget, før du kan lave .selection.paste
Sub ExcelNat()

Dim y As Excel.Application
Set y = CreateObject("Excel.application")
With y
.Visible = True
.Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"
'********
.range("A1".select
'********
Worksheets("dataark").Range("b11:h250").Copy
.Selection.Paste
filnavn = Worksheets("dataark").Range("A11").Value
.ActiveSheet.SaveAs Filename:="c:\Nat " & filnavn & ".xls"
.ActiveSheet.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub

Af ren nysgerrighed : hvilket program kører du koden fra ?

excel

selecter  jeg ikke her?
Worksheets("dataark").Range("b11:h250").Copy

nåe  nu forstår jeg  du mener hvor det skal indsættes i nyt ark.....

nope  går stadig istå ved selection.paste  men den åbner godt nok det andet ark  og når jeg indsætter manuelt virker det fint  dvs at der er pastet noget men det kan ikke indsættes i "a1"  curseren står fint i "a1"

du mangler at vælge hvor du skal paste.

Er det i et nyt ark eller på samme ark

jeg klipper i flg  workbook test1 ark dataark
og skal paste i workbook test ark ark

Sub ExcelNat()

Dim y As Excel.Application
Set y = CreateObject("Excel.application")
With y
.Visible = True
.Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"
.Range("A1").Select
Worksheets("dataark").Range("b11:h250").Copy
.Selection.Paste
filnavn = Worksheets("dataark").Range("A11").Value
.ActiveSheet.SaveAs Filename:="c:\Nat " & filnavn & ".xls"
.ActiveSheet.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub

Jeg tror fejlene skyldes at du vil åbne en ny excel-application.
kan du ikke nøjes med at bruge een ?


Sub test()
Dim filnavn As String
filnavn = ThisWorkbook.Worksheets("dataark").Range("A11").Value
Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"
With ActiveWorkbook
    ThisWorkbook.Worksheets("dataark").Range("b11:h250").Copy .Sheets(1).Range("A1")
    .SaveAs Filename:="c:\Nat " & filnavn & ".xls"
    .Close
End With
Application.CutCopyMode = False
End Sub

hej igen
den kan jeg sagtens leve med    takker  og point  hvis jeg får et svar ;-)

Sub ExcelNat()

Dim y As Excel.Application
Set y = CreateObject("Excel.application")
With y
.Visible = True
Worksheets("dataark").Range("b11:h250").Copy
.Workbooks.Open Filename:="C:\logfiler\rapporter\test.xls"
ActiveSheet.Paste
filnavn = Worksheets("dataark").Range("A11").Value
.ActiveWorkbook.SaveAs Filename:="c:\Nat " & filnavn & ".xls"
.ActiveWorkbook.Close
Application.CutCopyMode = False
y.Quit
Set y = Nothing
End With
End Sub

prøv denne

ok, her er et svar

desværre Kabbak

flg fejl i debugger 
ActiveSheet.Paste

ok bak's løsning var også den bedste.