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

Страницы: 1
Как сделать значение в формате xsi:nil="true"?
 
#
27.04.2020 10:52:22
потому что только в Ексель (данные собираются только в Ексель).
 
Перейти    
Как сделать значение в формате xsi:nil="true"?
 
#
24.04.2020 14:20:38
Добрый день.
Не представляю кто может таким интересоваться, но: как сделать в xls значение ячейки xsi:nil="true", что б оно потом отображалось также в XML

Тоесть, открываю файл XML в Ексель, пересохраняю его, и при воторном открытии параметр xsi:nil="true" уже не отображается.
Открыть XML нужно только в Ексель, сделать там одно изменение, пересохранить.

Спасибо!
 
Перейти    
ошибка при открытии XML, в VBA ошибка при открытии XML
 
#
23.04.2020 10:39:57
разные xml файлы. в моем файле структуры, таблицы.
просто необходимо пропустить ошибку...есть варианты?
 
Перейти    
ошибка при открытии XML, в VBA ошибка при открытии XML
 
#
23.04.2020 09:52:43
просьба, если есть возможность..исправить
у меня не выходит, ошибка все так же появляется.
 
Перейти    
ошибка при открытии XML, в VBA ошибка при открытии XML
 
#
23.04.2020 09:21:59
Добрый деь. при открытии xml файла посредством VBA появляется ошибка источника XML. прикреплено.. При нажатии кнопки ОК далее код выполняется как нужно.

Как можно посредством VBA пропустить данную ошибку, или без пользователя нажать ОК

Спасибо

Код
Workbooks.OpenXML Filename:="d:\akcuz\shablon.XML", LoadOption:= _
        xlXmlLoadImportToList
Изменено: SanAlo - 23.04.2020 09:23:27
 
Перейти    
выбор листа в Excel в зависимости от даты VBA, выбор листа в зависимости от даты VBA
 
#
23.04.2020 08:00:06
Добрый день.
Макрос будет срабатывать после запуска в ручном режиме.

Просто необходимо, что бы работа велась в листе с одноименным названием предыдущего дня, а не в листе 01, как сейчас в к коде.  
Изменено: SanAlo - 23.04.2020 08:01:03
 
Перейти    
выбор листа в Excel в зависимости от даты VBA, выбор листа в зависимости от даты VBA
 
#
23.04.2020 03:13:03
Добрый вечер.
Просьба помочь. в VBA совсем не силен.

Необходимо выбрать необходимый лист в зависимости от числа даты. В Ексель файле будут листы от 01 до 31.
Посредством VBA необходимо выбрать лист на день раньше и работать с ним (тоесть сегодня 23е, значит работа с листом с названием 22).

Спасибо!
Код
ChDir "D:\akcuz"
    Workbooks.OpenXML Filename:="d:\akcuz\shablon.XML", LoadOption:= _
        xlXmlLoadImportToList
        Windows("file.xls").Activate
        Sheets("01").Select
    Rows("6:6").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Книга1").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAsXMLData Filename:="Z:\111\222.xml", Map:=ActiveWorkbook. _
        XmlMaps("DECLAR_карта")
    ActiveWindow.Close False
    Range("A9").Select
End Sub
Изменено: SanAlo - 23.04.2020 07:56:43
 
Перейти    
Переход на свободную ячейку (вниз)
 
#
17.03.2018 20:25:36
Пытливый, докладываю. Вставил куда нужно, работает! Большое спасибо!!!Большое!
 
Перейти    
Переход на свободную ячейку (вниз)
 
#
17.03.2018 20:13:23
та что там примеры...любой Ctrl+v текста "пример" в ячейку А1...а активной ячейка уже становиться А2 и так далее
 
Перейти    
Переход на свободную ячейку (вниз)
 
#
17.03.2018 20:09:20
Смогу
 
Перейти    
Переход на свободную ячейку (вниз)
 
#
17.03.2018 19:49:48
Добрый вечер.

Просьба с реализацией задачи:
необходимо после вставки текста в ячейку А1 (из буфера,непосредственно с Ридера магнитных карточек) автоматически делать активной ячейку внизу, А2! И так далее...снова заполнилась ячейка А2 переходим на А3.....

Подыскал макрос, но он не подходит, так как его нужно каждый раз запускать..
Код
Sub Макрос1()   
Dim iLastRow As Long   
iLastRow = Cells(Rows.Count,2).End(xlUp).Row   
cells(iLastRow+1,2).Select   
End Sub

Просьба помочь!Спасибо!
Изменено: SanAlo - 17.03.2018 20:04:51
 
Перейти    
[ Закрыто] Обработка файлов в указанной папке
 
#
14.01.2018 23:40:52
Добрый день. Просьба помочь.

Имеется макрос, в нем необходимо самому выбрать файлы для дальнейшей обработки...
Как переделать так, что б выбор был автоматически всех файлов в указанной папке. Спасибо за помощь, рабочий макрос прилагаю.
Код
Sub Fizik()
 
Const strStartDir = "c:\kaluna\" 'папка, с которой начать обзор файлов
Const strSaveDir = "c:\kaluna\" 'папка, в которую будет предложено сохранить результат
Const blInsertNames = True  'вставлять строку заголовка (книга, лист) перед содержимым листа
  
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
  
On Error Resume Next    'если указанный путь не существует, обзор начнется с пути по умолчанию
ChDir strStartDir
On Error GoTo 0
With Application    'меньше писанины
arFiles = .GetOpenFilename("CSV Files (.csv), *.csv", , "Объединить файлы", , True)
If Not IsArray(arFiles) Then End 'если не выбрано ни одного файла
 
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
    .ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
  
For i = 1 To UBound(arFiles)
    .StatusBar = "Обработка файла " & i & " из " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), local:=True)
    For Each shSrc In wbSrc.Worksheets
        If IsNull(shSrc.UsedRange.Text) Then 'лист не пустой
            Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
                clTarget = "  "
                Set clTarget = clTarget.Offset(1, 0)
            End If
            shSrc.UsedRange.Copy clTarget
        End If
    Next
    wbSrc.Close False   'закрыть без запроса на сохранение
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
     
 
On Error Resume Next    'если указанный путь не существует и его не удается создать,
                        'обзор начнется с последней использованной папки
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
'arFiles = .GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
  
'If VarType(arFiles) = vbBoolean Then 'если не выбрано имя
 '   GoTo save_err
'Else
 '   On Error GoTo save_err
  '  wbTarget.SaveAs arFiles
'End If
End
save_err:
    MsgBox "Книга не сохранена!", vbCritical
End With
End Sub
 
Перейти    
Выбор файлов в папке, редактирование мароса
 
#
11.01.2018 22:00:22
БМВ, если б выходило, я б не просил помощь. к сожалению в VBA не разбираюсь, поэтому и прошу помощь для выполнения данной задачи, готовый код.
help(
Изменено: SanAlo - 11.01.2018 22:01:01
 
Перейти    
Выбор файлов в папке, редактирование мароса
 
#
11.01.2018 20:49:06
скажите пожалуйста, возможно хоть реализовать данную задачу?!( очень нужно описанный метод.
спасибо
 
Перейти    
Выбор файлов в папке, редактирование мароса
 
#
11.01.2018 08:59:36
находил информацию про открытие файлов в нужной паке, но никак не могу реализовать в данном макросе, просьба помочь с редактированием этого (скопировать-->вставить-->работает)

(автоматическое открытие файлов в заданной папке и продолжение выполнения действий, как уже написано в макросе)

Спасибо!
 
Перейти    
Выбор файлов в папке, редактирование мароса
 
#
11.01.2018 01:08:01
Добрый день. Просьба помочь с редактированием рабочего макроса.
Данный макрос дает право на ВЫБОР файлов из указанной вами папки (arFiles = .GetOpenFilename("CSV Files (.csv), *.csv", , "Объединить файлы", , True))

Необходимо переделать код так, что б автоматически выбирались ВСЕ файлы csv по заданному пути, например D:\kaluna\dest и обрабатывались как было.
Большое спасибо за помощь!
Код
Sub Fizik()

Const strStartDir = "c:\kaluna\" 'папка, с которой начать обзор файлов
Const strSaveDir = "c:\kaluna\" 'папка, в которую будет предложено сохранить результат
Const blInsertNames = True  'вставлять строку заголовка (книга, лист) перед содержимым листа
 
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
 
On Error Resume Next    'если указанный путь не существует, обзор начнется с пути по умолчанию
ChDir strStartDir
On Error GoTo 0
With Application    'меньше писанины
arFiles = .GetOpenFilename("CSV Files (.csv), *.csv", , "Объединить файлы", , True)
If Not IsArray(arFiles) Then End 'если не выбрано ни одного файла

Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
    .ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
 
For i = 1 To UBound(arFiles)
    .StatusBar = "Обработка файла " & i & " из " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), local:=True)
    For Each shSrc In wbSrc.Worksheets
        If IsNull(shSrc.UsedRange.Text) Then 'лист не пустой
            Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
                clTarget = "  "
                Set clTarget = clTarget.Offset(1, 0)
            End If
            shSrc.UsedRange.Copy clTarget
        End If
    Next
    wbSrc.Close False   'закрыть без запроса на сохранение
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
    

On Error Resume Next    'если указанный путь не существует и его не удается создать,
                        'обзор начнется с последней использованной папки
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
'arFiles = .GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
 
'If VarType(arFiles) = vbBoolean Then 'если не выбрано имя
 '   GoTo save_err
'Else
 '   On Error GoTo save_err
  '  wbTarget.SaveAs arFiles
'End If
End
save_err:
    MsgBox "Книга не сохранена!", vbCritical
End With
End Sub
 
Перейти    
Страницы: 1
Наверх