Sorgu için arama sonuçları: mkdir

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " &...

İlginize çok teşekkürler sayın Asri. Eklediğim resimdeki gibi hata verdi. Yardımcı olursanız bişey daha sormak istiyorum. Sayfaları kaydederken dosya türünü "Excel 97-2003 Çalışma Kitabı" olarak kaydedebilir mi. Yardımlarının içim şimdiden teşekkürler.

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " & Sheets("MKTT").Range("b7").Value...

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " &...

...Set wbkopya = ActiveWorkbook yol = Environ("USERPROFILE") & "\Desktop\SATINALMA" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = "Dosyaadi" Application.DisplayAlerts = False wbkopya.SaveAs yol & isim & ".xlsx"...

...If Dir("C:\TestFolder", vbDirectory) = "" Then MkDir ("C:\TestFolder") strFile = "C:\TestFolder\Data.html" strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""HTML Import;HDR=No;IMEX=1""" myTable = "Table" '>>>>>>> Web...

...Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = "C:\Users\" & Environ$("UserName") & "\Desktop\Yedek" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi iptal...

RBozkurt hocamız merhaba, Kod hata veriyor, bir eksiklik olabilir mi acaba?

teşekkürler desktop kayıt yolunuda öğrenmiş olduk .

...Sub Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = Environ("username") & "\Desktop" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi...

...işinizi görürmü? Option Explicit Sub Yedekle() Dim Yol As String, Sayfa As Worksheet Yol = "c:\Yedek" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then MsgBox "İşlemi iptal ettiniz!"...

Hocam, 1. Alternatifi kullandım, gayet güzel oldu. Teşekkür ederim.

...& "Üretim Vardiya Raporları" & Application.PathSeparator If Dir(Yol, vbDirectory) = "" Then Shell ("cmd /c mkdir """ & Yol & """") End If End Sub 2. Alternatif; Option Explicit #If VBA7 Then Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib...

Merhaba, Kullanıcı adı belirtmek zorunda kalmadan, masa üstüne C:\Desktop\Raporlar\Üretim Vardiya Raporları\ şeklinde olabilir mi?

...şekide istersen kodun sonuna &Application.PathSeparator eklersin. Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & "Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) On Error Resume Next ....................

...& _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" If Dir(Yol, vbDirectory) = "" Then MkDir (Yol) Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _ Application.PathSeparator & Year(Date) & " Üretim Vardiya Raporları" &...

...= dosya & Format(Now, " dd_mm_yyyy hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True...

Hocam verdiğiniz yanıt macOS için mi windows için mi?

...Dim i As Integer strFolderName = ThisWorkbook.Path & "\YEDEK\" If Dir(strFolderName, vbDirectory) = "" Then MkDir strFolderName End If strDate = Format(Date, "dd.mm.yyyy") Set wb = ThisWorkbook For i = 5 To wb.Worksheets.Count...

ARŞİV klasörünü sabitleyerek; 8. mesajdaki çözüm olsun