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

...= Dosya_Yolu & "\" & Sayfa_Adı deg1 = 0 deg2 = 0 If CreateObject("Scripting.FileSystemObject").FileExists(Kitap_Adı) = True Then Workbooks.Open Filename:=Kitap_Adı Else deg1 = 1 deg2 = 1 Workbooks.Add For i = Sheets.Count To 2 Step -1 Worksheets(i).Delete Next ActiveWorkbook.SaveAs...

...Dosya_Yolu & "\" & Sayfa_Adı If CreateObject("Scripting.FileSystemObject").FileExists(Kitap_Adı) = True Then Sheets("TASLAK").Select Workbooks.Open Filename:=Kitap_Adı yeni_dosya_adı = ActiveWorkbook.Name son = ActiveWorkbook.Sheets.Count Windows(eski_dosya_adı).Activate...

Abi işlem yapmadı hiç. Dosyayı kaydetti. Açtım sutunlarda veri yok

..."yyyy-mm-dd hh:nn:ss") Print #logDosyasi, String(50, "-") hedefDosyaYolu = "C:\iDeal\Rapor\A3.xlsx" Set hedefKitap = Workbooks.Open(hedefDosyaYolu) Set hedefSayfa = hedefKitap.Sheets(1) hedefSatir = 1 For dosyaIndex = 1 To 1800 kaynakDosyaYolu =...

Hocam Çok teşekkür ederim. Ayağınıza taş değmesin. Hocam çok teşekkür ederim. Ayağınıza taş değmesin. 2 kere denedim çalıştı. Hocam buna döngü kurabilirmiyiz. 1000-1800 arası veri çeksin diye. Yalnız buradaki döngüde hocam sırası ile sutunlara gelmesi lazım. 1001 c sutununa 1002 d sutununa...

...= False kaynakDosyaYolu = "C:\rapor1\1001.xlsx" hedefDosyaYolu = "C:\rapor2\özet.xlsx" Set hedefKitap = Workbooks.Open(hedefDosyaYolu) Set hedefSayfa = hedefKitap.Sheets(1) ' gerekirse sayfa adıyla değiştirin Set kaynakKitap = Workbooks.Open(kaynakDosyaYolu)...

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