| | Worksheet с VBA Code | | (8 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) описание " >Worksheet class= " | | | | | MSEx2007-Summary.xls (44 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) filename» class= > |
| | Worksheet с VBA Code | | (8 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) >Worksheet " описания " class= | > | | |
class=
|
|
Ответ : Потребности Кодего VBA преобразовали от Мс Ехчел 2003 до 2007
|
я двигал Кодего к модулю, который будет более обычный местом, котор нужно найти его.
и после этого добавлено тип mimics больше всего Application.FileSearch.
будет главным образом работой других но я исправил она для того чтобы искать subfolders более лучше и impement больше функций первоначально fileseach.
Я uploaded откорректированный workbook но в противном случае….
>Кодий<---------> откорректированное %ur…. место в модуль и уничтожает старую от Workbook1
Sub copyFromFiles ()
Тусклое wksCopyTo как рабочий лист
Тусклое wkbCopyFrom как Workbook
Тусклое copyToHere как ряд
Установите wksCopyTo = ThisWorkbook.Sheets (1)
wksCopyTo.Cells.Clear
Установите copyToHere = wksCopyTo.Range («a1»)
n = 0
На резюме ошибки затем
Тусклое AppFileSearch как новое FileSearch
AppFileSearch.LookIn = ThisWorkbook.path
AppFileSearch.fileType = «xls?» «<> AppFileSearch.fileName = «SummarytestData»»<> AppFileSearch.SearchSubFolders = True
AppFileSearch.Execute
Для I = 1 к AppFileSearch.Count
Если AppFileSearch.FoundFiles (I) = ThisWorkbook.FullName после этого
«прыгните это одно»
'Переход NotMe
Еще
Установите wkbCopyFrom = Workbooks.Open (AppFileSearch.FoundFiles (I))
n = n + 1
С wkbCopyFrom.Sheets («Sheet1»)
copyToHere.Offset (0, 1) =. Ряд («A1») .value
copyToHere.Offset (0, 2) =. Ряд («B1») .value
copyToHere.Offset (0, 3) =. Ряд («C1») .value
copyToHere.Offset (0, 4) =. Ряд («A4») .value
copyToHere.Offset (0, 5) =. Ряд («B4») .value
copyToHere.Offset (0, 6) =. Ряд («C4») .value
Конец с
Установите copyToHere = copyToHere.Offset (1)
wkbCopyFrom.Close ложное
Закончитесь если
Затем iий
Подводная лодка конца
>%place<---------------------> это Кодий в новое ClassModule и называют его FileSearch
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
|
'' PrismP @ http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6
'http://social.msdn.microsoft.com/profile/prizmp/?type=forum&referrer=http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6
Тусклое pLookIn как шнур
Тусклые pSearchSubFolders как булевско
Тусклое pFileName как шнур
Тусклое pFileType как шнур
Общественные pFoundFiles как новое собрание
Приватное Sub Class_Initialize ()
pLookIn = «.»
pFileType = «*»
pFileName = «*»
pSearchSubFolders = ложно
Подводная лодка конца
Общественная функция NewSearch ()
Class_Initialize
Установите pFoundFiles = новое собрание
Закончите функцию
Общественное имущество получает отсчет () как шнур
Отсчет = pFoundFiles.Count
Свойство конца
Общественное имущество получает FoundFiles (xx) как шнур
FoundFiles = pFoundFiles (xx)
Свойство конца
Общественное имущество получает LookIn () как шнур
LookIn = pLookIn
Свойство конца
Общественное имущество препятствовало LookIn (значение как шнур)
pLookIn = значение
Свойство конца
Общественное имущество получает SearchSubFolders () как булевско
SearchSubFolders = pSearchSubFolders
Свойство конца
Общественное имущество препятствовало SearchSubFolders (значение как булевско)
pSearchSubFolders = значение
Свойство конца
Общественное имущество получает fileName () как шнур
fileName = pFileName
Свойство конца
Общественное имущество препятствовало fileName (значение как шнур)
pFileName = значение
Свойство конца
Общественное имущество получает fileType () как шнур
fileType = pFileType
Свойство конца
Общественное имущество препятствовало fileType (значение как шнур)
pFileType = значение
Свойство конца
Общественная функция исполняет () как длиной
Затемните I как длиной
Затемните sLookIn как шнур
Затемните sDirName как шнур
Затемните sCurDir как шнур
Затемните sFileName как шнур
'Тусклый ff как FilesFound
iий = 1
'Установите ff = новое FileSearchFound
sLookIn = pLookIn
RecurseFolder (sLookIn)
Исполните = pFoundFiles.Count
Закончите функцию
Sub RecurseFolder (sFolderStart)
sFileName = Dir (sFolderStart & «\» & pFileName & «.» & pFileType, vbNormal)
Не сделать до Len (sFileName) = 0
pFoundFiles.Add (sFolderStart & «\» & sFileName)
sFileName = Dir
Петля
Если pSearchSubFolders после этого
sDirName = Dir (sFolderStart & «\», vbDirectory)
Тусклое FoundDirectories как новое собрание, xxDir как вариант
Не сделать до Len (sDirName) = 0
sCurDir = sFolderStart & «\» & sDirName
Если GetAttr (sCurDir) = vbDirectory и sDirName <> «.», то И sDirName <> «.» После этого
sCurDir FoundDirectories.Add
Закончитесь если
sDirName = Dir
Петля
Для каждого xxDir в FoundDirectories
RecurseFolder (xxDir)
Следующее xxDir
Закончитесь если
Закончите подводную лодку
Общественная ясность функции () как длиной
NewSearch
Функция конца
|
|
|
|
|
|
| |
|
