-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: workbooks.open
-
C# excel nesne tanımlamada problem
...{ 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...- k0081
- Posta #2
- Forum: Diğer Excel Soruları
-
C# excel nesne tanımlamada problem
...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...- Asri
- Konu
- Cevaplar: 22
- Forum: Diğer Excel Soruları
-
-
Masaüstü klasör
...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...- muratgunay48
- Posta #9
- Forum: Makro-VBA Soruları
-
B
Masaüstü klasör
...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...- bosislermuduru
- Posta #8
- Forum: Makro-VBA Soruları
-
Masaüstü klasör
- muratgunay48
- Posta #7
- Forum: Makro-VBA Soruları
-
Masaüstü klasör
Hiç o açıdan düşünmemiştim. Teşekkür ederim hocam. Emeğinize sağlık.- muratgunay48
- Posta #6
- Forum: Makro-VBA Soruları
-
B
Masaüstü klasör
...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:= _...- bosislermuduru
- Posta #5
- Forum: Makro-VBA Soruları
-
Masaüstü klasör
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...- muratgunay48
- Posta #3
- Forum: Makro-VBA Soruları
-
kapalı excel veri aktarma (şartlı)
...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...- veyselemre
- Posta #5
- Forum: Makro-VBA Soruları
-
N
kapalı excel veri aktarma (şartlı)
...= 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...- netvolxxx
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
B
kapalı dosyadan veri aldırmak
....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...- burakalsancak
- Posta #4
- Forum: Makro-VBA Soruları
-
D
Soru Formül Revize
...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")...- dengeceteris
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
Listbox'ta Döngü Kurma
Çok teşekkürler sayın DoğanD elinize sağlık. İstediğim oldu.- ahmed_ummu
- Posta #5
- Forum: Makro-VBA Soruları
-
D
Listbox'ta Döngü Kurma
Ş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...- DoğanD
- Posta #4
- Forum: Makro-VBA Soruları
-
Listbox'ta Döngü Kurma
...uyguladım ama dosya bulunamadı diye uyarı verdi. Açılan tüm kapalı dosyalardaki veri alınacak sayfanın adı "dışarıstj" Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value Dim Say As Long Dim Sayfa As Worksheet Dim SonSatir As...- ahmed_ummu
- Posta #3
- Forum: Makro-VBA Soruları
-
Y
Farklı Kaydet Sorunu!
...= Workbooks.Add(xlWBATWorksheet) Else Application.DisplayAlerts = False ' Uyarı mesajlarını kapat Set newWb = Workbooks.Open(filePath) newWb.Windows(1).Visible = True Application.DisplayAlerts = True ' Uyarı mesajlarını aç End If '...- yusuf1284
- Posta #12
- Forum: Makro-VBA Soruları
-
I
Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.
Haklısınız çok değerli hocam ben tüm kodu koymuşum özür dilerim. çok güzel çalışıyor sağolun varolun.- ismail-34
- Posta #8
- Forum: Makro-VBA Soruları
-
Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.
...File_Path = ThisWorkbook.Path & "\" File_Name = "Fişler" File_Exists = Dir(File_Path & File_Name & "*.xlsm") If File_Exists <> "" Then Set WB = Workbooks.Open(File_Path & File_Exists) Else MsgBox "Dosya bulunmadı!", vbCritical End If End Sub- Korhan Ayhan
- Posta #7
- Forum: Makro-VBA Soruları
-
I
Aynı Klasördeki Başka bir dosyayı diğer dosyadan çalıştırmak.
Çok Değerli Korhan Hocam sizinkide olmadı malesef. Excel versiyonmu 2013 Türkçe Çıkan hata için linkteki dosyayı kullanabilirsiniz.. https://dosya.co/h7hrrt7opmfz/Fişler_ile_başlayan_dosyayı_çalıştır..zip.html- ismail-34
- Posta #6
- Forum: Makro-VBA Soruları