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

...On Error Resume Next Set w1 = Workbooks(dsy) On Error GoTo 0 If w1 Is Nothing Then If (Dir(yol & dsy)) <> "" Then Set w1 = Workbooks.Open(yol & dsy) Else MsgBox yol & " konumunda " & dsy & " isimli bir dosya yer almıyor.", vbCritical Exit Sub End If End If...

Çok teşekkürler. Sorunsuz çalışıyor. Merak ettiğim için soruyorum, bunların farkı nedir? Açma parolası mevcut olan şifreyi kaldırmak için, yeni açma parolası da sıfırdan şifre koymak için , değiştirme parolası ve yeni değiştirme parolası nedir:) acma_paralası = 12 degistirme_parolası = 13...

...acma_paralası = 12 degistirme_parolası = 13 If ThisWorkbook.Name <> dosya.Name Then If Mid(dosya.Name, 1, 2) <> "~$" Then Set wb = Workbooks.Open(dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Application.DisplayAlerts = False wb.SaveAs Filename:=dosya...

Hocam makro çalıştırdığımda yine bu ekran geliyor

...acma_paralası = 12 degistirme_parolası = 13 If ThisWorkbook.Name <> dosya.Name Then If Mid(dosya.Name, 1, 2) <> "~$" Then Set wb = Workbooks.Open(dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Application.DisplayAlerts = False wb.SaveAs Filename:=dosya...

Hocam üstteki kodu denedim ama dosya açarken uzantı değiştirilmiş gibi birşey diyordu File format bölümünü xlOpenXMLWorkbook olarak değiştirdim. Sorun çözüldü. Fakat; tek klasörü secebiliyorum. Bir klasörü seçip alttaki klasörleri de kapsayacak şekilde nasıl yapabilirim Düzeltme: dosyalarda dış...

...edebilmeniz için dosya seçmelisiniz!", vbCritical Exit Sub End If On Error Resume Next Set Target_File = Workbooks.Open(Target_File, True, False) Set Target_Sheet = Nothing Set Target_Sheet = Target_File.Sheets("Sayfa1") On Error GoTo 0 If Not...

...= ObjFolder.Items.Item.Path acma_paralası = 12 degistirme_parolası = 13 ChDir (pth) dosya = Dir("*.x**") While dosya <> "" Set wb = Workbooks.Open(pth & "\" & dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Range("A1").Select ActiveWorkbook.SaveAs Filename:=pth & "\"...

...ThisWorkbook.Sheets("Yeni").Select For Each fls In f If fso.GetExtensionName(fls) = "xlsx" Then If Workbooks.Open(fls).ReadOnly = True Then Workbooks(fls.Name).Close False For Each sh In Workbooks(fls.Name).Worksheets sonsat1 =...

Bu kodla önce hücreye Y yazıp kaydedip çıktım. kod Y ha Sub KDVERIYAZ() Application.ScreenUpdating = False Workbooks.Open Filename:= _ "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA\1_KD_DEDAGROUP.xlsm" Sheets("VERILER").Range("AF1").Value = "Y"...

..."Y" harfi yazdıran aşağıdaki kodu kullandığımda istediğim fasif olayı olmuyor. yardımlarınızı rica ediyorum. Sub KDVERIAL() Workbooks.Open Filename:= _ "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA\1_KD_DEDAGROUP.xlsm" Sheets("VERILER").Range("AF1").Value = "Y"...

...Password:="2222", AllowFiltering:=True bu satırı sılınce tamamen hata vermıyor gerekıyorsa bunu kullanmam ama Set Diğer_Not = Workbooks.Open("C:\Program Files (x86)\Raporlar\Dosyalarım\Diğer.xlsx", Password:="2222", ReadOnly:=True) bu dosyayı yıne acıyor bunu acsın ıstemıyorum burasını...

...Dim Sayfa1 As Worksheet Dim Diğer_Not As Workbook Dim Tablo As Range Dim i As Long Set Sayfa1 = Sheets("Detay") Set Diğer_Not = Workbooks.Open("C:\Program Files (x86)\Raporlar\Dosyalarım\Diğer.xlsx", Password:="2222", ReadOnly:=True) Set Tablo = Diğer_Not.Sheets("GenelNot").Range("A:A")...

Merhaba teşekkür ediyorum fakat excel dosyaların içinde bazılarında 2 sayfa var ve isimleri data , komax bu komaxtaki bazı veriler sizin makrodada almamış örnek veriyorum 0535 varyantındaki bu kabloları eklememiş 0522.1-1 0,5 BU 1740 X3707/X1 21A07/X1 A 619 540 05 35 A 619 540 20 13...

...= "Birleştirilenler" DestRow = 1 FileName = Dir(FolderPath & "*.xls*") Do While FileName <> "" Set WbSource = Workbooks.Open(FolderPath & FileName) Set WsSource = WbSource.Sheets(1) LastRow = WsSource.Cells(WsSource.Rows.Count, "A").End(xlUp).Row...

...olamadım. Konuyla ilgili tecrübesi yada fikri olan varsa gerçekten çok makbule geçer. Şimdiden yardımcı olan herkese teşekkürler, Workbooks.Open Filename:= _ "https://******.sharepoint.com/sites/TedarikZinciriDokmanMerkezi/Shared Documents/" & HedefDepo ActiveWorkbook.RefreshAll

...If DosyaUzantisi = "xls" Or DosyaUzantisi = "xlsx" Then On Error Resume Next Workbooks.Open DosyaYolu, ReadOnly:=False If Err.Number <> 0 Then MsgBox "Dosya açılamadı: " & DosyaAdi & vbCrLf & "Hata: " & Err.Description, vbExclamation...

@beab05, kodlar için teşekkür ederim. C# i kendi işim olarak değil de işime bir yardımcı araç olarak kullanmayı planlıyorum. class işlemlerinin detaylarına hakim olursam benim için yeterli olacaktır. Çok ciddi büyük projeler oluşturacak kadar bilmeme gerek yok. Şimdiden plc haberleşmesi veri...

...static void EklentiAna() { xlApp = new excel.Application(); xlWorkbook = xlApp.Workbooks.Open(@"dosya yolu"); xlWorksheet = (excel.Worksheet)xlWorkbook.Sheets[1]; xlRange = xlWorksheet.UsedRange; timer =...

...için. Buradaki tanımlamayı nerede yapmam lazım. excel.Application xlApp = new excel.Application(); excel.Workbook xlWorkbook = xlApp.Workbooks.Open(FileName); excel.Worksheet xlWorksheet = (excel.Worksheet)xlWorkbook.Sheets[1]; excel.Range xlRange = xlWorksheet.UsedRange; xlApp.Visible =...