Копировать столбец из Excel в .txt
Копировать столбец из Excel в .txt
Доброго времени суток!
Подскажите пож-та! Необходимо из документа 123.xlsm
скопировать первый столбец в файл 123.txt находящийся в папке "room"!
Подскажите пож-та! Необходимо из документа 123.xlsm
скопировать первый столбец в файл 123.txt находящийся в папке "room"!
- HaRT
- Moderator
- Posts: 10863
- Joined: Tue 30 Aug, 2005 17:21
- Has thanked: 221 times
- Been thanked: 358 times
Во-первых, при чём тут ФАР?
Во-вторых, какие ещё шаги Вы уже предприняли для самостоятельного решения своей задачи? Только предельно чётко и конкретно, по пунктам и с деталями.
Тут не любят лодырей, которые не хотят самостоятельно делать лабораторки.
PS
Тему перенёс из “Macros & Scripts/Нужна помощь”.
Во-вторых, какие ещё шаги Вы уже предприняли для самостоятельного решения своей задачи? Только предельно чётко и конкретно, по пунктам и с деталями.
Тут не любят лодырей, которые не хотят самостоятельно делать лабораторки.
PS
Тему перенёс из “Macros & Scripts/Нужна помощь”.
Фар есть инструмент, а не нянька. © 2009 DrKnS
Re: Копировать столбец из Excel в .txt
Есть функция записи в текстовый файл из переменной:
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.CreateTextFile(filename, True)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function
Могу скопировать из одного столбца в другой:
Sub copy()
Sheets("Unique").Select
Columns("A:A").Select
Selection.copy
Columns("G:G").Select
ActiveSheet.Paste
End Sub
Совсе не силен в VBA... не могу это как то объединить, чтобы столбец скопировать в текстовый документ.
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.CreateTextFile(filename, True)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function
Могу скопировать из одного столбца в другой:
Sub copy()
Sheets("Unique").Select
Columns("A:A").Select
Selection.copy
Columns("G:G").Select
ActiveSheet.Paste
End Sub
Совсе не силен в VBA... не могу это как то объединить, чтобы столбец скопировать в текстовый документ.
Re: Копировать столбец из Excel в .txt
поправка: Необходимо не копировать, а дописывать.
Добавление в текстовый файл из переменной:
Function AddIntoTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.OpenTextFile(filename, 8, True): ts.Write txt: ts.Close
Set ts = Nothing: Set fso = Nothing
AddIntoTXTfile = Err = 0
End Function
Добавление в текстовый файл из переменной:
Function AddIntoTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.OpenTextFile(filename, 8, True): ts.Write txt: ts.Close
Set ts = Nothing: Set fso = Nothing
AddIntoTXTfile = Err = 0
End Function
Re: Копировать столбец из Excel в .txt
Так, на вопрос какие я шаги предпринимал, думаю я ответил.
Вопрос : "при чём тут ФАР?"
Ошибся.. написал не туда. Но вы же уже перенесли тему в нужный топик.
Вопрос : "при чём тут ФАР?"
Ошибся.. написал не туда. Но вы же уже перенесли тему в нужный топик.
Re: Копировать столбец из Excel в .txt
Так вопрос про VBA или VBScript?Nicola777 wrote:Совсе не силен в VBA...
Решение в лоб - перебор циклом пока ячейка "этого" стобца не пуста (или цикл до заранее заданной строки)
We are the Borg. You will be assimilated.
So Say We All!
So Say We All!
Re: Копировать столбец из Excel в .txt
то на чем макросы в EXCEL делают )
Sheets("Unique").Select
Columns("A:A").Select
Selection.copy
Вот , столбец скопирован!
его надо добавить в текст. док .
Sheets("Unique").Select
Columns("A:A").Select
Selection.copy
Вот , столбец скопирован!
его надо добавить в текст. док .
Re: Копировать столбец из Excel в .txt
Грубо так (от второй строки до тех пор, пока не встретится пустая ячейка):
или так (от второй строки до сотой):
а потом dest в файл рисуй - каждое значение в свой строке
We are the Borg. You will be assimilated.
So Say We All!
So Say We All!
- John Doe
- Бюрократ
- Posts: 13855
- Joined: Wed 27 Apr, 2005 20:42
- Has thanked: 73 times
- Been thanked: 428 times
- Contact:
Re: Копировать столбец из Excel в .txt
Автору темы конечно не поможет, но чтобы повернуть тему хоть как-то в русло фара.
Есть https://github.com/jjensen/lua-xls (от автора LuaPlus).
Сам пощупал бы, но к не получилось собрать (
Есть https://github.com/jjensen/lua-xls (от автора LuaPlus).
Сам пощупал бы, но к не получилось собрать (
Re: Копировать столбец из Excel в .txt
Lua? Внутри MS Office вместо VBA?John Doe wrote:Есть https://github.com/jjensen/lua-xls (от автора LuaPlus).
We are the Borg. You will be assimilated.
So Say We All!
So Say We All!
Re: Копировать столбец из Excel в .txt
Ну как бы было сказано так:John Doe wrote:Снаружи. Работа с самими файлами из Lua-скриптов/макросов
Nicola777 wrote:то на чем макросы в EXCEL делают )
We are the Borg. You will be assimilated.
So Say We All!
So Say We All!
- John Doe
- Бюрократ
- Posts: 13855
- Joined: Wed 27 Apr, 2005 20:42
- Has thanked: 73 times
- Been thanked: 428 times
- Contact:
Re: Копировать столбец из Excel в .txt
Что нужно топикстартеру я не знаю.
Может быть именно VB-макрос, а может всё-равно, лишь бы результат.
Скорее конечно первое, но я дополнил вторым для полноты картины.
Может быть именно VB-макрос, а может всё-равно, лишь бы результат.
Скорее конечно первое, но я дополнил вторым для полноты картины.