Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Не корректно сохраняет .csv
 
Hugo, от души. Быстро и по делу. Спасибо огромное. Казанский, У меня 2013, и на второй машине 2010 не робило
Не корректно сохраняет .csv
 
Всем добрый день. Есть макрос на копирование данных в новую книгу и сохранение в .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 Сен 2018 08:16:53 (дополнение)
Макрос на разрешение редактирования
 
Дмитрий(The_Prist) Щербаков, это сложно
Макрос на разрешение редактирования
 
Казанский я из поиска понял, что из vba это не возможно
Макрос на разрешение редактирования
 
А если я на других машинах буду запускать? Возможно это сделать автоматом с помощью макроса
Макрос на разрешение редактирования
 
Не могу работать пока не нажмешь Разрешение на редактирование. Приложил Скрин в первом посте
Изменено: VB777 - 13 Сен 2018 09:35:38 (дополнение)
Макрос на разрешение редактирования
 
Всем привет. Я запускаю несколько книг. И из главной редактирую запущенные. Подскажите как сделать макрос чтобы у всех запущенных книг разрешилось редактирование?
Скрин
Изменено: VB777 - 13 Сен 2018 09:33:53 (дополнение)
Закрытие конкретной книги
 
Все верно. И после этого сохранения я открываю файл и ругается. Может я не правильно сохраняю?
Изменено: VB777 - 12 Сен 2018 15:04:47 (дополнение)
Закрытие конкретной книги
 
Ребята подскажите почему новый файл ругается на открытие. Не тот формат говорит. Где косяк с разрешением?
Код
wb.SaveAs Filename:=sFile & ".csv" 
Закрытие конкретной книги
 
Ребята огромное спасибо. Разные решения. Буду внедрять.
Закрытие конкретной книги
 
Всем привет! Вопрос, как закрыть конкретную, открытую книгу. Делаю так. Не получается
Код
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
 
Nordheim, Спасибо
Путь к ПАПКЕ где лежит файл Excel
 
Спасибо огромнео
а почему я не могу сделать так?
Код
sFolder = ThisWorkbook.Path + "\Load"
Изменено: VB777 - 12 Сен 2018 09:13:00 (дополнение)
Путь к ПАПКЕ где лежит файл Excel
 
Всем добрый день. Делаю удаление файлов из папки через Excel и встала задача автоматически определять путь к ПАПКЕ где лежит файл. Путь к файлу как определить я знаю
Код
ThisWorkbook.FullName

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

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