Поиск
Автор: RAN. Sub Мяу()
Dim FSO As Object, TextStream As Object, txt$
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.OpenTextFile("D:\Test.txt", 1)
txt = TextStream.readall
txt = Replace(Replace(Split(txt, vbCrLf, 2)(1), ",", ";"), ".", ",")
TextStream.Close
FSO.DeleteFile ("D:\Test.txt")
Set TextStream = FSO.CreateTextFile("D:\Test.csv", True)
...
Изменен: 16.06.2017
Читать сообщение на форуме или сайте. ... ячеек в C:\MIDI\dadra_*.txt.
где * - всякий раз новое имя ... лист из C:\MIDI\dadra_*.txt
Желательно все реализовать с помощью ... кнопок: 1. Экспорт и 2. Импорт(см. файл)
Предполагается что лист ... ()
Open "C:\MIDI\dadra_i.txt" For Output As #1 ... и выполнить обратную операцию "Импорт" также с диалговым окном ... бы при импорте проверку на соответствие по первой строчке dadra_*.txt
Помогите ...
Изменен: 15.07.2013
Читать сообщение на форуме или сайте. ... , 5, 0), "MyMacroEXCHANGE2HugoMaxWay"
' импорт всей истории цены
Set ts ... 1) 'Подставьте свой путь к txt-файлу
arr = Split(ts.ReadAll ... a), UBound(a, 2)) = a
' импорт всей истории счёта
Set ts ... 1) 'Подставьте свой путь к txt-файлу
arr = Split(ts.ReadAll ... a), UBound(a, 2)) = a
' импорт текущего состояния счёта
Dim arrA ... 2), 11) = Application.Transpose(aA)
' импорт последних данных о цене
Set ... 1) 'Подставьте свой путь к txt-файлу
arr = Split(ts.ReadAll ...
Изменен: 23.09.2014
Читать сообщение на форуме или сайте. ... . День добрый. Делаю макрос для импорта выгрузки из 1с.
Записал макрорекордером ... процедуру импорта текстового файла. Не выходит у ... процедуру выбора файла и процедуру импорта. Где я ошибку допускаю?Option ... = Application.GetOpenFilename("Text files(*.txt),*.txt", 2, "Выбрать текстовые ...
Изменен: 21.11.2016
Читать сообщение на форуме или сайте. ... .10.2010 05:20}{thema=Импорт данных}{post}Из файла rtf ... то) Подредактируйте макрос, чтобы при импорте квадрата этого не было. Заранее ... в приложении.{/post}{/quote}
txt = wdDoc.Content
txt = Replace(wdDoc.Range.Text ... , Chr(12), "")
txt = Replace(wdDoc.Range.Text, Chr ... (10), "") 'вставка строки
txt = Replace(wdDoc.Range.Text, Chr ...
Изменен: 18.10.2010
Читать сообщение на форуме или сайте.Автор: all L. импортирую txt файлы в excel (их много) ... ли каким-либо образом перед импортом находить и удалять этот перенос ... неприятно, что в рез-те импорта приходится потом руками удалять эти ... открытия файла ниже. Пример (кусочек) txt файла с этим переходом на ... :="C:\Users\Í\Desktop\test.txt", Origin _
:=866, StartRow ...
Изменен: 26.10.2013
Читать сообщение на форуме или сайте.Автор: Nimbur. Добрый день. При импорте данных из txt файла, возникла проблема их ... .
Есть данные по торгам. В txt разделителями между каждыми значениями выступает ... имеется большой массив данных.
В txt файле имеется исходное значение данных ...
Изменен: 13.04.2013
Читать сообщение на форуме или сайте. ... день!
Сделал программку для импорта данных из txt в excel, но почему ... до 4:", _
"Импорт данных")
Select Case varWeek ... недели!", vbCritical, _
"Импорт данных"
End Select
End ... \emaltsev\Рабочий стол\VBA\Заказы3.txt", _
Destination:=Range(" ...
Изменен: 28.03.2012
Читать сообщение на форуме или сайте. ... 10:32}{thema=Re: Импорт описания из txt-файла с DOS-кодировкой ... .2009 09:53}{thema=Импорт описания из txt-файла с DOS-кодировкой ... у Вас такое с 777.TXT из моего предыдущего архива? - Не ... может быть :-)
Приложите свой TXT файл, чтобы не гадать.
Изменен: 21.09.2009
Читать сообщение на форуме или сайте. ... )).
При импорте данных в Excel из внешнего текстового файла (.txt или .csv ... – все бесполезно. Перепробовал все настройки импорта текста, ставил эксперименты с форматом ... , но тоже «не айс»). При импорте данных из текстового файла в ... же, когда речь идет об импорте и обработке порядка 70-100 ... безболезненного преобразования значения даты при импорте – без баловства с региональными настройками ...
Изменен: 05.09.2013
Читать сообщение на форуме или сайте.Автор: hrr. "Sub Import()
On Error Resume Next
Set oFSO = CreateObject("Scripting.FileSystemObject" ;)
folder = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "" ;)
name_T = Dir(folder & "*.txt" ;)
While name_T ""
Dim n, RW As Long
Dim s, rez, Txt
Dim namme_F As String
Txt = oFSO.OpenTextFile(folder & name_T, 1, False).readall
s = Split(Txt, vbCrLf, -1)
namme_F = Replace(name_T, ".txt", "" ...
Изменен: 26.11.2013
Читать сообщение на форуме или сайте.Автор: Hugo. Скрипт vbs - сохранить текст как *.vbs в папку с примером, запустить даблкликом - получите рядом primer2.txt
Если будут проблемы с открытием файла (не влезет в память) - можно переписать на чтение построчно.
Set fso = CreateObject("Scripting.FileSystemObject")
MyPath = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName)) - (Len(WScript.ScriptName)))
Set ts = fso.OpenTextFile(MyPath & "primer.txt", 1)
arrstr = Split(ts.ReadAll, vbCrLf)
ts.Close ...
Изменен: 28.07.2014
Читать сообщение на форуме или сайте.Автор: R Dmitry. Public Function ADO_R_Dmitry(ByVal StrSql$, ByVal FilePath$, ByVal OutputRange As Range, _
ByVal FieldsName As Boolean, ByVal OutputFieldsName As Boolean, Optional TypeBase As Long = 0, Optional ColumnDelimeter As String = ",")
'==============================================================================
'*Описание функции : Возвращает набор записей Recordset с первой ячейки адреса,
'* указанного диапазона.
'*strSql - Конструкция SQL запроса.
'* FilePath - ...
Изменен: 22.06.2013
Читать сообщение на форуме или сайте.Автор: Opti1. Здравствуйте,
Собственно вопрос, как импортировать данные из обычного txt файла с помощью VBA построчно в ексель ? Зачем нужно построчно ?
Можно не построчно, можно по 100 тыщ строк или по миллиону, просто txt файл содержит не мене 5 млн строк, и открыть его в екселе целиков не возможно, а вот если бы частями бы открывать, макросом часть обороботать и пуотом опять часть - было бы здорово.
Может быть, кто нибудь может подсказать - это вообще возможно ? Все мозги уже сломал, ...
Изменен: 24.05.2016
Читать сообщение на форуме или сайте. ... }{thema=Re: Использование массива при импорте файла}{post}{quote}{login=Igorekmsk ... :58}{thema=Использование массива при импорте файла}{post}Здравстуйте, расскажите пожалуйста ... параметр TextFileColumnDataTypes метода Add при импорте таблицы из текстового файла.
Строка ... (Connection:= "TEXT;C:\Файл.txt",Destination:=Range("A1 ...
Изменен: 07.06.2011
Читать сообщение на форуме или сайте.Автор: Ed_Vard. Всем доброго времени суток! Прошу не пинать сразу :( возник вопрос. Суть задачи - есть пустой лист exell - и некоторое количество txt файлов с одинаковой структурой - но разным содержанием - нужно импортировать третью строку каждого файла txt в список exell с разбивкой по столбцам. Был записан макрос - но не могу его привести в удобный вид! нужно чтобы импортировались файлы с любым именем (а то для простоты приходиться переименовывать в 1.txt,2.txt и т.д.) txt и любое их ...
Изменен: 15.11.2010
Читать сообщение на форуме или сайте.Автор: Alexander88. Добрый вечер
Посмотрите пример построчного чтения из txt файла
Sub Импорт()
Dim s As String, i As Long
FN = ThisWorkbook.Path & "\my.txt"
FF = FreeFile
Open FN For Input As #FF
Do While Not EOF(FF)
Line Input #FF, s 'запись строки в переменную s
i = i + 1
Cells(i, 1) = s
Loop
Close #FF
End Sub
Изменен: 09.02.2015
Читать сообщение на форуме или сайте.Автор: anvg. Доброе время суток
Если знакомы с ADO и SQL, то всё достаточно просто как выборка для Combobox так и заполнение ListBox. Если, конечно, у вас не 64бит версия Excel. Пример для работы с текстовым файлом через ADO.
Для заливки данных Combox
rsCombo.Open "Select Distinct F1 From [Док.txt], cn
ComboBox.Column = rsCombo.GetRows
rsCombo.Close
Для заливки ListBox
rsList.Open "Select F2 From [Док.txt] Where F1='" & ComboBox.Value & "'", cn
ListBox. ...
Изменен: 08.06.2014
Читать сообщение на форуме или сайте.