Farklı Kaydet Hatası

[doukan84]

ActiveDocument.SaveAs FileName:="C:\Users\Eses\Desktop\Excel Çalışmalar\" & TextBox4.Text & "-" & Date & ".doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

Arkadaşlar Bu kod ile sayfayı farklı kaydettirmeye çalışıyorum.. Çalışıyor sorun yok ama şöyle bir skınıtı var çalıştığım sayfa kapanıyor farklı kaydettiğim sayfa açılıyor.. Bunu nasıl engelliyebilrim.. Çalıştığım sayfada kalmasını istiyorum

 

[hamitcan]

Aşağıdaki şekilde deneyin.
Kaynak:http://www.excely.com/excel-vba/save-workbook-as-new-file.shtml#.Us-bHpU5nIU

Sub DosyaIsmi()
    SaveWorkbookAsNewFile "zong"
End Sub
Private Sub SaveWorkbookAsNewFile(NewFileName As String)
    Dim ActSheet As Worksheet
    Dim ActBook As Workbook
    Dim CurrentFile As String
    Dim NewFileType As String
    Dim NewFile As String
 
    Application.ScreenUpdating = False    ' Prevents screen refreshing.

    CurrentFile = ThisWorkbook.FullName
 
    NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
               "Excel Files 2007 (*.xlsx), *.xlsx," & _
               "All files (*.*), *.*"
 
    NewFile = Application.GetSaveAsFilename( _
        InitialFileName:=NewFileName, _
        fileFilter:=NewFileType)
 
    If NewFile <> "" And NewFile <> "False" Then
        ActiveWorkbook.SaveAs Filename:=NewFile, _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
 
        Set ActBook = ActiveWorkbook
        Workbooks.Open CurrentFile
        ActBook.Close
    End If
 
    Application.ScreenUpdating = True
End Sub

 

[doukan84]

[/code]

Hocam bu excel için uyarlanmış.. benim sayfam word sayfası

 

[hamitcan]

Aşağıdaki satırları kodunuz altına ekleyip deneyin.

Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open "C:\TEST.docx" 'Kendi dosyanızın yolunu ve adını yazın.
Set wrd = Nothing