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

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

...& Searched_File_Extension) While My_File <> "" If My_File <> ThisWorkbook.Name Then Set WB = Workbooks.Open(My_Folder & My_File, 1, 0) Set SH = WB.Sheets(1) SH.Range("A1").Value = "ABC" WB.Close True End If...

...Main_Folder = "C:\Belgelerim\Excel Dosyaları\" For Each My_File In FSO.GetFolder(Main_Folder).Files Set WB = Workbooks.Open(My_File, 1, 0) For Each Sh In WB.Worksheets Sh.Columns.AutoFit Next WB.Close 1 Next Set FSO = Nothing...

...Dim dosyaYolu As String dosyaYolu = ThisWorkbook.Path & "\xx.xlsx" Application.ScreenUpdating = False Set wb = Workbooks.Open(dosyaYolu, ReadOnly:=True, IgnoreReadOnlyRecommended:=True) sayfaAdi = wb.Sheets(1).Name wb.Close SaveChanges:=False...

Çok Teşekkür ederim ellerinize Sağlık beni büyük bir yükten kurtardınız. Allah razı olsun

..."@")(1) ' Excel uygulamasını başlat Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Open(excelPath) Set xlSheet = xlWB.Sheets(1) ' Domaini Excel'de ara On Error Resume Next Set foundRow =...

...Private Sub Workbook_Open() Dim File_Path As String File_Path = "C:\Desktop\Deneme.xlsx" If Dir(File_Path) <> "" Then Workbooks.Open File_Path, False, False Else MsgBox "Dosya bulunamadı!" & vbCrLf & vbCrLf & File_Path, vbCritical End If End Sub

..."Cannot Open Itself", vbExclamation, un GoTo skipfile: End If Set wbkToCopy = Workbooks.Open(Filename:=vaFiles(i)) Set wsa = ActiveWorkbook.ActiveSheet lra = FindRowColumn(wsa, "r") lrc =...

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

...As String Dim wb As Workbook csvFile = Dir("C:\csv_klasoru\*.csv") Do While csvFile <> "" Set wb = Workbooks.Open("C:\csv_klasoru\" & csvFile) xlsxFile = Replace(csvFile, ".csv", ".xlsx") wb.SaveAs Filename:="C:\xlsx_klasoru\" & xlsxFile...

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