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

Страницы: 1 2 След.
открыть макросом xml файл в блокноте
 
Александр П., Громаднейшее спасибо!
открыть макросом xml файл в блокноте
 
прошу прошения что не уточнил следующее
xml файл необходимо сохранить в кодировке UTF-8 со спецификацией и это достаточно проблематично тем более для человека не особо понимающего макрос
поэтому пользуюсь в ручную - копи массив - открыть xml в блокноте - удалить все - вставить массив - сохранить и закрыть

вот если решение Дмитрий(The_Prist) Щербаков, может создавать xml файл в UTF-8 со спецификацией, я бал бы счастлив, как и многие другие страждущие
открыть макросом xml файл в блокноте
 
доброго времени суток уважаемые форумчане
подскажите непутёвому возможность реализовать следующее:
- с помощью макроса открыть xml файл (name.xml) в блокноте
- в блокноте выделить все и удалить
- вставить ячейки A1:A30 в блокнот
- сохранить и закрыть файл
заранее благодарю
Макрос сохранения XML файла без диалогового окна
 
Андрей Лящук, благодарю работает
Макрос сохранения XML файла без диалогового окна
 
доброго времени суток
есть excel файл из которого генерируется xml файл с помощью макроса, происходит это по нажатию кнопки с последующим предложением куда сохранить.
так как xml всегда имеет одно и тоже название и место хранения, как можно подправить макрос (ниже) чтобы xml файл перезаписывал старый без окна сохранения и сообщения о существовании такого файла
сам макрос:
Код
Private Sub CreateXML_Click()
    On Error GoTo EH_CreateXML_Click
    
 Dim name As String
    name = "WORK " & Worksheets("table").Range("Comp").Value & ".xml"
    
 
    fileToSave = Application.GetSaveAsFilename(name, "Dokumenty XML (*.xml), *.xml")
      
      
    If fileToSave <> False Then
        Dim xml As String
        xml = GenXML()
       
        Dim fso, MyFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set MyFile = fso.CreateTextFile(fileToSave, True, True)

        MyFile.Write xml
        MyFile.Close
    Else
        MsgBox "Not chosen", vbInformation
    End If
    Exit Sub
    
EH_CreateXML_Click:
    MsgBox Err.Description, vbCritical, "Error in " & "CreateXML_Click()"
End Sub

заранее благодарю

Пользовательская сортировка по первому слову в ячейке (макросом)
 
пригодится)
Пользовательская сортировка по первому слову в ячейке (макросом)
 
Владимир,
Благодарю, буду пробовать на оригинале
хорошего вечера
Пользовательская сортировка по первому слову в ячейке (макросом)
 
Доброго времени суток,
помогите с макросом
имеются таблицы которые надо отсортировать в необходимом порядке
порядок сортировки определяет первое слово в ячейке
заранее благодарю
абстрактный пример есть/надо прилагается
Копирование / перенос значений подгрупп (группировок)
 
В продолжении темы
как в строке макроса выше
Код
arr = Array("подгруппа товаров БББ", "подгруппа товаров ГГГ")
имена ("подгруппа товаров БББ", "подгруппа товаров ГГГ") задать переменными
например
х1 = А1; х2 = А2; х3 = А3; ... ; х10 = А10 (где в ячейках А1 - А10 названия подгрупп)
ну и на выходе должно получиться что то вроде
Код
arr = Array(x1, x2, x3, ..., x10)
Копирование / перенос значений подгрупп (группировок)
 
Kuzmich,
Благодарю
Копирование / перенос значений подгрупп (группировок)
 
Kuzmich,
доброго времени суток
прошу прощения за назойливость, но возникла проблема, в случае если в подгруппе всего одно наименование, подхватываются имя подгруппы
в примере - подгруппа товаров ДДД
Копирование / перенос значений подгрупп (группировок)
 
Kuzmich,
Благодарю!!! хорошего дня!
Копирование / перенос значений подгрупп (группировок)
 
Kuzmich,
Прекрасно!!! просто нет слов!!! большое спасибо!!!
не будет ли слишком нагло с моей стороны попросить добавить код выборки данных с конкретного листа, а не с открытого, пожалуйста)
заранее благодарю
Копирование / перенос значений подгрупп (группировок)
 
Дмитрий Тарковский,
благодарю за Ваш вариант
немного не то, но есть над чем подумать
идея с жирным шрифтом понравилась буду тестировать с исходником
Копирование / перенос значений подгрупп (группировок)
 
Цитата
Kuzmich написал:
А, если будут переноситься наименования товаров подгрупп товаров: БББ, БББ, ГГГ ?
прошу прощения был не внимателен
БББ, БББ, ГГГ - это вообще в идеале
Копирование / перенос значений подгрупп (группировок)
 
Kuzmich,
думаю можно попробовать, потом дописать - удалить что не нужно
Копирование / перенос значений подгрупп (группировок)
 
Владимир,
где то так
Копирование / перенос значений подгрупп (группировок)
 
Владимир,
в любом случае благодарю за участие
... а если макросом копировать массив/диапазон (подгруппа товаров ААА)+1:(группа товаров 2)-1 на "лист1" далее копировать (подгруппа товаров ВВВ)+1:(группа товаров 3)-2 на первую пустую ячейку "лист1" А:А .... ну итак далее и на следующий лист
как то так, кто б теперь это в коде изобразил )))
ведь теоретически можно один раз посидеть и забить в ручную диапазоны от и до для каждой подгруппы, названия групп и подгрупп неизменно. правда может возникнуть конфликт из-за одинаковых названий подгрупп.  
Изменено: assedo - 26 июл 2017 15:13:41
Копирование / перенос значений подгрупп (группировок)
 
Владимир,
в том то и дело, что нет
теоретически может подойти вариант из темы Копирование группы товаров на новый лист с помощью макроса
но к сожалению не совсем понимаю макросы чтобы применить ее к своему варианту
Копирование / перенос значений подгрупп (группировок)
 
Владимир,
если Вы имеете введу индикация подгрупп цветом, то это издержки примера, для наглядности
подгруппы из которых необходимо переносить наименования могут быть подряд а могут быть в разных концах списка и не обязательно через одну (так пример получился)
Изменено: assedo - 26 июл 2017 14:13:44
Копирование / перенос значений подгрупп (группировок)
 
Доброго времени суток

есть постоянно обновляющийся файл (пример прилагается)
необходимо переносить/копировать наименования (для наглядности выделены цветом) из конкретных подгрупп на необходимый лист
в макросах не силен, формулами не получается, сводными таблицами громоздко и можно упустить новые названия, в возможности реализации задумки начинаю сомневаться

заранее благодарю за помощь
с уважением
Выполнить макрос на всех листах
 
Sanja,
Благодарю, хорошего дня.
Выполнить макрос на всех листах
 
Доброго времени суток
в продолжении темы "выполнение макроса на всех листах"
имею вот такой макрос (удаление строк со значением "0"):
Код
Sub M55_DelRows2()
    Dim x As Range, y As Range, fst As String
    Set x = [B:B].Find(0, , xlValues, xlWhole)
    If Not x Is Nothing Then
        fst = x.Address
        Do
            If y Is Nothing Then Set y = x Else Set y = Union(y, x)
            Set x = [B:B].FindNext(x)
        Loop While fst <> x.Address
        y.EntireRow.Delete
    End If
End Sub

он выполняется только на первом листе
что необходимо дописать/исправить что бы выполнял на всех листах или на выбранных листах

заранее благодарю

Изменено: assedo - 21 июл 2017 16:39:31
создать userform для ввода курса валют + запуск макроса
 
VSerg,
благодарю, буду пробовать
создать userform для ввода курса валют + запуск макроса
 
Ivan.kh,
так то оно так, но тут бы excel освоить больше чем пользователь, а с 1с играться стремно и спецов таких чтоб базы 2х предприятий не грохнули тоже надо найти еще.
а файлики из 1с вытягиваются как xls и не берутся непосредственно из программы
создать userform для ввода курса валют + запуск макроса
 
VSerg,
весь смысл в следующем:
есть два файла создаваемые из разных 1с
есть рабочая книга берущая инфу из этих файлов
в книге формируется лист с необходимым отчетом
лист с отчетом сохраняется как отдельный файл с удалением строк равных 0

форма открывается при открытии рабочей книги
открытие и закрытие двух файлов на 3с необходимы для обновления книги (не знаю почему это не происходит в закрытом состоянии может из-за расширения файлов и книги)

еще раз благодарю за Вашу помощь
Изменено: assedo - 23 май 2017 10:56:26
создать userform для ввода курса валют + запуск макроса
 
VSerg,прекрасно!!! благодарю!!!
только вот как вашу форму вытащить для рабочего файла?
а макрос следующий (он в рабочем файле):
Код
Private Sub Workbook_Open()
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Set WB1 = Application.Workbooks.Open("C:\Users\Comp\Desktop\Остатки\м.xls")
    Set WB2 = Application.Workbooks.Open("C:\Users\Comp\Desktop\Остатки\р.xls")
    Application.Wait (Now + TimeValue("00:00:03"))
    WB1.Close
    WB2.Close
    End Sub
Public Sub copyLinkedSheet()
    Dim arrLink As Variant
    Dim newBook As Workbook
    Dim sLink As Variant
    ThisWorkbook.Sheets(4).Copy
    Set newBook = Application.Workbooks(Application.Workbooks.Count)
    arrLink = newBook.LinkSources(XlLink.xlExcelLinks)
    For Each sLink In arrLink
        newBook.BreakLink sLink, xlLinkTypeExcelLinks
    Next
End Sub
Sub DelRows2()
    Dim x As Range, y As Range, fst As String
    Set x = [D:D].Find(0, , xlValues, xlWhole)
    If Not x Is Nothing Then
        fst = x.Address
        Do
            If y Is Nothing Then Set y = x Else Set y = Union(y, x)
            Set x = [D:D].FindNext(x)
        Loop While fst <> x.Address
        y.EntireRow.Delete
    End If
End Sub
Sub all()
    Call Workbook_Open
    Call copyLinkedSheet
    Call DelRows2
End Sub
я не особо смыслю в макросах поэтому собирал методом тыка ))
создать userform для ввода курса валют + запуск макроса
 
Доброго времени суток
необходимо следующее:
открыть файл, появилась форма для ввода курсов валют в конкретные ячейки, жмем ОК, ячейки заполнились + запустился макрос, клиент доволен))
заранее благодарю
Поиск и перенос данных из листа с группировками
 
Сергей, благодарю за 42 строку
на оригинале сработало!
вот только с группой В траблз
как оказалось групп без подгрупп тоже предостаточно
есть варианты как это тоже побороть?
заранее благодарю
Поиск и перенос данных из листа с группировками
 
Сергей, благодарю
Изменено: assedo - 17 фев 2016 15:32:53
Страницы: 1 2 След.
Наверх