• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: workbooks.open

  1. muratgunay48

    Makro taşımak

    ...String Dim masaustu As String masaustu = Environ("USERPROFILE") & "\Desktop\" ' Dosyaları aç Set wbKaynak = Workbooks.Open(masaustu & "sablon.xlsm") Set wbHedef = Workbooks.Open(masaustu & "test.xlsx") ' Kaynak sayfanın CodeName'ini bul Dim...
  2. Z

    Sütun tanımlama hatası

    ...Application.DisplayAlerts = False Set K1 = ThisWorkbook Set S1 = K1.Sheets("Sayfa1") Yol = K1.Path Set K2 = Workbooks.Open(Yol & "\SONAYRAPORNA.xlsx") Set S2 = K2.Sheets("sayfa") S2.Range("A2:Y2000").Copy S1.Range("A2").PasteSpecial xlPasteFormats...
  3. muratgunay48

    Dosyaya makro ile makro koymak

    ....DeleteLines 1, .CountOfLines .InsertLines 1, codeStr End With Kısmında hata veriyor. Sub deneme() Workbooks.Open Filename:=Environ("USERPROFILE") & "\Desktop\Başka dosyaya makro atama\Test1.xlsx"...
  4. muratgunay48

    Masaüstü yol

    Çok teşekkür ederim hocam emeğinize sağlık. Hocam makro adı rapor başında ! duracak değil mi?
  5. Muzaffer Ali

    Masaüstü yol

    ...Set NewXL = CreateObject("Excel.Application") userProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") Set MyWB = NewXL.Workbooks.Open(userProfile & "\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.Application.Run "'" & MyWB.Name & "'!rapor" MyWB.Close False NewXL.Quit...
  6. muratgunay48

    VBScript Komut Dosyası (.vbs)

    Hocam siz yazarsınız çalışmaz mı? Çok ama çok teşekkür ederim. Geç cevap için özür dilerim. Gece çalıştığım için uyku saatlerim değişik. Tekrar teşekkür ederim hocam.
  7. Korhan Ayhan

    VBScript Komut Dosyası (.vbs)

    ...DesktopPath = WshShell.SpecialFolders("Desktop") & "\RAPORLAR\" Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.Workbooks.Open(DesktopPath & "MAKRO.xlsm") NewXL.Visible = True NewXL.application.run "rapor" MyWB.Close False NewXL.Quit Set MyWB = Nothing Set NewXL = Nothing...
  8. muratgunay48

    VBScript Komut Dosyası (.vbs)

    ...Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.application.run "rapor" MyWB.Close False NewXL.Quit Set...
  9. muratgunay48

    Masaüstü yol

    Hocam, sizi de uğraştırıyorum ama. Aynen yapıştırdım.
  10. Muzaffer Ali

    Masaüstü yol

    ...deneyin. Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.Workbooks.Open(Environ("USERPROFILE") & "\Desktop\RAPORLAR\MAKRO.xlsm") NewXL.Visible = True NewXL.Application.Run "'" & MyWB.Name & "'!rapor" MyWB.Close False...
  11. muratgunay48

    Masaüstü yol

    Hocam değiştirdim.
  12. Muzaffer Ali

    Masaüstü yol

    Hata veren satırı aşağıdaki ile değiştirin. Set MyWB = NewXL.Workbooks.Open(Filename:=Environ("USERPROFILE") & "\Desktop\RAPORLAR\MAKRO.xlsm")
  13. muratgunay48

    Masaüstü yol

    ...Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\RAPORLAR\MAKRO.xlsm") yerine Set MyWB = NewXL.workbooks.open: =Environ("USERPROFILE") &...
  14. Muzaffer Ali

    Masaüstü yol

    Evet Workbooks.Open Filename:=Dosya satırının hemen altında olmalı Select ile seçmek yerine direkt hücre adresini belirtmeniz yeterli Örnek With Range("B13").Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With
  15. muratgunay48

    Masaüstü yol

    ...With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("C14:E18").Select Workbooks.Open Filename:=Dosya Altına yazmamız en doğrusu olacaktır değil mi?
  16. Muzaffer Ali

    Masaüstü yol

    ...Dosya = Yol & "\TEST.xlsx" If Dir(Yol, vbDirectory) <> "" Then ChDir Yol If Dir(Dosya) <> "" Then Workbooks.Open Filename:=Dosya Else MsgBox "Dosya bulunamadı: " & Dosya, vbExclamation End If Else MsgBox "Klasör...
  17. muratgunay48

    Masaüstü yol

    ...As String Dim yol As String masaustu = CreateObject("WScript.Shell").SpecialFolders("Desktop") yol = masaustu & "\AAA" If Dir(yol, vbDirectory) <> "" Then ChDir yol Workbooks.Open Filename:="TEST.xlsx" Else MsgBox "Klasör bulunamadı: " & yol, vbExclamation End If End Sub
  18. muratgunay48

    Masaüstü yol

    Hocam çok teşekkür ederim. Bu daha pratik oldu hocam. Teşekkür ederim.
  19. Muzaffer Ali

    Masaüstü yol

    ...isterseniz aşağıdaki gibi yapabilirsiniz. Siz bir tane tırnak işareti fazladan koyduğunuz için hata veriyor Sub DosyaAc_2() Workbooks.Open Filename:=Environ("USERPROFILE") & "\Desktop\RAPORLAR\ALINAN RAPORLAR\ÇEVRE TV.xlsx" End Sub Chdir kullanacaksanız aşağıdaki gibi yapabilirsiniz...
  20. muratgunay48

    Sıra numarası

    Hocam çok teşekkür ederim. Emeğinize sağlık. Sheets("test").Select ekledim, tam oldu. Peki hocam, WB.Close True , False yapınca dosyanın açık kalması gerekmiyor mu? Test dosyası her koşulda kapanıyor. Bazen açık kalması gerekiyor.
Geri
Üst