Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » bsi52
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 20:43:56
Всё! Ошибки я нашла и всё работает и на диске С. Спасибо за терпение и науку.
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 18:33:39
Причины:
- указан несуществующий  файл или путь
- файл используется другой программой
- имя книги, которую вы пытаетесь сохраняете совпадает с

Все программы у меня закрыты, открыт только Excel и браузер.
Другие файлы в Excel не открыты.
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 18:22:14
Вставила в макрос этот путь C:Users\Masha\Documets\Акт\ и опять та же ошибка.
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 18:10:59
Создала файл. Путь выскочил Users\Masha\Documets\Акт. Этот путь и надо вставлять ? Попробовала с этим путём, всё равно ошибка.
Изменено: bsi52 - 23.10.2017 18:15:26
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 18:01:04
Цитата
RAN написал:
Это потому, что такого пути на вашем компьютере не существует.
Почему не существут ? Я же сделала все эти папки на диске С. Что-то я не поняла где создать файл с указанным макросом. В паке Акт ?
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 17:47:45
Рано я что-то обрадовалась. Если шаблон лежит на диске D по пути Мои документы\Downloads и сохраняю я файл по этому пути всё работает нормаль. Но если я пытаюсь это же самое проделать на диске С в коде шаблона ставлю путь C:\Пользователи\Masha\Документы\Акт\ и сохранение файл  по этому же пути, при сохранении шаблона для сохранения изменений, выскакивает ошибка 1004, сообщение "Приложению Microsft Excel не удаётся получить доступ к файлу "C:\Пользователи\Masha\Документы\Акт\08841000" далее перечисляются причины. Файл во вложении. Код в шаблоне такой:
Код
Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="C:\Пользователи\Masha\Документы\Акт\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "C:\Пользователи\Masha\Документы\Акт\"
Application.DisplayAlerts = True
Изменено: bsi52 - 23.10.2017 17:51:31
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 15:53:22
Всем огромное спасибо. Заработало исправно, так как надо.
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 15:27:28
Ну сделала я папку на диске D на нём папку Мои документы в ней Downloads, в последнюю папку поместила шаблон, в шаблоне код  и всё рано сохраняет на диске С в Документах.
Код
Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
'ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & [F2].Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "D:\Мои документы\Downloads\"
Application.DisplayAlerts = True
Изменено: bsi52 - 23.10.2017 15:28:03
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 13:48:59
Цитата
RAN написал:
Это книга без адреса.
Надо ещё кок-то прописать адрес книги?
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 13:39:52
Пробую так, сохраняет в нужном формате, но сохраняет в папку "Документы" а не в папку где шаблон.
Код
Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
Изменено: bsi52 - 23.10.2017 13:40:30
 
Перейти    
Сохранение файла из шаблона в формате xlsx.
 
#
23.10.2017 11:27:17

Всем привет. Имеется шаблон Excel (xltm), необходим макрос, на событие Workbook_BeforeClose, который сохраняет файл из шаблона в формате xlsx (без поддержки макросов) с именем из ячейки F2 в папку, в которой находится сам шаблон. Два дня рылась в инете, многое находила, но ничего нужного не нашла. Вся надежда на вас форумчане. Всем спасибо. Файл во вложении.

Изменено: bsi52 - 23.10.2017 11:27:54
 
Перейти    
Оформление границ ячеек макросом.
 
#
07.10.2017 15:16:27
Сделал всё как описано выше, но при открытии файла выскакивает ошибка (см. файл), потом при после ввода данных в столбце В не работает автонумерация (вместо цифр формула) в столбце А. Если пытаюсь удалить строки то опять ошибка RUN-time error 13 Type mismatch. Код в файле такой (прав добавил end If после 2-й строки т.к. ошибка выскакивала.)
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A7:J300]) Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Borders.LineStyle = xlContinuous
 End If
'Автонумерация
Range("A7:A" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(RC2="""","""",MAX(R1C1:R[-1]C)+1)"
  'переключение раскладки клаватуры
    Select Case Target.Column    ' в зависимости от номера столбца активной ячеки
        Case 2:    ' для столбца Полис (серия)
            ВключитьАнглийскуюРаскладку
        Case 3:    'на столбце Полис (номер) включаем русскую раскладку клавы и далее всё на русском
            ВключитьРусскуюРаскладку
        Case Else:    ' ничего не делаем (оставляем текущую раскладку)
    End Select
'перемещение курсора по TAB
  Set PrevCell(0) = PrevCell(1)
  Set PrevCell(1) = Target
  If PrevCell(0) Is Nothing Then Exit Sub
  If Target.Column = 1 Then Exit Sub
  EnableEvents = False
  
  Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Borders.LineStyle = xlContinuous
  
  If Target.Column = TabEnd + 1 Then
    If PrevCell(0).Address = Target.Offset(0, -1).Address Then Cells(Target.Row + 1, TabStart).Select
    Set PrevCell(1) = ActiveCell
  End If
  
  EnableEvents = True
End Sub
Изменено: bsi52 - 07.10.2017 15:16:49
 
Перейти    
Оформление границ ячеек макросом.
 
#
07.10.2017 14:04:17
Iгор спасибо за ответ, но я не знаю как его использовать в моём случае. Полагаю, что надо вклинить его в этот код
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Автонумерация
Range("A7:A" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(RC2="""","""",MAX(R1C1:R[-1]C)+1)"
  'переключение раскладки
    Select Case Target.Column    ' в зависимости от номера столбца активной ячеки
        Case 2:    ' для столбца Полис (серия)
            ВключитьАнглийскуюРаскладку
        Case 3:    'на столбце Полис (номер) включаем русскую раскладку клавы и далее всё на русском
            ВключитьРусскуюРаскладку
        Case Else:    ' ничего не делаем (оставляем текущую раскладку)
    End Select
'перемещение курсора по TAB
  Set PrevCell(0) = PrevCell(1)
  Set PrevCell(1) = Target
  If PrevCell(0) Is Nothing Then Exit Sub
  If Target.Column = 1 Then Exit Sub
  EnableEvents = False
  If Target.Column = TabEnd + 1 Then
    If PrevCell(0).Address = Target.Offset(0, -1).Address Then Cells(Target.Row + 1, TabStart).Select
    Set PrevCell(1) = ActiveCell
  End If
  EnableEvents = True
End Sub
в моём файле. Но куда ?
Изменено: bsi52 - 07.10.2017 14:05:58
 
Перейти    
Оформление границ ячеек макросом.
 
#
07.10.2017 13:31:20
Так это надо будет кнопочку ставить или сочетание клавиш, а мне не хотелось бы так.  
 
Перейти    
Оформление границ ячеек макросом.
 
#
07.10.2017 13:14:53
Этот материал мне уже когда-то попадался. Там про перекрестное выделение, а мне надо оформлять границы ячеек при добавлении записей в строках. Спасибо за информацию.
 
Перейти    
Оформление границ ячеек макросом.
 
#
07.10.2017 12:44:43
С BVA не дружу, поэтому прошу помощи.

Алгоритм действий следующий:
- Активируем ячейку В7 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А7:J7
- Активируем ячейку В8 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А8:J8
Подобные манипуляции происходят в строках с 7 по 300.

Файл таблицы во вложении, макросы там уже имеются, к ним надо добавить, описанное выше.
Изменено: bsi52 - 07.10.2017 14:12:18
 
Перейти    
Сохранение файла с именем, состоящим из нескольких значений из ячейки
 
#
02.02.2017 12:59:53
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & [J2].Value & ".xls"
End Sub
 
Перейти    
Страницы: 1
Наверх