Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/открыть файл с расширением *.csv / workbooks.open - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » открыть файл с расширением *.csv / workbooks.open (Макросы Sub)
открыть файл с расширением *.csv / workbooks.open
Lloyd Дата: Среда, 31.07.2013, 12:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Добрый день,
подскажите, пжлст, как правильно указать/написать, чтоб открыть файл с расширением *.csv
когда указываю workbooks.open "полный_путь\*.csv" открывает не красиво.

Заранее благодарю
 
Ответить
СообщениеДобрый день,
подскажите, пжлст, как правильно указать/написать, чтоб открыть файл с расширением *.csv
когда указываю workbooks.open "полный_путь\*.csv" открывает не красиво.

Заранее благодарю
Автор - Lloyd
Дата добавления - 31.07.2013 в 12:37
Матрёна Дата: Среда, 31.07.2013, 13:11 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

edit


Сообщение отредактировал Матрёна - Среда, 31.07.2013, 13:12
 
Ответить
Сообщениеedit
Автор - Матрёна
Дата добавления - 31.07.2013 в 13:11
SkyPro Дата: Среда, 31.07.2013, 15:19 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[offtop]
Цитата (Lloyd, 31.07.2013 в 12:37, в сообщении №1)
открывает не красиво

А вы шрифт поменяйте, может красивее откроет :)

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 31.07.2013, 15:20
 
Ответить
Сообщение[offtop]
Цитата (Lloyd, 31.07.2013 в 12:37, в сообщении №1)
открывает не красиво

А вы шрифт поменяйте, может красивее откроет :)
Автор - SkyPro
Дата добавления - 31.07.2013 в 15:19
KuklP Дата: Среда, 31.07.2013, 16:32 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Lloyd, ну неужто так тяжело Правила прочесть, пример выложить? Читайте справку по GetOpenFilename Method и OpenText Method

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеLloyd, ну неужто так тяжело Правила прочесть, пример выложить? Читайте справку по GetOpenFilename Method и OpenText Method
Автор - KuklP
Дата добавления - 31.07.2013 в 16:32
Lloyd Дата: Среда, 31.07.2013, 16:48 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Модерам, тему в топку
всем спс, решение нашел, взял у соседей

[vba]
Код
Sub test7()
Dim wb As Workbook
Set wb = GetObject(CSVfilename)
wb.Windows(1).Visible = True
End Sub
[/vba]
[vba]
Код
Sub test1()
Const CSVfilename = "C:\test.csv"
Workbooks.Open CSVfilename, local:=True
End Sub
[/vba]
ЗЫ - Касательно VBA - очень зеленый, но пытаюсь учится


Сообщение отредактировал Lloyd - Среда, 31.07.2013, 17:16
 
Ответить
СообщениеМодерам, тему в топку
всем спс, решение нашел, взял у соседей

[vba]
Код
Sub test7()
Dim wb As Workbook
Set wb = GetObject(CSVfilename)
wb.Windows(1).Visible = True
End Sub
[/vba]
[vba]
Код
Sub test1()
Const CSVfilename = "C:\test.csv"
Workbooks.Open CSVfilename, local:=True
End Sub
[/vba]
ЗЫ - Касательно VBA - очень зеленый, но пытаюсь учится
Автор - Lloyd
Дата добавления - 31.07.2013 в 16:48
KuklP Дата: Среда, 31.07.2013, 16:50 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата (Lloyd, 31.07.2013 в 16:48, в сообщении №5)
решение нашел
И чего не выложить? Вдруг другим подойдет?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата (Lloyd, 31.07.2013 в 16:48, в сообщении №5)
решение нашел
И чего не выложить? Вдруг другим подойдет?
Автор - KuklP
Дата добавления - 31.07.2013 в 16:50
Hugo Дата: Среда, 31.07.2013, 18:20 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Это "некрасиво" могли пояснить подробнее. Тогда может сразу local:=True и подсказали.
А вообще так тоже будет "некрасиво" с ведущими нулями - надёжнее через импорт внешних данных -> из текста делать, с указанием форматов и разделителей.
Или читать файл кодом и парсить - это самое надёжное (как код напишете - так и будет).

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЭто "некрасиво" могли пояснить подробнее. Тогда может сразу local:=True и подсказали.
А вообще так тоже будет "некрасиво" с ведущими нулями - надёжнее через импорт внешних данных -> из текста делать, с указанием форматов и разделителей.
Или читать файл кодом и парсить - это самое надёжное (как код напишете - так и будет).
Автор - Hugo
Дата добавления - 31.07.2013 в 18:20
Serge_007 Дата: Четверг, 01.08.2013, 10:04 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (KuklP, 31.07.2013 в 16:50, в сообщении №6)
чего не выложить?
Я выложу, раз ТС ушел по-английски:
http://www.planetaexcel.ru/forum....D=39741

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (KuklP, 31.07.2013 в 16:50, в сообщении №6)
чего не выложить?
Я выложу, раз ТС ушел по-английски:
http://www.planetaexcel.ru/forum....D=39741
Автор - Serge_007
Дата добавления - 01.08.2013 в 10:04
KuklP Дата: Четверг, 01.08.2013, 10:55 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Серег, он потом отредактировал Сообщение № 5 :)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеСерег, он потом отредактировал Сообщение № 5 :)
Автор - KuklP
Дата добавления - 01.08.2013 в 10:55
Serge_007 Дата: Четверг, 01.08.2013, 11:05 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Ну и что? Ссылки на источник там же нет ;)
Цитата (Lloyd, 31.07.2013 в 16:48, в сообщении №5)
...взял у соседей...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНу и что? Ссылки на источник там же нет ;)
Цитата (Lloyd, 31.07.2013 в 16:48, в сообщении №5)
...взял у соседей...
Автор - Serge_007
Дата добавления - 01.08.2013 в 11:05
Vostok Дата: Четверг, 09.10.2014, 12:23 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
У меня работает только в таком исполнении:

[vba]
Код
Sub test1()   
Workbooks.Open CSVfilename
End Sub
[/vba]

Но при этом очевидно создаётся новая книга. А можно всю эту красоту загружать на лист уже открытой книги?
[moder]Тема называется"Открыть файл ...". При чем тут лист открытой книги? Создавайте свою тему.
И Правила форума наконец прочитайте уже.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"
 
Ответить
СообщениеУ меня работает только в таком исполнении:

[vba]
Код
Sub test1()   
Workbooks.Open CSVfilename
End Sub
[/vba]

Но при этом очевидно создаётся новая книга. А можно всю эту красоту загружать на лист уже открытой книги?
[moder]Тема называется"Открыть файл ...". При чем тут лист открытой книги? Создавайте свою тему.
И Правила форума наконец прочитайте уже.
Автор - Vostok
Дата добавления - 09.10.2014 в 12:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » открыть файл с расширением *.csv / workbooks.open (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!