Я работаю над проектом, в котором набор данных хранится в тысячах книг Excel (в настоящее время ~ 14000) в папке на сервере Sharepoint, каждый из которых регулярно изменяется, чтобы отражать изменения в подмножестве данных в этой книге. Я знаю, что это не очень хороший способ сохранить и обновить эти данные, но это так, как есть.Есть ли более быстрый способ сбора данных из книг, чем повторение Workbooks.Open()?
Мне нужно выполнить различные запросы, связанные с извлечением содержимого одного или нескольких полей из всех книг в папке. Я делал это путем перебора множества книг следующим образом:
Function getData() As Workbook
Dim resultBk As Workbook
Dim fldr As Folder
Dim fso As New FileSystemObject
Dim fileObj As File
Dim filePath As String
Dim queryBk As Workbook
'create a workbook for storing the query results
Set resultBk = Workbooks.Add(resultBkTemplatePath)
'get the folder with all the workbooks to be queried
Set fldr = fso.GetFolder(sharepointFolderPath)
For Each fileObj In fldr.Files
'try opening each of the workbooks
Set queryBk = Workbooks.Open(fileObj.Path, ReadOnly:=True)
'get data from queryBk and add it to resultBk, or add a row with an error message if queryBk failed to open
addBkDataToResults resultBk, queryBk
queryBk.Close False
Set queryBk = Nothing
Next
getData = resultBk
End Function
Этот процесс открытия и закрытия так много книг по соединению Sharepoint очень медленно; для выполнения полного запроса обычно требуется 12-14 часов. Есть ли более быстрый способ читать данные из книги Excel, которые не нужно открывать/закрывать? Или есть способ, которым я могу справиться с процессом open/close, чтобы сделать это быстрее?
Ха-ха. Хах. Повторите за мной: «SharePoint - это * не * база данных». В более серьезной заметке это, скорее всего, можно будет сделать быстрее, используя подход, который не полагается на COM +/OLE, например, стороннюю библиотеку, которая может читать указанные файлы независимо от Office. – 2013-02-12 20:29:18
@pst: и наверняка это все виновата в сигиле, верно? не очень конструктивный сегодня. –
@PeterAlbert Я никогда не говорил, что это так. И я предложил путь для подражания. – 2013-02-12 20:31:13