|
Экспорт выделенных данных в txt фаил
|
|
|
Disease_kun |
Дата: Среда, 27.09.2017, 10:21 |
Сообщение № 1 |
|
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
Написал макрос, но в фаил ничего не записывается. [vba]Код Sub MacroExp()
Selection.Copy Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Add ActiveSheet.Paste
ChDir "C:\Users\" ActiveWorkbook.SaveAs Filename:="C:\Users\Testqeq.txt", _ FileFormat:=xlText, CreateBackup:=False, Local:=True ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
[/vba]
В чем может быть проблема? Помогите, пожалуйста.
Написал макрос, но в фаил ничего не записывается. [vba]Код Sub MacroExp()
Selection.Copy Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Add ActiveSheet.Paste
ChDir "C:\Users\" ActiveWorkbook.SaveAs Filename:="C:\Users\Testqeq.txt", _ FileFormat:=xlText, CreateBackup:=False, Local:=True ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
[/vba]
В чем может быть проблема? Помогите, пожалуйста.Disease_kun
|
| |
| Ответить
|
|
sboy |
Дата: Среда, 27.09.2017, 10:30 |
Сообщение № 2 |
|
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
 Excel 2010 | |
Добрый день. Видимо в [vba][/vba] Выделяете данные перед запуском макроса?
Добрый день. Видимо в [vba][/vba] Выделяете данные перед запуском макроса?sboy
Яндекс: 410016850021169
|
| |
| Ответить
|
|
Disease_kun |
Дата: Среда, 27.09.2017, 10:33 |
Сообщение № 3 |
|
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
Выделяете данные перед запуском макроса? Конечно, причем, если убрать эту строку, то все работает, но все мне не нужно, нужен определенный отрезок без разрыва с А1.
Выделяете данные перед запуском макроса? Конечно, причем, если убрать эту строку, то все работает, но все мне не нужно, нужен определенный отрезок без разрыва с А1.Disease_kun
|
| |
| Ответить
|
|
iMrTidy |
Дата: Среда, 27.09.2017, 10:34 |
Сообщение № 4 |
|
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация:
14
±
Замечаний:
0% ±
 NO | |
Disease_kun, возьмите за привычку явно задавать книги, листы и диапазоны явно.
Disease_kun, возьмите за привычку явно задавать книги, листы и диапазоны явно.iMrTidy
Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
|
| |
| Ответить
|
|
Disease_kun |
Дата: Среда, 27.09.2017, 10:41 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
возьмите за привычку явно задавать книги, листы и диапазоны явно. Добро.
возьмите за привычку явно задавать книги, листы и диапазоны явно. Добро.Disease_kun
|
| |
| Ответить
|
|
Disease_kun |
Дата: Среда, 27.09.2017, 10:48 |
Сообщение № 6 |
|
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
Случайно указал некорректный путь, но проблема не в этом.
Случайно указал некорректный путь, но проблема не в этом.Disease_kun
|
| |
| Ответить
|
|
iMrTidy |
Дата: Среда, 27.09.2017, 11:10 |
Сообщение № 7 |
|
Группа: Пользователи
Ранг: Участник
Сообщений: 85
Репутация:
14
±
Замечаний:
0% ±
 NO | |
Disease_kun, не понял, Вам не подошло мое решение? Во всяком случае, у меня оно прекрасно работает на вашем файле.
Disease_kun, не понял, Вам не подошло мое решение? Во всяком случае, у меня оно прекрасно работает на вашем файле.iMrTidy
Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.
|
| |
| Ответить
|
|
sboy |
Дата: Среда, 27.09.2017, 11:21 |
Сообщение № 8 |
|
|
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
 Excel 2010 | |
Проблема в том ( по крайней мере в приложенном файле), что код засунули в модуль Эта книга. А ему там не место) вот и не работает.
Проблема в том ( по крайней мере в приложенном файле), что код засунули в модуль Эта книга. А ему там не место) вот и не работает.sboy
Яндекс: 410016850021169
|
| |
| Ответить
|
|
Disease_kun |
Дата: Среда, 27.09.2017, 11:22 |
Сообщение № 9 |
|
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
iMrTidy, Все работает, спасибо.
|
| |
| Ответить
|