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

...As String Dim yol As String masaustu = CreateObject("WScript.Shell").SpecialFolders("Desktop") yol = masaustu & "\AAA" If Dir(yol, vbDirectory) <> "" Then ChDir yol Workbooks.Open Filename:="TEST.xlsx" Else MsgBox "Klasör bulunamadı: " & yol, vbExclamation End If End Sub

Hocam çok teşekkür ederim. Bu daha pratik oldu hocam. Teşekkür ederim.

...isterseniz aşağıdaki gibi yapabilirsiniz. Siz bir tane tırnak işareti fazladan koyduğunuz için hata veriyor Sub DosyaAc_2() Workbooks.Open Filename:=Environ("USERPROFILE") & "\Desktop\RAPORLAR\ALINAN RAPORLAR\ÇEVRE TV.xlsx" End Sub Chdir kullanacaksanız aşağıdaki gibi yapabilirsiniz...

Hocam çok teşekkür ederim. Emeğinize sağlık. Sheets("test").Select ekledim, tam oldu. Peki hocam, WB.Close True , False yapınca dosyanın açık kalması gerekmiyor mu? Test dosyası her koşulda kapanıyor. Bazen açık kalması gerekiyor.

...As Long Application.ScreenUpdating = False Dosya = "C:\Users\muratgunay48\Desktop\test.xlsx" Set WB = Workbooks.Open(Filename:=Dosya) Last_Row = Cells(Rows.Count, "B").End(3).Row Range("A2") = "1" Range("A2:A" & Last_Row).DataSeries Range("C2:C" &...

çok teşekkürler istediğim bu şekilde idi lıstbox 2 klasorden alıyor verileri C:\Users\pc\Desktop\Excell\1\ C:\Users\pc\Desktop\Excell\2\ şeklinde 2 klasor olarak guncelleyebilirmiyiz. birde dosya ısımlerımı cekerken turkce karakterlerı degisitiriyor o yuzden turkce karakter olanlarada...

...If ListBox1.ListIndex = -1 Then Exit Sub secilenDeger = ListBox1.Value dosyaYolu = klasorYolu & secilenDeger & ".xlsx" If Dir(dosyaYolu) <> "" Then Workbooks.Open dosyaYolu Else MsgBox "Dosya bulunamadı!", vbCritical End If End Sub

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