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

  1. Korhan Ayhan

    Soru Bir klasörde eklenecek dosyalardaki sayfa isimleri hep aynı adı kullanabilir mi?

    ...End If Next If My_Connection.State <> 0 Then My_Connection.Close Set WB = XL_App.Workbooks.Open(My_Path & My_File) WB.Sheets(1).Name = New_Sheet_Name WB.Save WB.Close True 10 My_File = Dir Wend XL_App.Quit...
  2. dgdizayn

    Açık olan bir sayfaya veri girişi

    ...kodlara göre uyarlanamaz mı acaba. Sub WriteToB() Dim bWorkbook As Workbook Dim bSheet As Worksheet Set bWorkbook = Workbooks.Open("\\sunucu\güncel.xlsx") ' hedef dosyanın yolu buraya yazılmalı Set bSheet = bWorkbook.Sheets("Sheet1") ' hedef sayfanın ismi buraya...
  3. Muzaffer Ali

    Açık olan bir sayfaya veri girişi

    Merhaba. Aşağıdaki satırları silin Set wbB = Workbooks.Open("c:/Güncel.XLSX") Set wsB = wbB.Worksheets("Sheet1") Yerine aşağıdaki satırı kopyalayın. Set wsB = Workbooks("Güncel.XLSX").Worksheets("Sheet1") Dosyayı kapatmamak için de wbB.Close satırlarını silin.
  4. dgdizayn

    Açık olan bir sayfaya veri girişi

    ...' Açık olan dosyanın ataması Set wbA = ActiveWorkbook Set wsA = ActiveSheet ' Uzak dosyanın ataması Set wbB = Workbooks.Open("c:/Güncel.XLSX") Set wsB = wbB.Worksheets("Sheet1") ' Aranacak kelime ve yazılacak sütun numarasının alınması kelime =...
  5. D

    VBA filtre fonksiyonu 1004 hatası

    ...strFileName = ThisWorkbook.Sheets(1).Range("B1").Value strFileName2 = ThisWorkbook.Sheets(1).Range("B2").Value Set kaynak = Workbooks.Open(kYol & strFileName) ActiveCell.Offset(3, 3).Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$B$4:$T$957").AutoFilter Field:=3...
  6. X

    Excel'in bir sayfasına, başka bir excel'deki sayfayı kopyalamak

    ...VeriDegistir() Dim kaynak As Workbook Dim hedef As Workbook Dim kaynakSayfa As Worksheet Dim hedefSayfa As Worksheet Set kaynak = Workbooks.Open("C:\Kitap1.xlsx") Set hedef = ThisWorkbook 'ya da hedef = Workbooks.Open("C:\Kitap2.xlsx") şeklinde de kullanabilirsiniz Set kaynakSayfa =...
  7. Y

    İki Tarih Arasında Geçen Zamanı Hesaplama

    ...aranan As String Dim fark As Date yol = ThisWorkbook.Path & "\" ad = "tozetiketbas.xlsm" Set s1 = Sheets("rapor") Workbooks.Open (yol + ad) dolu = s1.Range("B" & Rows.Count).End(xlUp).Row For a = 3 To dolu aranan = s1.Range("B" & a) Set c =...
  8. Y

    İki Tarih Arasında Geçen Zamanı Hesaplama

    ...String, ad As String, aranan As String yol = ThisWorkbook.Path & "\" ad = "tozetiketbas.xlsm" Set s1 = Sheets("rapor") Workbooks.Open (yol + ad) dolu = s1.Range("B" & Rows.Count).End(xlUp).Row For a = 3 To dolu aranan = s1.Range("B" & a) Set c =...
  9. B

    Klasördeki bütün excel çalışmaları yazdır. ??

    Çok tşk ederim bende bulmaya çalıştım. Sizin koduda deneyeceğim.
  10. B

    Klasördeki bütün excel çalışmaları yazdır. ??

    ...If dosya.Name <> ThisWorkbook.Name And VBA.Left(dosya.Name, 2) <> "~$" Then Set dosyaac = Workbooks.Open(dosya) dosyaac.Sheets("Sayfa1").Range("a1:m27").PrintOut dosyaac.Close , True End If Next Application.ScreenUpdating = True Application.DisplayAlerts...
  11. RBozkurt

    Klasördeki bütün excel çalışmaları yazdır. ??

    ...MyFolder = ThisWorkbook.Path & "\2023\" MyFile = Dir(MyFolder & "*.xls*") Do While MyFile <> "" Set wb = Workbooks.Open(Filename:=MyFolder & MyFile) With wb.Sheets("Sayfa1").PageSetup .Zoom = False .FitToPagesTall = 1...
  12. R

    macro ile diğer dosyadaki verileri değer olarak yapıştırmak

    ...Dim sor_ws As Worksheet Dim cek_rng As Range Dim sor_rng As Range Dim i As Long 'Çek dosyasını açın Set wb = Workbooks.Open(DosyaYolu) 'Verilerin bulunduğu sayfayı belirleyin Set ws = wb.Sheets(SayfaAdi) 'Verilerin bulunduğu aralığı seçin Set cek_rng =...
  13. E

    Dosya Seçip Alma ve Seçtiğim Dosyanın Adresini Bulma

    Tamam istediğim bu gibi ancak üstad şöyle bir sıkıntı var. Açılan pencerede seçtiğim dosyanın adresini almak istiyorum. Dosyayı hiç açmayacağım bu makroda . Başka makroda dosyayı açtırma ile ilgili çözdüm. Bu makroda aslında dosyanın yolunu dosyanın adı ve uzantısını almak için dosyayı gözat ile...
  14. Y

    Dosya Seçip Alma ve Seçtiğim Dosyanın Adresini Bulma

    ...= False adres = Application.GetOpenFilename("Excel Dosyaları (*.xlsm), *.xlsm") If adres = False Then Exit Sub Workbooks.Open adres acikhesapdosyasi = ActiveWorkbook.Name Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Örnek...
  15. faruk4435

    Soru Birden fazla çalışma kitabında tek seferde arama yapmak?

    ...& xStrFile) = xAWBStrPath Then xBol = True Set xWb = xAWB Else Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False) End If For Each xWk In...
  16. dgdizayn

    Vba / Sayfa adını hücreden alsın

    ...Yol = "\Yol\" 'Kapalı Dosyanın yolu Dosya_Adi = "1.xlsx" 'Kapalı Dosyanın Adi Set Hdf = Workbooks.Open(Yol & Dosya_Adi, False, False) Set HdfSyf = Hdf.Sheets("Sheet1") 'Kapalı Dosyanın Sayfa adi sonsatir = HdfSyf.Cells(Rows.Count, "A").End(3).Row +...
  17. B

    dosya var mı yok mu ?

    ...' dosyanın var olup olmadığını kontrol et If fso.FileExists(filePath) Then ' dosya varsa aç Set wb = Workbooks.Open(dosya_yolu & dosya_adı) Else ' dosya yoksa hata mesajı göster MsgBox dosya_adı & " Sınıfının dosyası bulunamadı!" Exit Sub...
  18. B

    dosya var mı yok mu ?

    dosya_yolu = ThisWorkbook.Path & "\" & Range("Y27").Value & "\" dosya_adı = ActiveCell.Value & Range("Y31").Value If Workbooks.Open(dosya_yolu & dosya_adı) = True Then MsgBox "Dosya var" Else MsgBox "Dosya yok" End If " If Workbooks.Open(dosya_yolu & dosya_adı) =...
  19. B

    kapalı excel den gelen veriyi for ile yerleştirme ?

    eline sağlık tam aradığım gibi oldu çok tşk ederim.
  20. RBozkurt

    kapalı excel den gelen veriyi for ile yerleştirme ?

    ...Dim son_satir As Long, i As Long dosya_yolu = ThisWorkbook.Path & "\2023\" dosya_adı = "kapali.xlsx" Set wb = Workbooks.Open(dosya_yolu & dosya_adı) Set ws1 = ThisWorkbook.Sheets("Sayfa1") Set ws2 = wb.Sheets(1) son_satir = ws1.Cells(Rows.Count...
Üst