Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.10.2018, 09:14   #1
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию Как извлечь имя листа с закрытого файла?

Привет друзья!
Есть папка с эксель-файлами.
В каждом файле только один лист (Всегда!)
Есть открытый эксель файл с именами файлов в этой папке,

Вопрос:
Как извлечь имя листа для каждого файла?
Jungo must die!!! (C) Bill Gates.

Последний раз редактировалось jungo; 10.10.2018 в 11:32.
jungo вне форума
Старый 10.10.2018, 09:55   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Цитата:
Сообщение от jungo Посмотреть сообщение
Есть папка с эксель файлами.
В каждом файле только одна книга (Всегда!)
- ну с этим не поспоришь

Цитата:
Сообщение от jungo Посмотреть сообщение
Есть открытый эксель файл с именами файлов в этой папке,
Вопрос:
Как извлечь имя книги для каждого файла?
- имя файла=имя книги!
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума
Старый 10.10.2018, 10:04   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от jungo Посмотреть сообщение
В каждом файле только одна книга (Всегда!)
Вы не путаете имя книги с именем листа?
ведь, насколько я понимаю, в файле Excel только ОДНА книга и может быть.
и имя книги это и есть имя файла! Точнее наоборот - имя файла - это и есть имя книги!

А вот листов в книге может быть много.

уточните задачу.
Serge_Bliznykov вне форума
Старый 10.10.2018, 10:11   #4
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Вы не путаете имя книги с именем листа?
ведь, насколько я понимаю, в файле Excel только ОДНА книга и может быть.
и имя книги это и есть имя файла! Точнее наоборот - имя файла - это и есть имя книги!

А вот листов в книге может быть много.

уточните задачу.

Лист! конечно лист!
Jungo must die!!! (C) Bill Gates.

Последний раз редактировалось jungo; 10.10.2018 в 11:32.
jungo вне форума
Старый 10.10.2018, 10:31   #5
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
- ну с этим не поспоришь

- имя файла=имя книги!
Лист! Я перепутал! Сорри
Jungo must die!!! (C) Bill Gates.

Последний раз редактировалось jungo; 10.10.2018 в 11:32.
jungo вне форума
Старый 22.10.2018, 17:24   #6
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Друзья,

Подключил:
1. Microsoft ActiveX Data Objects 2.5 Library
2. Microsoft Scripting Runtime

Код:
Sub SheetName()

    Dim mFileSystemObject As FileSystemObject, mFolder As Folder, mFiles As Files, mFile As File
    Dim mConnection As ADODB.Connection, mRecordset As ADODB.Recordset, mConnectionString As String
    Dim mPath As String, Stroka As String
     
    Set mFileSystemObject = New FileSystemObject
    Set mConnection = New ADODB.Connection
     
    mPath = "C:\Users\yavalegu\Desktop\459800139963" 'Link to folder
     
    Set mFolder = mFileSystemObject.GetFolder(mPath)
    Set mFiles = mFolder.Files
     
    For Each mFile In mFiles
        mConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & mFile.Path
        mConnection.Open mConnectionString
        Set mRecordset = mConnection.OpenSchema(adSchemaTables)
            Do Until mRecordset.EOF
                If mRecordset!TABLE_TYPE = "SYSTEM TABLE" Then
                    If Len(Stroka) > 0 Then
                        Stroka = Stroka & ", " & Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1)
                    Else
                        Stroka = Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1)
                    End If
                End If
                mRecordset.MoveNext
            Loop
        mRecordset.Close
        mConnection.Close
    Next mFile
     
    Set mRecordset = Nothing
    Set mConnection = Nothing
    Set mFileSystemObject = Nothing

    Selection.Value = Stroka

End Sub
Не работает... Кто то может помочь?
Jungo must die!!! (C) Bill Gates.
jungo вне форума
Старый 22.10.2018, 17:42   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

как по очереди в папке открыть файлы, взять имя первого листа, закрыть файл - это довольно элементарная задача.
а вот как взять имя листа с закрытого файла - не знаю. видимо Вам самому нужно будет это решать(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 22.10.2018, 17:59   #8
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Шо, опять? http://www.programmersforum.ru/showthread.php?t=263619
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как извлечь имя файла, при копировании картинки скажем через интернет Downloads Общие вопросы Delphi 14 06.08.2013 23:56
Как извлечь данные из pcap-файла? Gangstarr C/C++ Сетевое программирование 2 22.05.2012 12:37
как извлечь информацию из файла PDF Sergius X C++ Builder 0 30.05.2011 14:17
Как извлечь имя скачиваемого файла Crazyman Работа с сетью в Delphi 0 01.07.2008 02:34