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

  1. M

    Excel'de bir makro olusturdum ancak programı dosya haline getiremiyorum. Ne yapmalıyım

    ...yazın: Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False ' Excel penceresini gizle Set objWorkbook = objExcel.Workbooks.Open("C:\DosyaYolu\ExcelDosyanız.xlsm") objExcel.Run "MakroAdı" objWorkbook.Close False objExcel.Quit Set objWorkbook = Nothing Set objExcel =...
  2. sembek

    Şifreli Excel Dosyalarını Toplu Şifre Kaldırma

    Merhaba, teşekkürler yanıtınız için ancak aynısı oldu. Şifre kaldırma işlemi tamamlandı. yazıyor ve değişen bir şey yok.
  3. P

    Şifreli Excel Dosyalarını Toplu Şifre Kaldırma

    ...Application.ScreenUpdating = False dosyaAdi = Dir(klasorYolu & "*.xlsx") Do While dosyaAdi <> "" Set wb = Workbooks.Open(Filename:=klasorYolu & dosyaAdi, Password:=sifre) wb.Password = "" wb.SaveAs Filename:=klasorYolu & dosyaAdi, Password:=""...
  4. sembek

    Şifreli Excel Dosyalarını Toplu Şifre Kaldırma

    Merhaba, desteğiniz için teşekkürler. Dosya yolu ve şifreyi doğru olarak giriyorum, msgbox çalışıyor ancak şifreler kalkmadı.
  5. cems

    Şifreli Excel Dosyalarını Toplu Şifre Kaldırma

    ...tüm Excel dosyalarını açın ve şifreyi kaldırın fileName = Dir(folderPath & "*.xlsx") Do While fileName <> "" Set wb = Workbooks.Open(folderPath & fileName, Password:=password) wb.SaveAs folderPath & "unlocked_" & fileName wb.Close fileName = Dir...
  6. T

    Soru VBA SAYFAYI TEMİZLEME

    ..."Sayfa 4", "Z" ' Sayfa4 için Z sütunu ' 1. Excel dosyasını aç (1. Excel dosyasının konumu belirtilmiş) Set wb1 = Workbooks.Open(ThisWorkbook.Sheets("Map").Range("A3").Value) ' 2. Excel dosyasını (mevcut dosya) tanımla Set wb2 = ThisWorkbook ' 1. Excel'deki tüm...
  7. HOSTES09

    Excell Formatı

    Emeğinize sağlık, teşekkür ederim. Ama bu seçenek çok zaman alacak. 17.8GB excell dosyam var. Hepsi de farklı klasörlerde ve farklı yerlerde. Sorunum tekrar ederse, önerinizi uygulayacağım. Teşekkürler. İyi çalışmalar.
  8. 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"...
  9. H

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

    Merhabalar, excel olarak kaydetme kısmında hata verdi neden kaynaklanabilir acaba
  10. 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 =...
  11. 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 =...
  12. 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...
  13. 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 =...
  14. 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...
  15. T

    EXCEL yinelenenleri tespit etme

    affınıza sığınarak soruyorum bu seferde 'syntax eror' hatası veriyor dosya yolunu göstererek :-(
  16. 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...
  17. 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
  18. 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
  19. 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...
  20. 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 :-)
Üst