Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Доступ запрещен - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » Доступ запрещен
Доступ запрещен
Guslykov Дата: Понедельник, 10.10.2016, 21:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Всем доброго вечера. Есть такой код:
[vba]
Код

Sub Save()
Dim fs As New FileSystemObject
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
End If
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now) & "\" & Month(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
End If
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now) & "\" & Month(Now) & "\" & Day(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
        fll = MC
End If
ThisWorkbook.Save
Dim sFileName As String, sNewFileName As String

    sFileName = "C:\MMA_Real\Дополнения\Начало.xlsm"  'имя файла для копирования
    sNewFileName = fll & "\Начало.xlsm" 'имя копируемого файла. Директория(в данном случае диск D) должна существовать
    'If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
    
    FileCopy sFileName, sNewFileName 'копируем файл

End Sub
[/vba]
Почему на FileCopy выдает ошибку "70" Доступ запрещен
 
Ответить
СообщениеВсем доброго вечера. Есть такой код:
[vba]
Код

Sub Save()
Dim fs As New FileSystemObject
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
End If
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now) & "\" & Month(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
End If
MC = "C:\MMA_Real\Дополнения\Копия\" & Year(Now) & "\" & Month(Now) & "\" & Day(Now)
If Not fs.FolderExists(MC) Then
            fll = fs.CreateFolder(MC)
        Else
        fll = MC
End If
ThisWorkbook.Save
Dim sFileName As String, sNewFileName As String

    sFileName = "C:\MMA_Real\Дополнения\Начало.xlsm"  'имя файла для копирования
    sNewFileName = fll & "\Начало.xlsm" 'имя копируемого файла. Директория(в данном случае диск D) должна существовать
    'If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
    
    FileCopy sFileName, sNewFileName 'копируем файл

End Sub
[/vba]
Почему на FileCopy выдает ошибку "70" Доступ запрещен

Автор - Guslykov
Дата добавления - 10.10.2016 в 21:49
Guslykov Дата: Понедельник, 10.10.2016, 22:24 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Ух ты какая дискуссия развернулась. :D :D :D :D Всем спасибо проблема решена.
 
Ответить
СообщениеУх ты какая дискуссия развернулась. :D :D :D :D Всем спасибо проблема решена.

Автор - Guslykov
Дата добавления - 10.10.2016 в 22:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » Доступ запрещен
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!