Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » VB777
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Не корректно сохраняет .csv
 
#
14.09.2018 08:53:01
Hugo, от души. Быстро и по делу. Спасибо огромное. Казанский, У меня 2013, и на второй машине 2010 не робило
 
Перейти    
Не корректно сохраняет .csv
 
#
14.09.2018 08:13:44
Всем добрый день. Есть макрос на копирование данных в новую книгу и сохранение в .csv. Но макрос сохраняет в 1 столбец через ;. Как сделать корректное сохранение.
А если ручками выделяешь, вставляешь и сохранить как CSV ( разделители - запятые ) и все ок
Код
Sub Сохранение()
Dim sDir, sFile, sName As Variant
Dim wb As Workbook

    sDir = ThisWorkbook.Path & Application.PathSeparator & "Save"
    sFile = sDir & Application.PathSeparator & Range("O4").Value
    sName = Range("O4").Value & ".csv"
    Columns("A:D").Select
    Selection.Copy
    
    Set wb = Workbooks.Add
    wb.ActiveSheet.Paste
    wb.SaveAs sFile, xlCSV
    wb.Close False
     
    Windows("Index.xlsm").Activate
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("N4").Select
    ActiveCell.FormulaR1C1 = "Сохранено"
    Range("N5").Select
End Sub
Изменено: VB777 - 14.09.2018 08:16:53 (дополнение)
 
Перейти    
Макрос на разрешение редактирования
 
#
13.09.2018 10:17:07
Дмитрий(The_Prist) Щербаков, это сложно
 
Перейти    
Макрос на разрешение редактирования
 
#
13.09.2018 09:48:50
Казанский я из поиска понял, что из vba это не возможно
 
Перейти    
Макрос на разрешение редактирования
 
#
13.09.2018 09:41:42
А если я на других машинах буду запускать? Возможно это сделать автоматом с помощью макроса
 
Перейти    
Макрос на разрешение редактирования
 
#
13.09.2018 09:35:02
Не могу работать пока не нажмешь Разрешение на редактирование. Приложил Скрин в первом посте
Изменено: VB777 - 13.09.2018 09:35:38 (дополнение)
 
Перейти    
Макрос на разрешение редактирования
 
#
13.09.2018 09:31:48
Всем привет. Я запускаю несколько книг. И из главной редактирую запущенные. Подскажите как сделать макрос чтобы у всех запущенных книг разрешилось редактирование?
Скрин
Изменено: VB777 - 13.09.2018 09:33:53 (дополнение)
 
Перейти    
Закрытие конкретной книги
 
#
12.09.2018 15:04:01
Все верно. И после этого сохранения я открываю файл и ругается. Может я не правильно сохраняю?
Изменено: VB777 - 12.09.2018 15:04:47 (дополнение)
 
Перейти    
Закрытие конкретной книги
 
#
12.09.2018 14:58:46
Ребята подскажите почему новый файл ругается на открытие. Не тот формат говорит. Где косяк с разрешением?
Код
wb.SaveAs Filename:=sFile & ".csv"
 
Перейти    
Закрытие конкретной книги
 
#
12.09.2018 14:45:20
Ребята огромное спасибо. Разные решения. Буду внедрять.
 
Перейти    
Закрытие конкретной книги
 
#
12.09.2018 14:22:22
Всем привет! Вопрос, как закрыть конкретную, открытую книгу. Делаю так. Не получается
Код
Dim sDir, sFile, sName As Variant
    sDir = ThisWorkbook.Path & Application.PathSeparator & "Save"
    sFile = sDir & Application.PathSeparator & Range("O4").Value
    sName = Range("O4").Value & ".csv"
    Columns("A:D").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:=sFile & ".csv"
    Windows(sName).Activate
    ThisWorkbook.Close False  '"Эта строка закрывает не sName, а файл с которого запускаем
    Windows("Index.xlsm").Activate
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("N4").Select
    ActiveCell.FormulaR1C1 = "Сохранено"
    Range("N5").Select
End Sub
 
Перейти    
Путь к ПАПКЕ где лежит файл Excel
 
#
12.09.2018 09:26:40
Nordheim, Спасибо
 
Перейти    
Путь к ПАПКЕ где лежит файл Excel
 
#
12.09.2018 09:12:49
Спасибо огромнео
а почему я не могу сделать так?
Код
sFolder = ThisWorkbook.Path + "\Load"
Изменено: VB777 - 12.09.2018 09:13:00 (дополнение)
 
Перейти    
Путь к ПАПКЕ где лежит файл Excel
 
#
12.09.2018 08:39:14
Всем добрый день. Делаю удаление файлов из папки через Excel и встала задача автоматически определять путь к ПАПКЕ где лежит файл. Путь к файлу как определить я знаю
Код
ThisWorkbook.FullName

Но данная строка мне выдает путь к файлу с названием файла. А как сделать без название файла. Дальше мне надо будет прописать так

Код
sFolder = ThisWorkbook.FullName + "\Load"  'Папка Load в которой я собираюсь удалить все файлы
 
Перейти    
Копирование данных из одной книги в другую
 
#
10.09.2018 13:42:13
Код
'Загрузка с Прайса
Workbooks("price.xls").Worksheets(1).Columns("A:L").Copy
Sheets("Price").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Sheets("Start").Select
Вот как сделал и все копирует
Изменено: VB777 - 10.09.2018 13:43:00 (дополнение)
 
Перейти    
Копирование данных из одной книги в другую
 
#
10.09.2018 12:37:13
Который сам сделал).
Как мне реализовать то, что я задумал
Изменено: VB777 - 10.09.2018 12:42:34 (дополнение)
 
Перейти    
Копирование данных из одной книги в другую
 
#
10.09.2018 11:28:14
По размеру не проходит.
https://yadi.sk/d/VQM-rhcFuN7b-w
В файл Index на лист Start копировать ячейки с книги eshop_40059.csv Диапазон Все колонки
В файл Index на лист Price копировать ячейки с книги price-McTrade.xls Диапазон Все колонки
 
Перейти    
Копирование данных из одной книги в другую
 
#
10.09.2018 11:16:49
Цитата
Hugo написал:
- где? Точнее в чём?
В Excel. Я сначала открыл exe'шником все нужные файлы, а теперь мне нужно перенести данные в основную.
 
Перейти    
Копирование данных из одной книги в другую
 
#
10.09.2018 11:10:01
Всем добрый день. Пытаюсь скопировать данные из одной книги в другую макросом, но не выходит. Книги все открыты
Пробовал разные методы, но не выходит
 
Перейти    
Проверка соединения с IP-адресом
 
#
11.07.2018 12:45:57
Спасибо всем!!! Разобрался
 
Перейти    
Проверка соединения с IP-адресом
 
#
11.07.2018 12:44:50
Получилось
 
Перейти    
Проверка соединения с IP-адресом
 
#
11.07.2018 12:35:00
Я все попробовал с поста не получатся
 
Перейти    
Проверка соединения с IP-адресом
 
#
11.07.2018 12:30:31
Как по другому проверить соединение есть или нет?
 
Перейти    
Проверка соединения с IP-адресом
 
#
11.07.2018 12:23:40
Есть какое нибудь решение моей проблемы?
 
Перейти    
Наклонный шрифт в коде VBA
 
#
11.07.2018 11:27:55
Да. Спасибо. Получилось
 
Перейти    
Наклонный шрифт в коде VBA
 
#
11.07.2018 10:51:31
Там выбрано NORMAL TEXT  
 
Перейти    
Наклонный шрифт в коде VBA
 
#
11.07.2018 10:33:48
Добрый день. Может кто знает как восстановить нормальный, вертикальный шрифт в коде vba. Не понятно как поменялся шрифт на наклонный и ладно бы только, но пропали все пробелы в коде. Скрин прикрепил
 
Перейти    
Сортировка по количеству повторений
 
#
06.07.2018 09:49:07
Спасибо. Получилось!
 
Перейти    
Сортировка по количеству повторений
 
#
06.07.2018 08:59:30
Добрый день. Помогите пожалуйста решить задачку.
Есть таблица в которую подгружаются данные количества повторений той или иной цифры. Как сделать чтобы у меня выстраивались цифры по убыванию во вторую таблицу на основании первой?
Пример: У цифры 1 повторений максимальное и это 9, то ее на первое место. У цифры 11 повторений 8, то ее на второе и т.д. Еще количества повторении может совпадать.
Изменено: VB777 - 06.07.2018 09:03:46 (дополнение)
 
Перейти    
Проверка соединения с IP-адресом
 
#
05.07.2018 13:53:51
Ругается на PING и все
 
Перейти    
Страницы: 1 2 3 4 5 6 7 След.
Наверх