Sorgu için arama sonuçları: mkdir

...& "." & uzanti Kayıt_Yeri = Klasor & "\" & Yedek_Dosya_Adı If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then MkDir Klasor End If CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.FullName, Kayıt_Yeri MsgBox "Dosyanız aşağıdaki isimle...

@Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?

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

...On Error Resume Next TempFilePath = Environ$("temp") & "\RangePic\" If Len(VBA.Dir(TempFilePath, vbDirectory)) = False Then VBA.MkDir TempFilePath End If Set xAcSheet = Application.ActiveSheet For Each xSheet In Application.Worksheets xSheet.Activate...

Çok teşekkürler Haluk Hocam iyi çalışmalar

...False WHTTP.Send FileData = WHTTP.ResponseBody Set WHTTP = Nothing If Dir("C:\TestFolder", vbDirectory) = Empty Then MkDir "C:\TestFolder" FileNum = FreeFile Open "C:\TestFolder\" & fileName For Binary Access Write As #FileNum Put #FileNum, 1...

...As String folderPath = ThisWorkbook.Path & "\Sorgulanacaklar" If Dir(folderPath, vbDirectory) = vbNullString Then MkDir folderPath End If Dim fileName As String fileName = Dir(folderPath & "\*.txt") While fileName <> "" Kill folderPath & "\" &...

...& "\Foto" ' Fist check to see if a unique folder for the open record exists, create if not If Len(Dir(Foldername, vbDirectory)) = 0 Then MkDir Foldername End If On Error GoTo reportErr FileRoot = Foldername & "\" & "Resim_" & sipNo & "_" & item 'Creates a BMP and JPG version of...

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

Çok teşekkürler sayın Asri elinize sağlık, iyi akşamlar.

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