Hej!
Jag manipulerar att excelark innifrån access men får inte till sidbrytningen.
Man hade ju kunnat tro följande:

sheets(2).Rows("59:59").Select
Sheets(2).HPageBreaks.Add Before:=ActiveCell

Men det funkar inte. Någon som har ett annat förslag?

Som vanligt oerhört tacksam för er hjälp!

Mvh,

Sofian

Hej Sofia,

Prova nedanstående:

<code>
Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Add

Sheets(2).Select
.Rows("59:59").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End With

Set xlApp = Nothing
</code>

Tips!

Kör igång ett makro i Excel och gör sedan vad du vill att din automatisering ska göra.
Öppna sedan makrot i Excel och kopiera in till Access eller Visual Basic eller liknande.
Sätt sedan Excelobjektet före kodraderna och separera med en punkt.
Exempel:
Kod producerad i Excel: Range("A2").Select
Kod i en Access modul: xlApp.Range("A2").Select
(om nu Excel-objektet heter xlApp).

Men som du ser ovan så gäller inte det alltid.

Micke Microsoft

Hej Micke!
Tack för Ditt tips men det funkar inte det heller.
Jag vet inte man man måste ha excelarket synligt för att göra detta?
Det har inte jag ännu i detta tillfälle och ska inte heller ha det.

Jag får meddelandet:

Runtime error '1004'
Application-defined or Object-defined error.

Tyvärr!

Sofia

På vilken rad får du det felet? Låter som om det kan vara ett deklarationsfel.
Har du kontrollerat att alla variabler håller i rätt saker innan du försöker sätta
sidbrytningen?

/Emma - som önskar glad påsk!