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

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

...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...

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.

...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...

...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...

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

...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...

Hocam değiştirdim.

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

...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") &...

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

...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?

...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...

...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

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

...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...

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.

...As Long Application.ScreenUpdating = False Dosya = "C:\Users\muratgunay48\Desktop\test.xlsx" Set WB = Workbooks.Open(Filename:=Dosya) Last_Row = Cells(Rows.Count, "B").End(3).Row Range("A2") = "1" Range("A2:A" & Last_Row).DataSeries Range("C2:C" &...

çok teşekkürler istediğim bu şekilde idi lıstbox 2 klasorden alıyor verileri C:\Users\pc\Desktop\Excell\1\ C:\Users\pc\Desktop\Excell\2\ şeklinde 2 klasor olarak guncelleyebilirmiyiz. birde dosya ısımlerımı cekerken turkce karakterlerı degisitiriyor o yuzden turkce karakter olanlarada...

...If ListBox1.ListIndex = -1 Then Exit Sub secilenDeger = ListBox1.Value dosyaYolu = klasorYolu & secilenDeger & ".xlsx" If Dir(dosyaYolu) <> "" Then Workbooks.Open dosyaYolu Else MsgBox "Dosya bulunamadı!", vbCritical End If End Sub