Excel имя файла в ячейку

Имена

Excel имя файла в ячейку

Sub IMPORT_P()
Dim srcBook
Set wb = ThisWorkbook
Set wf = WorksheetFunction

‘ Открыть файл
wb.Sheets(«Лист1»).Range(«C7:C400»).Font.Color = vbBlack
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject(«Scripting.FileSystemObject»)
If oFileSystemObject.FileExists(wb.Path & «\File.xls») Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & «\File.xls», ReadOnly:=True, UpdateLinks:=0)
‘Вставить
wb.Sheets(«Лист1»).Range(«C7») = wf.Sum(srcBook.Sheets(«Data»).Range(«GE9,GE30»))
wb.Sheets(«Лист1»).Range(«C8») = wf.Sum(srcBook.Sheets(«Data»).Range(«F9,F30»))
wb.Sheets(«Лист1»).Range(«C9») = wf.Sum(srcBook.Sheets(«Data»).Range(«U9,U30»))

wb.Sheets(«Лист1»).Range(«C7:C9»).Font.Color = vbRed
srcBook.Close SaveChanges:=False
End If
If oFileSystemObject.FileExists(wb.Path & «\File2.xls») Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & «\File2.xls», ReadOnly:=True, UpdateLinks:=0)
‘Вставить
wb.Sheets(«Лист1»).Range(«C10») = wf.Sum(srcBook.Sheets(«Data»).Range(«GE9,GE30»))
wb.Sheets(«Лист1»).Range(«C11») = wf.Sum(srcBook.Sheets(«Data»).Range(«F9,F30»))
wb.Sheets(«Лист1»).Range(«C12») = wf.Sum(srcBook.Sheets(«Data»).Range(«U9,U30»))

wb.Sheets(«Лист1»).Range(«C10:C12»).Font.Color = vbRed
srcBook.Close SaveChanges:=False
End If
End Sub

Sub IMPORT_P()
Dim srcBook
Set wb = ThisWorkbook
Set wf = WorksheetFunction

‘ Открыть файл
wb.Sheets(«Лист1»).Range(«C7:C400»).Font.Color = vbBlack
Dim oFileSystemObject As Object: Set oFileSystemObject = CreateObject(«Scripting.FileSystemObject»)
If oFileSystemObject.FileExists(wb.Path & «\File.xls») Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & «\File.xls», ReadOnly:=True, UpdateLinks:=0)
‘Вставить
wb.Sheets(«Лист1»).Range(«C7») = wf.Sum(srcBook.Sheets(«Data»).Range(«GE9,GE30»))
wb.Sheets(«Лист1»).Range(«C8») = wf.Sum(srcBook.Sheets(«Data»).Range(«F9,F30»))
wb.Sheets(«Лист1»).Range(«C9») = wf.Sum(srcBook.Sheets(«Data»).Range(«U9,U30»))

wb.Sheets(«Лист1»).Range(«C7:C9»).Font.Color = vbRed
srcBook.Close SaveChanges:=False
End If
If oFileSystemObject.FileExists(wb.Path & «\File2.xls») Then
Set srcBook = Workbooks.Open(Filename:=wb.Path & «\File2.xls», ReadOnly:=True, UpdateLinks:=0)
‘Вставить
wb.Sheets(«Лист1»).Range(«C10») = wf.Sum(srcBook.Sheets(«Data»).Range(«GE9,GE30»))
wb.Sheets(«Лист1»).Range(«C11») = wf.Sum(srcBook.Sheets(«Data»).Range(«F9,F30»))
wb.Sheets(«Лист1»).Range(«C12») = wf.Sum(srcBook.Sheets(«Data»).Range(«U9,U30»))

wb.Sheets(«Лист1»).Range(«C10:C12»).Font.Color = vbRed
srcBook.Close SaveChanges:=False
End If
End Sub

Sub IMPORT_P()
Dim srcBook
Set wb = ThisWorkbook
Set wf = WorksheetFunction

Источник

Вставка объекта в электронную таблицу Excel

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

Для включения содержимого из других программ, таких как Word или Excel, можно использовать связывание и внедрение объектов (OLE).

При копировании данных между Excel или любой программой, поддерживающей технологию OLE, например Word, вы можете скопировать эти данные как связанный объект или внедренный объект. Основные различия между связанными и внедренными объектами находятся в том месте, где хранятся данные, а также о том, как объект будет обновлен после того, как вы поместите его в конечный файл. Внедренные объекты хранятся в книге, в которой они вставлены, и не обновляются. Связанные объекты сохраняются как отдельные файлы, и их можно обновить.

Читайте также:  Группа помни имя свое слушать

Связанные и внедренные объекты в документе

1. внедренный объект не имеет соединения с исходным файлом.

2. связанный объект связан с исходным файлом.

3. исходный файл обновляет связанный объект.

Когда следует использовать связанные объекты

Если вы хотите, чтобы информация в конечный файл обновлялась при изменении данных в исходный файл, используйте связанные объекты.

При использовании связанного объекта исходные данные сохраняются в исходном файле. В конечном файле выводится представление связанных данных, в котором хранятся только исходные данные (и размер объекта, если объект является диаграммой Excel). Исходный файл должен быть доступен на вашем компьютере или в сети для поддержания связи с исходными данными.

Связанные данные могут быть обновлены автоматически при изменении исходных данных в исходном файле. Например, если выбрать абзац в документе Word, а затем вставить его как связанный объект в книгу Excel, то при изменении данных в документе Word можно обновить данные в Excel.

Использование внедренных объектов

Если вы не хотите обновлять скопированные данные при изменении в исходном файле, используйте внедренный объект. Версия исходного кода полностью внедрена в книгу. Если вы копируете данные как внедренный объект, конечный файл требует больше места на диске, чем при связывании данных.

Когда пользователь открывает файл на другом компьютере, он может просматривать внедренный объект без доступа к исходным данным. Так как внедренный объект не содержит связей с исходным файлом, объект не обновляется при изменении исходных данных. Чтобы изменить внедренный объект, дважды щелкните объект, чтобы открыть его и изменить его в исходной программе. Исходная программа (или другая программа, поддерживающая редактирование объекта) должна быть установлена на вашем компьютере.

Изменение способа отображения объекта OLE

Читайте также:  Имена женские для вампиров

Вы можете отобразить связанный объект или внедренный объект в книге так, как она отображается в программа-источник или в виде значка. Если книга будет просматриваться в Интернете и вы не планируете печатать книгу, вы можете отобразить объект в виде значка. Это уменьшает объем отображаемого пространства, занимаемого объектом. Для просмотра, в котором нужно отобразить сведения, дважды щелкните значок.

Источник

Excel имя файла в ячейку

Автоматическая вставка слова из названия файла в ячейку

h1dexДата: Четверг, 10.12.2015, 01:45 | Сообщение № 1

к сожалению не могу найти тут на форуме формулу на автоматическую вставку названия слова из названия файла
к примеру файл называется PRN10365_Ввод_данных
как из этого названия выдрать PRN10365 и вставить в ячейку? т.е. нужно не всё название файла «PRN10365_Ввод_данных», а только «PRN10365», которое идёт до первого нижнего подчёркивания _

кто знает? помогите пожалуйста!

к сожалению не могу найти тут на форуме формулу на автоматическую вставку названия слова из названия файла
к примеру файл называется PRN10365_Ввод_данных
как из этого названия выдрать PRN10365 и вставить в ячейку? т.е. нужно не всё название файла «PRN10365_Ввод_данных», а только «PRN10365», которое идёт до первого нижнего подчёркивания _

кто знает? помогите пожалуйста! h1dex

к сожалению не могу найти тут на форуме формулу на автоматическую вставку названия слова из названия файла
к примеру файл называется PRN10365_Ввод_данных
как из этого названия выдрать PRN10365 и вставить в ячейку? т.е. нужно не всё название файла «PRN10365_Ввод_данных», а только «PRN10365», которое идёт до первого нижнего подчёркивания _

krosav4igДата: Четверг, 10.12.2015, 02:07 | Сообщение № 2
h1dexДата: Четверг, 10.12.2015, 03:55 | Сообщение № 3

с таким же успехом можно было кинуть ссылку на учебник по экселю..к сожалению нет времени изучать полностью его..мне по факту нужно только некоторые формулы или макросы ^_^

можно такое макросом реализовать? 🙂
я нашёл формулу по вставке названия файла..но мне нужно не всё название

с таким же успехом можно было кинуть ссылку на учебник по экселю..к сожалению нет времени изучать полностью его..мне по факту нужно только некоторые формулы или макросы ^_^

можно такое макросом реализовать? 🙂
я нашёл формулу по вставке названия файла..но мне нужно не всё название h1dex

Сообщение с таким же успехом можно было кинуть ссылку на учебник по экселю..к сожалению нет времени изучать полностью его..мне по факту нужно только некоторые формулы или макросы ^_^

krosav4igДата: Четверг, 10.12.2015, 05:22 | Сообщение № 4

3 пункт из первой ссылки внимательно читали?
а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )

[p.s.]на всякий случай.
я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excel

3 пункт из первой ссылки внимательно читали?
а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )

[p.s.]на всякий случай.
я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excel krosav4ig

Сообщение 3 пункт из первой ссылки внимательно читали?
а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )

Источник

Оцените статью
Имя, Названия, Аббревиатуры, Сокращения
Adblock
detector