Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2010, 00:23   #1
maxillion
 
Регистрация: 12.05.2010
Сообщений: 6
По умолчанию ошибка макроса

при открытии текстового файла при помощи
Workbooks.OpenText
вот в этой строке макроса ошибка
If "%" & Workbooks("1 (" & x & ").txt").Worksheets("1 (" & x & ")").Cells(b, 1).Value = "%" Then
это получается потомучто excel при открытии текстового файла вместо строки -lyla-eos вставляет формулу =-lyla-eos как это избежать
maxillion вне форума Ответить с цитированием
Старый 15.05.2010, 00:42   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

проверьте, если первый символ = "-", добавте перед строкой "'" (символ на той же кнопке, что и " на латинской раскладке).
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 15.05.2010, 00:54   #3
maxillion
 
Регистрация: 12.05.2010
Сообщений: 6
По умолчанию

мне необходимо решить проблему без редактирования открываемого текстового файла
проше говоря если вот это вставить в блокнот -lyla-eos сохранить а потом открыть через эксэль будет #ИМЯ?
может здесь Workbooks.OpenText какой параметр добавить а?
maxillion вне форума Ответить с цитированием
Старый 15.05.2010, 01:09   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

напишите в ячейку
-lyla-eos
напишите
'-lyla-eos
почувствуйте разницу. предлагаю то же самое прежде чем положить данные в ячейку проверьте, если первый символ -, добавьте в начало ', не в текстовый файл, а при записи в Excel
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 15.05.2010, 01:16   #5
maxillion
 
Регистрация: 12.05.2010
Сообщений: 6
По умолчанию

я не кладу данные в ячейку это делается автоматически при помощи
Workbooks.OpenText Filename:="C:\5.txt"
maxillion вне форума Ответить с цитированием
Старый 15.05.2010, 01:36   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

ага - это я туда положил.
два варианта:
1.открываете файл для чтения, читаете по одной строке, анализируете содержимое (первый символ) и складываете последовательно в ячейки
2.После того, как данные уже в Excelе, заменяете = на '.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 15.05.2010, 02:13   #7
maxillion
 
Регистрация: 12.05.2010
Сообщений: 6
По умолчанию

разобрался все делается без замены = на ' очень просто при помощи
параметра FieldInfo у Workbooks.OpenText он может открывать как текст
и строка -lyla-eos не меняется
maxillion вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка макроса Runtime ERROR 1004 RML Microsoft Office Excel 3 20.05.2010 23:33
доработка макроса Kate-Rina Microsoft Office Excel 1 02.04.2010 05:33
Ошибка при выполнении макроса rlev Microsoft Office Excel 8 22.02.2010 12:41
Запуск макроса serafim09 Microsoft Office Excel 9 03.09.2009 16:55
Запуск макроса с параметрами из другого макроса Saladin Microsoft Office Excel 2 19.01.2009 09:43