[Çözüldü] Oluşturulan Word Sayfasının Kaydedileceği Yeri Tayin Etme

[BedriA]

Arkadaşlar,

Aşağıdaki kod ile oluşturulan Word sayfası Belgelerim klasörüne kaydediliyor.
Yolunu değiştirsem de aynı yere kaydediyor

Nereye kaydedeceğini ben seçebilir miyim?

Koda çeki düzen verecek arkadaşlara şimdiden teşekkür ediyorum.

Private Sub CommandButton1_Click()

fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
Range("A1:b21").Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=10
objword.activedocument.SaveAs "C:" & fName & ".doc"
End If

End Sub

 

[BedriA]

Yukarıdaki soruma şöyle bir çözüm buldum:

Yukarıdaki kodu budayıp aşağıdaki şekle getirdim.
Bu şekilde kaydet komutu yerine Word sayfasına kopyala, sonra da bu Word sayfasını görüntüle komutu veriyoruz.

Görüntü gelince sağ üst taraftan Word sayfasına istediğimiz ismi verip istediğimi yere kaydediyoruz.

Kodu kullanmak isteyen arkadaşların Excel sayfasının adını (yeşil) ve sayfadan aktarılmak istenen aralığı (kırmızı) kendi çalışma kitaplarına uyarlamaları gerekiyor.

Private Sub CommandButton26_Click()

Sheets("[COLOR="DarkGreen"]5alt-a[/COLOR]").Select
Range("[COLOR="Red"]D1:e16[/COLOR]").Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=10
objword.activedocument.PrintPreview
End Sub