| |
|
|
| | Помогите!!!
Тема такая есть папка в ней куча текстовых файлов
надо все эти файлы по очереди импортировать в таблицу
Заранее благодарен  | |
| |
| |
| |
|
|
| | все спасибо всем нашел как сделать
Sub nameFiles()
Dim nameFile As String
Dim mypath As String
mypath = "c:\1\*.txt"
nameFile = Dir(mypath, vbReadOnly)
i = 0
Do While nameFile <> ""
а вот сдесь пишем что надо
i = i + 1
Debug.Print nameFile, i
nameFile = Dir
Loop
End Sub | |
| |
| |
| |
|
|
| | тынц:
http://msa.polarcom.ru/st/d_1000347.htm | |
| |
| |
