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

çok teşekkürler istediğim bu şekilde idi lıstbox 2 klasorden alıyor verileri C:\Users\pc\Desktop\Excell\1\ C:\Users\pc\Desktop\Excell\2\ şeklinde 2 klasor olarak guncelleyebilirmiyiz. birde dosya ısımlerımı cekerken turkce karakterlerı degisitiriyor o yuzden turkce karakter olanlarada...

...If ListBox1.ListIndex = -1 Then Exit Sub secilenDeger = ListBox1.Value dosyaYolu = klasorYolu & secilenDeger & ".xlsx" If Dir(dosyaYolu) <> "" Then Workbooks.Open dosyaYolu Else MsgBox "Dosya bulunamadı!", vbCritical End If End Sub

...As Object: Set dict = CreateObject("Scripting.Dictionary") Dim wb As Workbook, ws As Worksheet Dim i As Long Set wb = Workbooks.Open("C:\Veri\Urun_Master.xlsx", ReadOnly:=True) Set ws = wb.Sheets("Urunler") For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row...

Nasıl teşekkür edilir bilmiyorum ama bana o kadar yardımcı oldunuz ki. Bundan sonrası artık deneme yanılma, araştırma benim için. Çok ama çok teşekkür ederim.

...' Excel uygulamasını başlat Dim excelApp As New Excel.Application Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\DosyaYolu\ornek.xlsx") Dim worksheet As Excel.Worksheet = workbook.Sheets(1) ' Hücreden veri okuma (örnek: A1 hücresi) Dim...

...ByVal wsOut As Worksheet, ByRef nextRow As Long) On Error GoTo SafeExit Dim wb As Workbook Set wb = Workbooks.Open(Filename:=filePath, ReadOnly:=True, UpdateLinks:=False) Dim sht As Worksheet, matchCount As Long For Each sht In wb.Worksheets ' İsteğe bağlı...

Korhan Bey Teşekkürler

...New_File = "False" Then MsgBox "İşlem iptal edildi.", vbExclamation Exit Sub End If Set Links_WorkBook = Workbooks.Open(Old_File, False, False) File_Links = Links_WorkBook.LinkSources(xlExcelLinks) If IsEmpty(File_Links) Then MsgBox "Bu...

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