İyi günler..
Sayfanın kopyasını yeni dosyaya aktarıyorum. Yeni dosya adsız olarak açılıyor.
Ben istiyorum ki, sayfa ismini hücreden alsın ve otomatik olarak masaüstüne veya asıl dosyanın bulunduğu dizine (ThisWorkbook.Path) kaydetsin...
sub kopya
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
call sablon_temizle2
Range("A2:E250").select
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
call kopya2
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "DocName"
args1(0).Value = ""
args1(1).Name = "Index"
args1(1).Value = 32767
args1(2).Name = "Copy"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:Move", "", 0, args1())
end sub
Sayfayı Farklı Kaydetme
-
- Mesajlar: 9
- Kayıt: 30 Mar 2022, 22:27
- İşletim Sisteminiz: Pardus GNU/Linux
- LibreOffice Sürümü: LibreOffice 7.0.4.2 00(Build:2
Re: Sayfayı Farklı Kaydetme
@nadir Sayın Nadir Bey,
Bilgim olsa yardım etmeyi isterdim. Ama bayağıdır makroları öğrenmeyle uğraşmadığım için yardım edemiyorum.
Bilgim olsa yardım etmeyi isterdim. Ama bayağıdır makroları öğrenmeyle uğraşmadığım için yardım edemiyorum.