- Katılım
- 26 Ağustos 2008
- Mesajlar
- 50
- Excel Vers. ve Dili
- 2003 türkçe
iyi günler exelden worde aktarım yapan kodda bir sorun yaşıyorum:
ile kopyalayınca sadece iki sütun alıyor.
ile yapınca sadece bir sayfa aktarıyor. bunu data type=2 istediğim çözüm değil çünkü tabloları aktarmıyor. ne yapmam gerekir sizce?
bu kodları kullanmamın amacını da söyliyeyim belki başka fikirlerde gelebilir. Excel dosyamdaki formülleri linkleri 3. kişiler görmesin istiyorum. bu yüzden excel sayfamı programı isteyenlere word olarak atmak aklıma geldi. şöyle bir macro da olabilir: komut düğmesine tıklayınca excel çalışma sayfamı değiştirelemez bir excel olarak farklı kaydetsin.
Kod:
Private Sub CommandButton1_Click()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteExcelTable False, False, False
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub
Kod:
Private Sub CommandButton2_Click()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).COPY
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, [COLOR="Red"]DataType:=3[/COLOR]
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub
ile yapınca sadece bir sayfa aktarıyor. bunu data type=2 istediğim çözüm değil çünkü tabloları aktarmıyor. ne yapmam gerekir sizce?
bu kodları kullanmamın amacını da söyliyeyim belki başka fikirlerde gelebilir. Excel dosyamdaki formülleri linkleri 3. kişiler görmesin istiyorum. bu yüzden excel sayfamı programı isteyenlere word olarak atmak aklıma geldi. şöyle bir macro da olabilir: komut düğmesine tıklayınca excel çalışma sayfamı değiştirelemez bir excel olarak farklı kaydetsin.