Excel sayfasını word dosyası olarak kaydetme

[tamer42]

Merhaba,
Ekli örnekte olduğu gibi tablolar içeren bir excel sayfasında;
sayfayı olduğu tablo görünümüyle (tablo formatı) gibi word dosyasına kaydetmek istiyorum.

Excel içinden save as seçeneklerinde Word seçeneği bulunmuyor. bu durumda sayfayı olduğu şekline benzer tablo olarak nasıl word dosyası haline getirebiliriz?

yardımlarınız için şimdiden teşekkürler,
içinden geçtiğimiz şu zorlu süreçte sağlıklı günler dilerim.

 

[Merhum İdris SERDAR]

.
Dosyayı html olarak kaydedin. Sonra bu dosyayı Word ile açın. Ve docs olarak kaydedin.

.

 

[tamer42]

.
Dosyayı html olarak kaydedin. Sonra bu dosyayı Word ile açın. Ve docs olarak kaydedin.

.

Sn Serdar ilginize teşekkürler,
bu işlemi kod ile nasıl yapabiliriz? çok fazla sayfa var bu şekilde;

iyi çalışmlar.

 

[Merhum İdris SERDAR]

.

Şöyle bir şey olabilir.

Sub Excelden_Worde()

    Dim ktp As Workbook
    Set ktp = ThisWorkbook

    Dim nsnk As Object
    Set nsnk = CreateObject("word.application")
    nsnk.Visible = True

    Set nsnd = nsnk.Documents.Add
    nsnd.PageSetup.Orientation = 1
    
    Const syfsonu As Long = 7

    Dim syf As Worksheet
    For Each syf In ktp.Sheets
        syf.UsedRange.Copy
        nsnk.Selection.Paste
        nsnd.Characters.Last.Select
        nsnk.Selection.InsertBreak syfsonu
        nsnd.Characters.Last.Select
    Next syf
    
    
End Sub

.

 

[tamer42]

.

Şöyle bir şey olabilir.

Sub Excelden_Worde()

    Dim ktp As Workbook
    Set ktp = ThisWorkbook

    Dim nsnk As Object
    Set nsnk = CreateObject("word.application")
    nsnk.Visible = True

    Set nsnd = nsnk.Documents.Add
    nsnd.PageSetup.Orientation = 1
   
    Const syfsonu As Long = 7

    Dim syf As Worksheet
    For Each syf In ktp.Sheets
        syf.UsedRange.Copy
        nsnk.Selection.Paste
        nsnd.Characters.Last.Select
        nsnk.Selection.InsertBreak syfsonu
        nsnd.Characters.Last.Select
    Next syf
   
   
End Sub

.

Şok teşekkürler Sn Serdar

Sağlıklı günler dilerim.