نوشته اصلی توسط
gha3emi
سلام
بازم ممنون
من خواستم شرط بذارم كه ا گه مسير وجود نداشت اون رو بسازه ولي موفق نشدم
اگه زحمتي نيست در اين مورد هم راهنماييم كنيد
با سلام
با استفاده از دستور ذیل مسیر فولدر چک میگردد و اگر فولدر موجود نبود ایجاد میگردد
کد PHP:
If Len(Dir(xPath, vbDirectory)) = 0 Then
MkDir xPath
End If
کد ماکرو کلی
کد PHP:
Sub Splitbook()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim xPath As String
xPath = InputBox("select path", "output path for file", "d:\test")
If xPath = "" Then GoTo 0
If Len(Dir(xPath, vbDirectory)) = 0 Then
MkDir xPath
End If
For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & ws.Name & ".xls"
Application.ActiveWorkbook.Close False
Next
0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
علاقه مندی ها (Bookmarks)