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

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

...{ if (ilkcalisma==0) { 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...

...public void excelverikaydet() { 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...

Hocam burada hata verdi.

...ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx" PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf" Workbooks.Open Filename:=ExcellAdresi ----------------------------------------------------------------------- Sheets("TV").Select Rows("1:2").Select...

...pdf olarak kaydediyorduk, şimdi araya biçimlendirme ekleyeceğiz o halde 1.adım exceli açalım 2.Adım Biçimlendir 3.Adım Pdf Kaydet Vs Workbooks.Open Filename:=ExcellAdresi '1.Adım Sheets("TV").Select ....... Application.PrintCommunication = True ActiveSheet.ExportAsFixedFormat...

Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.

...ExcellAdresi = ActiveWorkbook.Path & "\ALINAN RAPORLAR\test.xlsx" PDFAdresi = ActiveWorkbook.Path & "\PDF RAPORLAR\test.pdf" Workbooks.Open Filename:=ExcellAdresi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFAdresi, Quality:= _...

Sub Makro1() ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR" Workbooks.Open Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\ALINAN RAPORLAR\test.xlsx" ChDir "C:\Users\murat\OneDrive\Masaüstü\RAPORLAR\PDF RAPORLAR" ActiveSheet.ExportAsFixedFormat...

...Kaynak_Sayfa = Kaynak_Kitap.Sheets("Taslak") Yol = ThisWorkbook.Path & "\" Dosya_Adi = "Kapalı.xlsm" Set Hedef_Kitap = Workbooks.Open(Yol & Dosya_Adi, False, False) Set Hedef_Sayfa = Hedef_Kitap.Sheets("Sayfa1") If Hedef_Sayfa.Range("A1") = "" Then With...

...= Kaynak_Kitap.Sheets("Taslak") Yol = ThisWorkbook.Path & "\" Dosya_Adi = "Kapalı.xlsm" Set Hedef_Kitap = Workbooks.Open(Yol & Dosya_Adi, False, False) Set Hedef_Sayfa = Hedef_Kitap.Sheets("Sayfa1") If Hedef_Sayfa.Range("A1") = "" Then With...

....Show = 0 Then Exit Sub Else dosya = .SelectedItems(1) End If End With Application.ScreenUpdating = False Set w2 = Workbooks.Open(dosya) Set s2 = w2.Worksheets(1) s2.Range("A1:T300").Copy s1.Range("A1:T300") Application.ScreenUpdating = True w2.Close End Sub s2.range...

...VERİAL_1() If dosya <> "" Then On Error GoTo hata Application.ScreenUpdating = False Set kaynak = Workbooks.Open(dosya, True, True) kaynak.Worksheets("MİZAN").Range("A7:C5000").Copy ThisWorkbook.Sheets("MİZAN1").Range("C3")...

Çok teşekkürler sayın DoğanD elinize sağlık. İstediğim oldu.

Şu şekilde dener misiniz? dim i as integer For i = 0 To ListBox1.ListCount - 1 Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.list(i) 'Listbox'ta nasıl göründüğünü bilmiyorum. "Dosyaİsmi.xlsx" şeklinde uzantısı ile görünmüyorsa...