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

  1. C

    Excell Formatı

    ..."*.xlsx") ' Klasördeki tüm dosyaları dönüştür ve taşı Do While fileName <> "" ' Çalışma kitabını aç Set wb = Workbooks.Open(folderPath & fileName) ' Dosyayı Excel 97-2003 formatında kaydet wb.SaveAs newFolderPath & Replace(fileName, ".xlsx"...
  2. H

    csv dosylarını otomatik xlsx şekline çevirebilirmiyiz.

    Merhabalar, excel olarak kaydetme kısmında hata verdi neden kaynaklanabilir acaba
  3. pNouma

    Txt dosyasında yazan kodları başka bir dosyaya ekleme

    ...Dim comp As VBIDE.VBComponent Set WB = ThisWorkbook myPath = WB.Path myFile = myPath & "\TestModule.xlsm" Set myWB = Workbooks.Open(Filename:=myFile) ' - - - - - - - - - - - - - - - - - - Set proj = myWB.VBProject Set comp =...
  4. S

    Soru Yapmış Olduğum Excel VBA programına seçtiğim sayfalara otomatik excel verileri alması.

    ...fd = Application.FileDialog(msoFileDialogFilePicker) Dim dosya As Variant With fd If .Show = -1 Then For Each dosya In .SelectedItems Workbooks.Open Filename:=dosya Next dosya Else End If End With Set fd = Nothing End Sub Sub Kart_Basmayan() Set s1 = Sheets("Kart_Basmayan") son =...
  5. M

    Soru Kapalı exceldeki resimleri aktarma?

    ...dosya = Dir(yol & "*.xls") Do While dosya <> "" ' Dosyayı aç Dim wb As Workbook Set wb = Workbooks.Open(yol & dosya, ReadOnly:=True) Set kaynakSh = wb.Sheets("Firma Giriş") sat2 = kaynakSh.Cells(Rows.Count, "C").End(xlUp).Row...
  6. M

    Soru Kapalı exceldeki resimleri aktarma?

    ...Sheets("Firma Giriş") .Range("A3:K" & Rows.Count).ClearContents dosya = Dir(yol & "*.xls") Do While dosya <> "" If Workbooks.Open(yol & dosya).ReadOnly = True Then Workbooks(dosya).Close False Set sh = ActiveWorkbook.Sheets("Firma Giriş") sat2 =...
  7. tugkan

    EXCEL yinelenenleri tespit etme

    ...= New Collection ' Dosyaları sırayla aç DosyaAdı = Dir(DosyaYolu & "*.xlsx") Do While DosyaAdı <> "" Workbooks.Open DosyaYolu & DosyaAdı For Each ws In ActiveWorkbook.Sheets With ws For Satır = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row...
  8. T

    EXCEL yinelenenleri tespit etme

    affınıza sığınarak soruyorum bu seferde 'syntax eror' hatası veriyor dosya yolunu göstererek :-(
  9. tugkan

    EXCEL yinelenenleri tespit etme

    ...= New Collection ' Dosyaları sırayla aç DosyaAdı = Dir(DosyaYolu & "*.xlsx") Do While DosyaAdı <> "" Workbooks.Open DosyaYolu & DosyaAdı For Each ws In ActiveWorkbook.Sheets With ws For Satır = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row...
  10. T

    EXCEL yinelenenleri tespit etme

    varyant ya da obje olmalıdır diye hata veriyor ' For Each Liste In BulunanYineleme' buradaki liste yazan kısmı işaretleyerek
  11. T

    EXCEL yinelenenleri tespit etme

    Dosya adı kısmına klasörün adını, dosya yoluna da ayrıntılardaki linkini mi eklemem gerekiyor. Kusura bakmayın çok hakim değilim
  12. tugkan

    EXCEL yinelenenleri tespit etme

    ...= New Collection ' Dosyaları sırayla aç DosyaAdı = Dir(DosyaYolu & "*.xlsx") Do While DosyaAdı <> "" Workbooks.Open DosyaYolu & DosyaAdı For Each ws In ActiveWorkbook.Sheets With ws For Satır = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row...
  13. C

    Excel Dosyası Açıksa Makro Çalışmıyor

    Trilenium hocam merhabalar, hocam sizin kodu deneyemedim çünkü dosyada çok fazla kod olduğundan benimde makro bilgi pek iyi olmadığı için başka yerlerde ne gibi revize yapacağımı bilmediğim için sizin kodu kullanamıyorum. Size çok teşekkür ederim emeğinize sağlık :-)
  14. C

    Excel Dosyası Açıksa Makro Çalışmıyor

    pitchoute hocam merhabalar, geri dönüşünüz için çok teşekkür ederim kusura bakmayın biraz geç dönüş yaptım aşağıdaki kodunuzu denedim ve tam istediğim sonucu elde ettim çok teşekkür ederim emeğinize sağlık :-)
  15. Trilenium

    Excel Dosyası Açıksa Makro Çalışmıyor

    ...= "xlsm" And Left(fls.Name, 2) <> "~$" Then On Error Resume Next ' Hataları yakalamak için Set wsVeri = Workbooks.Open(fls, ReadOnly:=True).Sheets("Üretim Listesi") If Err.Number <> 0 Then Err.Clear On Error GoTo 0...
  16. C

    Excel Dosyası Açıksa Makro Çalışmıyor

    ...If fso.GetExtensionName(fls) = "xlsm" And Left(fls.Name, 2) <> "~$" Then 'dosya türü xlsm olanlardan veri alacak If Workbooks.Open(fls).ReadOnly = True Then Workbooks(fls.Name).Close False 'For Each sh In Workbooks(fls.Name).Worksheets sonsat1 =...
  17. muratgunay48

    VBScript

    ...Set WshNetwork = WScript.CreateObject("WScript.Network") Set NewXL = CreateObject("Excel.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\Interpress\KAPAKLAR\GAZETE KAPAKLARI.xlsm") NewXL.Visible = True NewXL.application.run "paz" MyWB.Close False...
  18. muratgunay48

    VBScript

    ...Dim hedefSaat hedefSaat = TimeValue("21:50:00") Do If Time >= hedefSaat Then Set NewXL = CreateObject("notepad.Application") Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\test.txt") Exit Do End If WScript.Sleep 1000 Loop Set objShell = Nothing
  19. tugkan

    Kapalı pivot tablodan güncel veri çekme

    ...dosyasının yolunu belirleyin filePath = "C:\DosyaYolu\VeriDosyasi.xlsx" ' Excel dosyasını açın (arka planda) Set wb = Workbooks.Open(filePath, UpdateLinks:=False, ReadOnly:=True, Notify:=False) ' Pivot tabloları güncelleyin wb.RefreshAll ' Dosyayı...
  20. tugkan

    Birden Fazla Dosya Mevcut ve Dosyaların içerisinde Birden Fazla Sayfa Mevcut

    ...' Klasördeki her bir Excel dosyasını açın dosyaAdi = Dir(dosyaYolu & "*.xls*") Do While dosyaAdi <> "" Set wb = Workbooks.Open(dosyaYolu & dosyaAdi) ' Her bir çalışma sayfasında döngü For Each ws In wb.Worksheets sonSatir =...
Üst