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

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 :-)

...If fso.GetExtensionName(fls) = "xlsm" And Left(fls.Name, 2) <> "~$" Then On Error Resume Next Set wb = Workbooks.Open(fls.Path, ReadOnly:=True) If wb Is Nothing Then On Error GoTo 0 GoTo SonrakiDosya End If...

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

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

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

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

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

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

aşağıdaki kodu dener misiniz? Türkçe karakter desteği için CreateObject("ADODB.Stream") ile .Charset = "UTF-8" kullanılmıştır Sub CSV_Stream_hy() Dim folderPath As String Dim csvFile As String Dim ws As Worksheet Dim lastRow As Long Dim fileName As String Dim...

...Then GoTo 10 ' Bu satırı ekledim If fso.GetExtensionName(fls) = "xlsm" 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 =...

...ile başlamayanlardan veri alacak If fso.GetExtensionName(fls) = "xlsm" And Left(fls.Name, 4) <> "2023" Then If Workbooks.Open(fls).ReadOnly = True Then Workbooks(fls.Name).Close False 'For Each sh In Workbooks(fls.Name).Worksheets sonsat1 =...

...excel dosyası ve user.form) hata veren kodlarla dolu. Hepsini find/replace ile düzeltmek sorun çıkarabilir diye düşünüyorum. Workbooks.Open Filename:="E:\A.xlsm" Windows("A.xlsm").Activate ActiveWorkbook.Sheets("STOKGECICI").Select Hata...

...For Each fls In f If fso.GetExtensionName(fls) = "xlsm" 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 = Sheets("Üretim...

@tugkan hocamın izniyle kodunda ufak bir değişiklik yaptım, bu düzenlemeyle dosya adı 3. sütuna ekleniyor Sub CombineCSVFilesToSeparateColumnsWithFileName() Dim folderPath As String Dim csvFile As String Dim ws As Worksheet Dim lastRow As Long Dim fileName As String Dim...

Bu sefer oldu galiba. Denedim bende çalıştı. Sub CombineCSVFilesToSeparateColumnsWithFileName() Dim folderPath As String Dim csvFile As String Dim ws As Worksheet Dim lastRow As Long Dim fileName As String Dim newWorkbook As Workbook Dim saveFilePath As String Dim...

Abi aynı buda dosyaları üst cevaptaki gibi orjinal csv dosyasına çevirmekte. ve malesef her dosya için onay istiyor. 400 dosya için mümkün değil.

...= Dir(csvFolder & "*.csv") ' Tüm CSV dosyalarını işle Do While csvFile <> "" ' CSV dosyasını aç Set wb = Workbooks.Open(Filename:=csvFolder & csvFile, Format:=1) ' Format:=1 ile dosyanın sütunlarla ayrıldığından emin olunuyor ' Yeni dosya adını belirle...

...= Dir(csvFolder & "*.csv") ' Tüm CSV dosyalarını işle Do While csvFile <> "" ' CSV dosyasını aç Set wb = Workbooks.Open(Filename:=csvFolder & csvFile, Format:=2) ' Format:=2 ile dosyanın ; ile ayrılmadığından emin olunuyor ' Yeni dosya adını...

sutunları csv dosyası (;) ile ayrılmamış. Dış kaynaktan veri alıyoruz bu dosyayı csv olarak kaydederken bildiğimiz excel.deki sutunlar olarak her veri ayrı sutuna kaydediliyor. Burada nasıl yol izleriz.

Abi harikasınız, çok işime yarayacak birşeydi. Ama ([ baştaki CODE]Sub ConvertCSVtoXLSX() ve sondaki [/CODE] yazılı yeri kopyalamadım f5basınca macro name çıktı kaydettim q diye run yaptım compile error: expected: expression diye bir yazı çıktı