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

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

...= "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 çalışma...

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

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için

...script dosyası Excel dosyasını arka planda açar: Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "C:\Program Files\BenimUygulamam\uygulamam.xlsm" Bu .vbs dosyasına da kısayol oluşturup simgesini değiştirebilirsin. .ico formatında bir simgeye...