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

...= Nothing Dim worksheet As Worksheet = Nothing Try ' Excel dosyasını aç workbook = excelApp.Workbooks.Open(excelFilePath) worksheet = CType(workbook.Sheets(1), Worksheet) ' Hücrelerden veri oku Dim veri1 As String =...

Bu islemim basina ve sonunda da yuakrida verilem displar alerts kodunu yaz

Silme satirinin üstüne bu satiri yazin Application.DisplayAlerts = False ' Uyarıları kapat silme satirinin altina da bunu yazin Application.DisplayAlerts = True ' Uyarıları tekrar aç

Hocam teşekkür ederim. Şu şekilde yaptım oldu. ChDir "C:\Users\muratgunay48\Desktop\XXX\" Workbooks.Open Filename:= _ "C:\Users\muratgunay48\Desktop\XXX\1.xls" Sheets("TÜMÜ").Select Application.DisplayAlerts = False Sheets("TÜMÜ").Delete...

Arkadaşlar, sayın hocalarım, kodum var şöyle başlıyor ChDir "C:\Users\muratgunay48\Desktop\XXX\" Workbooks.Open Filename:= _ "C:\Users\muratgunay48\Desktop\XXX\1.xls" Sheets("TÜMÜ").Select ActiveWindow.SelectedSheets.Delete Columns("A:A").Select Selection.Delete Shift:=xlToLeft Sil demişim...

...önemliydi. Sizin sayenizde çözüldü. Hocam sorma olayı var. Kod şöyle başlıyor. ChDir "C:\Users\muratgunay48\Desktop\XXX\" Workbooks.Open Filename:= _ "C:\Users\muratgunay48\Desktop\XXX\1.xls" Sheets("TÜMÜ").Select ActiveWindow.SelectedSheets.Delete...

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için

...script dosyası Excel dosyasını arka planda açar: Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "C:\Program Files\BenimUygulamam\uygulamam.xlsm" Bu .vbs dosyasına da kısayol oluşturup simgesini değiştirebilirsin. .ico formatında bir simgeye...

2018 klasörüne uyguladığımda tüm aylar için listele dediğimde kod sorunsuz çalışmıştı. Fakat diğer klasörlerde denediğimde tüm ayları listele dediğimde automation error hatası alıyorum. İlginç bir şekilde 2019-2020-2021-2022 klasörülerinde ay seçmeden arama yaptığımda sol altta inceleniyor...

Dostum bu çalışma için çok teşekkürler hatasız verileri çekmeyi başardım. Kodlarda oynama yapmama gerek bile kalmadı hatta. İnisiyatifin için tekrar teşekkürler. Bence oldukça verimli bir çalışma oldu yararlanacak arkadaşlar da vardır. Belki ufak bir ekleme yapmak gerekirse dosya adlarını...

Korhan Bey Merhaba, konuyu yeniden canlandırıyorum ama bu çalışma kitabını User Formda bir framein içinde açtırmamız mümkünmüdür?

klasorYolu = " \\192.168.8.101\Fiyatlandirma\Is_Takip_Listesi_01-11-2012\"

...' Bu dosya açık değilse If dosyaAdi <> ThisWorkbook.Name Then On Error Resume Next Set wb = Workbooks.Open(tamYol, ReadOnly:=True) On Error GoTo 0 If Not wb Is Nothing Then ' İlk görünen çalışma sayfasını al...

Private Sub auto_open() Application.OnTime TimeValue("17:56:00"), "test" End Sub Sub test() Workbooks.Open Filename:="C:\xx.xls" End Sub

kod bu tekrar bakabilir miyiz?

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

...& ".xlsx" ' Yeni veya mevcut dosyayı aç If Dir(dosyaAdi) <> "" Then Set wbYeni = Workbooks.Open(dosyaAdi) Else Set wbYeni = Workbooks.Add End If Set wsYeni =...

Kodu bir Sub aralığına eklemelisiniz. Aşağıdaki kodu module ekleyip, butona DosyaAc makrosunu bağlayıp deneyebilir misiniz? Sub DosyaAc() Workbooks.Open Range("FZ5").value end sub